ERRO AO ENVIAR EMAIL

PETRONCO 04/01/2012 19:58:11
#392420
Criei meu código me baseando em um exemplo aqui do forum, mas tá dando erro quando envio para servidores do Gmail e Hotmail...
o erro é : [txt-color=#e80000]Must issue a STARTTLS command first[/txt-color]

O script:

Sub Enviar_Email()
On Error GoTo Final

Dim AspMail As New ASPEMAILLib.MailSender

With AspMail
          .Host = CbMail.Text
          .Port = txtPorta.Text
          .From = vUserName
          .FromName = [Ô]Adm.[Ô]
          
          .Subject = txtAss.Text
          .Body = txtMens.Text
          
          
          .MailFrom = [Ô]thekkill@yahoo.com.br[Ô]
          .Username = vUserName
          .Password = vPasswrd
          .AddAddress CbEnd.Text
          .Send
          
End With

   MsgBox [Ô]Envio confirmado ![Ô], vbInformation
Exit Sub

Final:
  MsgBox [Ô]Erro número : [Ô] & Err.Number & vbNewLine _
       & [Ô]Descrição do erro : [Ô] & Err.Description, vbCritical
End Sub
KERPLUNK 05/01/2012 17:15:38
#392491
To vendo o endereço [Ô]FROM[Ô] mas não o [Ô]TO[Ô]
Ou seja, o e-mail tem remetente, mas não tem destinatário
PETRONCO 06/01/2012 00:10:03
#392519
Valeu !
com seu exemplo detectei meus erros
Tópico encerrado , respostas não são mais permitidas
Voltar