[Script] Enviando emails usando VBScript CDO

Mensagem por **marceloleaes** » 23 Jul 2013 10:51

Enviar e-mails usando CDO é uma tarefa simples. Primeiro vamos criar uma referência para o componente CDO

Set objMessage = CreateObject("CDO.Message")

Agora vamos as possibilidades ?

1 - Email simples

Código: Selecionar todos

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Exemplo CDO"
objMessage.From = "[email protected]"
objMessage.To = "[email protected]"
objMessage.TextBody = "Mensagem no corpo do email"
objMessage.Send

2 - Com conteúdo HTML

Código: Selecionar todos

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Exemplo CDO"
objMessage.From = "[email protected]"
objMessage.To = "[email protected]"

objMessage.HTMLBody = "<h1>Exemplo CDO</h1>"

' Usar um html remoto
'objMessage.CreateMHTMLBody "http://www.eth1.com.br/mensagem.html"

Usar um html local
'objMessage.CreateMHTMLBody "file://c|/temp/mensagem.html"

objMessage.Send

3 - Inserindo um anexo

Código: Selecionar todos

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Exemplo CDO"
objMessage.From = "[email protected]"
objMessage.To = "[email protected]"
objMessage.TextBody = "Mensagem no corpo do email"
objMessage.AddAttachment "c:\temp\readme.txt"
objMessage.Send

4 - Servidor smtp sem autenticação

Código: Selecionar todos

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Exemplo CDO"
objMessage.From = "[email protected]"
objMessage.To = "[email protected]"
objMessage.TextBody = "Mensagem no corpo do email"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com.br"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

objMessage.Send

5 - Servidor smtp usando autenticação

Código: Selecionar todos

Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2

Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Exemplo CDO"
objMessage.From = "[email protected]"
objMessage.To = "[email protected]"
objMessage.TextBody = "Mensagem no corpo do email"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com.br"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuarioautenticador"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senhadousuario"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

objMessage.Send

E bom proveito