E-MAIL PELO GMAIL
Olá pessoal, como devo utilizar a DLL vbSendMail para enviar emails atraves do Gmail?
Ja tentei de varias forma, e não obtive sucesso.
Veja o Codigo abaixo;
With SendMail
.AsHTML = True
.ContentBase = [Ô][Ô] [ô] Optional, default = Null String, reference base for embedded links
.EncodeType = MIME_ENCODE [ô] Optional, default = MIME_ENCODE
.Priority = NORMAL_PRIORITY [ô] Optional, default = PRIORITY_NORMAL
.Receipt = True [ô] Optional, default = FALSE
.UseAuthentication = True [ô] Optional, default = FALSE
.UsePopAuthentication = True [ô] Optional, default = FALSE
.Username = [Ô]meuemail@gmail.com[Ô]
.Password = [Ô]minhasenha[Ô]
.POP3Host = [Ô]pop.gmail.com[Ô]
.SMTPHost = [Ô]smtp.gmail.com[Ô]
.MaxRecipients = 100
.From = [Ô]alexlugon@evolutionaccess.com.br[Ô]
.ReplyToAddress = [Ô]alexlugon@evolutionaccess.com.br[Ô]
.FromDisplayName = [Ô]Alex Lugon[Ô]
.Recipient = [Ô]alexlugon@pop.com.br[Ô]
.RecipientDisplayName = [Ô]Teste[Ô]
.Subject = [Ô]Meu Assunto[Ô]
.Message = [Ô]Minha Mensagem[Ô]
[ô] .Attachment = [Ô][Ô]
.Send [ô] Required
[ô] .Disconnect [ô] Optional, use when sending bulk mail
End With
Ja tentei de varias forma, e não obtive sucesso.
Veja o Codigo abaixo;
With SendMail
.AsHTML = True
.ContentBase = [Ô][Ô] [ô] Optional, default = Null String, reference base for embedded links
.EncodeType = MIME_ENCODE [ô] Optional, default = MIME_ENCODE
.Priority = NORMAL_PRIORITY [ô] Optional, default = PRIORITY_NORMAL
.Receipt = True [ô] Optional, default = FALSE
.UseAuthentication = True [ô] Optional, default = FALSE
.UsePopAuthentication = True [ô] Optional, default = FALSE
.Username = [Ô]meuemail@gmail.com[Ô]
.Password = [Ô]minhasenha[Ô]
.POP3Host = [Ô]pop.gmail.com[Ô]
.SMTPHost = [Ô]smtp.gmail.com[Ô]
.MaxRecipients = 100
.From = [Ô]alexlugon@evolutionaccess.com.br[Ô]
.ReplyToAddress = [Ô]alexlugon@evolutionaccess.com.br[Ô]
.FromDisplayName = [Ô]Alex Lugon[Ô]
.Recipient = [Ô]alexlugon@pop.com.br[Ô]
.RecipientDisplayName = [Ô]Teste[Ô]
.Subject = [Ô]Meu Assunto[Ô]
.Message = [Ô]Minha Mensagem[Ô]
[ô] .Attachment = [Ô][Ô]
.Send [ô] Required
[ô] .Disconnect [ô] Optional, use when sending bulk mail
End With
Vo~^e já configurou sua conta Gmail para usar o POP e SMTP
Sim, pelo outlook eu envio normal....
que erro aparece???
Falha ao Enviar o Email Teste:
The attempt to connect timed out
The attempt to connect timed out
não dá pq não tem como mudar as portas...
gmail usa 465, 574 e 995....
gmail usa 465, 574 e 995....
Não tem como mesmo?
Tópico encerrado , respostas não são mais permitidas