Exemplo de envio de mensagem com o CDOSYS

Este artigo demonstra de maneira simples e rápida como enviar uma mensagem usando o CDOSYS, modificando o host para envio de e-mail, o remetente, o destinatário e por fim o texto no corpo do e-mail….

Observações:

mail.exemplo.com = Servidor smtp que será usado para envio da mensagem

destino@exemplo.com = Endereço de e-mail que será alcançado pela mensagem

origem@exemplo.com = Endereço de e-mail autorizado pelo servidor SMTP para envio deste mensagem

Subject = Título do E-mail

HTMLBody= Texto que vai no corpo do e-mail

‘—

‘Cria Objetos
Dim objMessage, objConfig
Set objMessage = Server.createObject(“CDO.Message”)
Set objConfig = Server.createObject(“CDO.Configuration”)

‘Cria Configuração
with objConfig.Fields
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “mail.exemplo.com”
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 10
.Update()
End with

‘Envia E-mail
with objMessage
.Configuration = objConfig
.to = “destino@exemplo.com”
.From = “origem@exemplo.com”
.Subject = “E-mail de teste”
.HTMLBody = “E-mail de teste com CDOSYS”
.Send()
End with

‘Destroi objetos
Set objMessage = Nothing
Set objConfig = Nothing

[]´s

RolfBoard