[Resolvido]Falha ao enviar email via CDOSYS - (Hotmail, Gmail)

Olá pessoal,

A um tempo atras eu até conseguia enviar email pelo VB6 / VBA... usando a DLL CDOSYS, só não consegui na época, tendo como servidor uma conta do HOTMAIL!

Agora nem com outras contas que consegui anteriormente, eu consigo mais... GMail (smtp.gmail.com) e alguns outros... com exceção do Yahoo (smtp.mail.yahoo.com.br) yahoo vai blz...

Programo utilizando Windows XP SP3 + Visual Basic 6.0... e Windows 7 + Visual Basic 6.0

A versão da dll CDOSYS é: 6.2.4.0, acho que é a atual do Windows XP mesmo... e no Windows 7 a versão é: 6.6.7601

Parte do meu código... HOTMAIL
.............................................................................................................................................................

.......................................
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxx@hotmail.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxx"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.............................................................................................................................................................

.......................................
Assim como ta ai acima ocorre o erro: Falha na conexão do transporte com o servidor. (Tanto faz as portas 465/587/995... é retornado esse mesmo erro)

Se for a porta 587 e eu modificar o valor da quinta linha de TRUE pra FALSE...
[...Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False...]

aee então o erro muda para:
"O servidor rejeitou o endereço do remetente. A resposta do servidor foi: 530 5.7.0 Must issue a STARTTLS command first"
ou entao,
"Não foi possível enviar a mensagem para o servidor SMTP. O código de erro de transporte foi 0x800ccc13. A resposta do servidor foi not available"

Não é usuário nem senha incorretos. Já verifiquei tudo. Já troquei a porta de 465 para 587, já deixei ser valor na porta, mais também não deu nada.
Configurei no Outlook Express só pra testar e deu certo, eu consigo enviar por la blz...

GMAIL
.............................................................................................................................................................

.......................................
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.............................................................................................................................................................

.......................................
Esse nao funcionou nem com a porta 465 nem 587
Porta 465 erro: "Não foi possível enviar a mensagem para o servidor SMTP. O código de erro de transporte foi 0x80040217. A resposta do servidor foi not available"
Porta 587 erro: Falha na conexão do transporte com o servidor.

Vi em um tópico de algum fórum que nao me lembro agora, que é preciso habilitar na conta do gmail/hotmail a tal da SSL... mais nem consegui achar onde fazer isso! rs

Se alguém já passou pelo problema acima e conseguiu resolver, por favor me ajudar...!

Desde já agradeço a atenção de todos!

T+

Darcio

A primeira parte que colocou está correta para todos os servidores de email.
O que muda são as portas , que no caso do gmail é a 465.

Mas, tem que habilitar no servidor de emails, nas configurações da tua conta, o envio
de email de local "não confiável", senão , não funfa.

[ ]'s

Noobezinho, obrigado pela dica...! Mais ae é que ta... já revirei essas configurações aqui do GMail tentando encontrar essa opção e naaada! :/

O máximo que achei foi "Encaminhamento e POP/IMAP"

A não ser que essa conta que to usando seja diferente das outras...!

Já passei por isso...então aqui está o link
https://support.google.com/accounts/answer/6010255?hl=pt-BR

Obs.: tem que estar logado no Gmail

Valeu Silvio

Eu já tinha configurado o meu email para enviar boletos para os clientes.
Mas tinha esquecido onde estava a tal configuração.

Valeu mais uma vez

Fique na Paz!

Valeu Noob.....

Deu tudo certo agora...

No GMail tem que...
Alterar o acesso à conta para aplicativos menos seguros
https://support.google.com/accounts/answer/6010255?hl=pt-BR

Aplicativos menos seguros
https://www.google.com/settings/security/lesssecureapps

Gerenciar as configurações de acesso à conta e de segurança
https://myaccount.google.com/security

já no HOTMAIL não foi preciso essas alterações, o que estava errado era a porta... não funcionou com nenhuma dessas 465/587/995... aqui funcionou com a porta 25

Desde já agradeço a atenção de todos!

Que ótimo, Darcio

Valeu pelo retorno!

Boa sorte!