ENVIO E-MAIL CDOSYS USANDO CRIPTOGRAFIA TLS

BRENOACP 11/03/2014 09:32:38
#435814

Bom dia Senhores, estou usando o seguinte código para o envio de emails:

Dim Msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp

Set Msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields

With Camp
.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = smtp.mail.yahoo.com.br
.Item(cdoSMTPServerPort) = 587
.Item(cdoSMTPConnectionTimeout) = 10 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = usuario@yahoo.com.br
.Item(cdoSendPassword) = senha [ô]LCase(PWR.Text)
.Item(cdoSMTPUseSSL) = False
.Update

End With

With Msg

Set .Configuration = Cof
.To = destinatario@email.com
.From = remetente@yahoo.com.br
.Subject = [Ô]Teste de envio de e-mail[Ô]
.TextBody = [Ô]teste de envio de e-mail[Ô]
.Send
End With

Acontece que não consigo enviar emails pelo smtp do Yahoo e Gmail.
Já alterei a configuração .Item(cdoSMTPUseSSL) = de True para False e vice-versa.
Quando apontado para False o retorno é: [Ô]O Servidor rejeitou o endereço do remetente. A resposta do servidor foi 530 5.7.1 Authentication required[Ô]
Pelo que andei pesquisando a dll CDOSYS não suporta esse tipo de criptografia. O Yahoo obriga o uso da criptografia TLS.

é isso mesmo pessoal?
Existe alguma outra alternativa?

Obrigado,
Breno.