Не знаю как проще это сделать под Windows: ' VBScript
Dim objSendMail
' The following section creates the mail object and sends the mail. Set objSendMail = CreateObject(CDONTS.NewMail)
objSendMail.From = strMailFrom objSendMail.To = strMailTo objSendMail.Subject = Тема сообщения objSendMail.Body = Тело сообщения
objSendMail.BodyFormat = CdoBodyFormatText objSendMail.MailFormat = CdoMailFormatMime objSendMail.Importance = CdoNormal objSendMail.AttachFile strFileName
WScript.Echo Sending E-Mail to: & strMailTo objSendMail.Send
Set objSendMail = Nothing |