Пример отправки почты с помощью VBScript
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Тема письма"
objMessage.From = "user@mail.ru"
objMessage.To = "vasya@mail.ru"
objMessage.TextBody = "Текст письма"
objMessage.AddAttachment ="Путь к файлу, который хотим вложить"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@mail.ru"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
objMessage.Configuration.Fields.Update
objMessage.Send
