envio de e-mail

Tenho uma rotina , descrita abaixo, para enviar e-mail através do sistema.

No entanto, ocorre erro "Servidor not avaiable"

Os parâmetros estão todos corretos.

Onde estou errando ?

With Config



.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = emailremetente
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SENHA
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120


.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config

fromnome = emailremetente
.From = fromnome


sendernome = nomeusuario
.Sender = sendernome

mailremetente = emailremetente
replynome = mailremetente
.ReplyTo = replynome

.BodyPart.Charset = "utf-8"

DIAPROCESS = Combinação29.Value

.Subject = "Caixa do dia " & DIAPROCESS & "/" & MesProcess & "/" & AnoProcess & " " & Empresa


.HTMLBody = " "
nometo = nomedestinatario
.To = nometo
comcopia = comcopia
.CC = comcopia
caminho = CurrentProject.path & "/pdf/fluxototalizado.pdf"
.AddAttachment (caminho)
caminho = CurrentProject.path & "/pdf/resumofinal.pdf"
.AddAttachment (caminho)
caminho = CurrentProject.path & "/pdf/Movimentocaixa.pdf"
.AddAttachment (caminho)


.Send
End With

Olá poy,

Tente corrigir o teu código por este que funciona:

Public Function send_email()

Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mygmail@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
.Update
End With
' build email parts
With cdomsg
.To = "somebody@somedomain.com" 'Para = email do destinatário
.From = "mygmail@gmail.com" 'De = Seu email
.Subject = "the email subject" 'Assunto = Descreva o assunto
.TextBody = "the full message body goes here. you may want to create a variable to hold the text" 'Corpo = "o corpo da mensagem vai aqui. Você pode desejar criar uma variável para armazenar o texto"
.Send 'Enviar
End With
   Set cdomsg = Nothing
End Function

Fonte: http://www.blueclaw-db.com/access_email_gmail.htm