Dim oMsg, oConf
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "Meuemail@gmail.com"
oMsg.To = "toemail@hotmail.com"
oMsg.Subject = "Teste"
oMsg.TextBody = "Hello World!"
Set oConf = oMsg.Configuration
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuemail@gmail.com"
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhasenha"
oConf.Fields.Update
oMsg.Send()
Wscript.echo(resultMessage)
Mais aii n sei por o Comando de anexos Alguem ajuda ?
-
Editado
zHaRd
sábado, 22 de outubro de 2016 18:43