Sub SendMail(sMsgBody)

 Dim  objMes
 
 Set objMes = WScript.CreateObject("CDO.Message")
 'Почтовы сервер или IP адрес
 objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<IP>"
 'Порт сервера SMTP
 objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 '1 означает, что используется базовая аутентификация
 '0 – без аутентификации
 '2 – аутентификация NTLM
 objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
 'Имя пользователя
 objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "<e-mail>"
 'Пароль
 objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "<pass>"

 objMes.Configuration.Fields.Update

 
 objMes.From = "<e-mail>" 'От кого письмо
 objMes.To = "<e-mail>" ' Кому письмо
 objMes.Subject = "тема" 'Тема письма
 objMes.Textbody = sMsgBody 'Что будет в теле письма
 'objMes.AddAttachment "C:\tmp\1.txt" 'Прикрепляем файл

 objMes.Send()
 
End Sub

 Dim ToAddress
 Dim MessageSubject
 Dim MessageBody
 Dim MessageAttachment
 
 Dim ol, ns, newMail
 
 ToAddress = "Jim, Test"   ' change this...
 MessageSubject = "iMacros"
 MessageBody = "iMacros Status = OK"
 
 Set ol = WScript.CreateObject("Outlook.Application")
 Set ns = ol.getNamespace("MAPI")
 ns.logon "","",true,false
 Set newMail = ol.CreateItem(olMailItem)
 newMail.Subject = MessageSubject
 newMail.Body = MessageBody & vbCrLf
 
 ' validate the recipient, just in case...
 Set myRecipient = ns.CreateRecipient(ToAddress)
 myRecipient.Resolve
 If Not myRecipient.Resolved Then
 MsgBox "unknown recipient"
 Else
    newMail.Recipients.Add(myRecipient)
    newMail.Send
 End If
 
 Set ol = Nothing