ENVIO DE EMAIL

SNNIFFER 12/05/2012 18:15:52
#401879
Sei que já existem dezenas de exemplos para envio de e-mails pelo vb6, mas, comigo infelizmente nenhum funciona.
Estou tentando implementar este, mas, as vezes da Timeout, e quando coloco informações de Timeout, dá um erro estranho STARTLS alguma coisa.

[txt-color=#0000f0]E agora quem poderá me ajudar??[/txt-color]
ALEVALE 14/05/2012 08:30:52
#401945
Já tentou usar a dll, ocx não lembro (vbsendmail), é show nunca tive problema.
SNNIFFER 14/05/2012 18:04:51
#401985
Resolvido o problema, consegui este exemplo de código usando CDO:

  

           Set iMsg = CreateObject([Ô]CDO.Message[Ô])
            Set iConf = CreateObject([Ô]CDO.Configuration[Ô])
            Set Flds = iConf.Fields

 [ô] send one copy with Google SMTP server (with autentication)
         schema = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]
         Flds.Item(schema & [Ô]sendusing[Ô]) = 2
         Flds.Item(schema & [Ô]smtpserver[Ô]) = [Ô]smtp.gmail.com[Ô]
         Flds.Item(schema & [Ô]smtpserverport[Ô]) = PortaEmail
         Flds.Item(schema & [Ô]smtpauthenticate[Ô]) = 1
         Flds.Item(schema & [Ô]sendusername[Ô]) = EmailLoja
         Flds.Item(schema & [Ô]sendpassword[Ô]) = SenhaLoja
         Flds.Item(schema & [Ô]smtpusessl[Ô]) = 1
         Flds.Update
 
         With iMsg
         
         .To =txtPara.Text
         .From = EmailLoja
         .Subject = [Ô]Relatorio: [Ô] & NomeLoja
         .HTMLBody = [Ô]Relatorio do dia:[Ô] & Date
          .AddAttachment [Ô]C:\[Ô] & NomeLoja & [Ô].txt[Ô]
         Set .Configuration = iConf
         .send
         End With
          
         Set iMsg = Nothing
         Set iConf = Nothing
         Set Flds = Nothing
Tópico encerrado , respostas não são mais permitidas
Voltar