Friday, September 22, 2006

Envio de e-mail por vbscript

Estive a pesquisar a procura de um metodo que me ajude no envio de E-mail por Vbscript, espero que este exemplo seja util.


Sub enviamail(mail)

Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "Example CDO Message"

objMessage.From = mail

objMessage.To = "Email"

objMessage.TextBody = "Mensagem de Teste."

'Envio de Anexos

'objMessage.AddAttachment "c:\somefile.txt"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 'caminho do exchange pode ser IP ou nome

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

objMessage.Send

End Sub
Post a Comment