Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Senhores, bom dia!
Estou tentando configurar o envio de e-mail de alerta quando der um problema na leitura das cargas, segue como estou configurando quando envio e-mail de teste da timeout.
Olá Infelizmente o gmail não funciona, você deve que utilizar outro servidor SMTP.
Como seria a configuração de um servidor SMTP?
Muito parecida com a que você fez. Só teve ser outro provedor, que não necessite de SSL, que o caso do gmail.
Normalmente essa configuração depende do seu servidor de email.
Bom Dia Amigo
Segue um exemplo de configuração configuração de SMTP
Por exemplo, na sua empresa deve ter um Servidor que envia e-mail, esse cara já tem o SMTP configurado, isso deve ser configurado no servidor de e-mail.
O que você precisa é saber a porta de envio + nome do Host (no meu caso meu servidor ai mail2 [host], que abre o SMTP e envia para os e-mail que eu adicionar na lista)
Aconselho você ver com pessoal da sua Infra-estrutura para passa o servidor + porta SMTP e um conta de e-mail para que você possa enviar o e-mail, foi esse procedimento adotado aqui, ai você esta configurando o "sender" o cara que envia, não quem recebe
Boa tarde,
Estou tentando enviar email com anexo PDF através de uma macro, há algum problema em utilizar o gmail? pois não estou conseguindo receber os emails.
O gmail é um problema?
Buenos días Estimados,
Les dejo la macro que me funciona, esta macro la ejecuto desde un botón.
Saludos
jorge
SUB Mail
Dim objEmail
Const cdoSendUsingPort = 2 ' Send the message using SMTP
Const cdoBasicAuth = 1 ' Clear-text authentication
Const cdoTimeout = 60 ' Timeout for SMTP in seconds
mailServer = "smtp.gmail.com"
SMTPport = 465
mailusername = "CORREO GMAIL"
mailpassword = "CONTRASEÑA CORREO GMAIL"
mailto = "DESTINATARIOS SEPARADOS POR COMA SI ES MAS DE UNO"
mailSubject = "ASUNTO DEL MAIL"
mailBody = "CUERPO DEL MENSAJE SI CONCATENAS CON CHR(13) PUEDES MANDAR MAS DE UNA LINEA"
vPath="RUTA DEL ARCHIVO ADJUNTO"
Set objEmail = CreateObject("CDO.Message")
Set objConf = objEmail.Configuration
Set objFlds = objConf.Fields
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPport
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTimeout
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword
.Update
End With
objEmail.To = mailto
objEmail.From = mailusername
objEmail.Subject = mailSubject
objEmail.TextBody = mailBody
objEmail.AddAttachment vPath
objEmail.Send
Set objFlds = Nothing
Set objConf = Nothing
Set objEmail = Nothing
'MsgBox "Se completo el envío de mail"
END sub