CDOSYS ENVIO DE EMAIL

EXPOLETA 23/04/2010 12:14:16
#340029

Seguinte pessoal, estou tentando enviar um email Pelo HOTMAIl e gmail , pelo terra funciona bem . ja procurei em diversos tópicos e tutoriais, mas nenhum fala especificamente sobre o hotmail e/ou gmail..


With Camp
.Item(cdoSendUsingMethod) = 1 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = smtp.poa.terra.com.br
.Item(cdoSMTPConnectionTimeout) = 10 [ô] quick timeout
.Item(cdoSendUserName) =login
.Item(cdoSendPassword) = senha
.Update

End With

With MSG
Set .Configuration = Cof
.To = [Ô][Ô] & Nome_Dst & [Ô] < login@hotmail.com > [Ô][Ô][Ô]
.From = [Ô][Ô][Ô]de[Ô][Ô] <[Ô] login@hotmail.com[Ô]>[Ô]
.Subject = [Ô]titulo[Ô]
.HTMLBody = PrEmp & [Ô] <BR><BR>[Ô] _
& [Ô]Relatório gerado pela Sisgt Sistemas <br>[Ô] _
& [Ô]Prezado cliente, <br>[Ô] _
& [Ô]Para maiores informações,<br> [Ô] _
& Space(5) & [Ô]Entre em contato com a nossa central de atendimento <br>[Ô] _
& [Ô]Críticas, sugestões ou comentários, <br>[Ô] _
& Space(5) & [Ô]Estamos aguardando sua mensagem! <br>[Ô] _
& Space(5) & [Ô]comercial@jcencomendas.com.br <br>[Ô] _
& [Ô]Atenciosamente, <br><br>[Ô] _
& Space(5) & [Ô]Equipe de suporte à informação <br>[Ô] _
& Space(5) & PrEmp & [Ô]<br><br>[Ô] _
& [Ô]Relatório gerado pelo: SGT - Sistema Gestão de Transporte <br>[Ô] _
& [Ô] <img src=[ô]http://expoleta.ueuo.com/sisgt.loginho.bmp[ô] />[Ô]

[ô] .AddAttachment CaminhoArq
.Send
MsgBox [Ô]Ok[Ô]
End With


se o email remente for o terra. ele vai blz. mas com o hotmail, me retorna um erro e as vez n retorna nenhum, mas n chega nada..
o erro fala sobre STARTTLS. algo assim
se alguem puder ajudar..
desde ja agradeço