PROBLEMAS COM ENVIO DE EMAIL
O KERPLUNK já falou, tenta assim.
Citação:No seu bloco [Ô]With[Ô] coloque:
.Item(cdoPort) = 587
Tente colocar o seguinte no seu bloco With Camp, antes de chamar o Update
.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô]) = 587
.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô]) = 587
Tópico encerrado , respostas não são mais permitidas