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
