VB cкрипт отправки письма

Set objEmail = CreateObject("CDO.Message")
set objConf = CreateObject("CDO.Configuration")

Set objFlds = objConf.Fields
With objFlds
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailserver"
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
  .Update
End With
Set wshshell = CreateObject("WScript.Shell")
Set objEmail.Configuration = objConf

objEmail.From = "backup@rublin.org.ua"
objEmail.To = "admin@rublin.org.ua"
objEmail.Subject = "Backup JOB"
objEmail.Textbody = "I am OK. See log in addattachment."
objEmail.Addattachment "\\sns\Backup\D\fullbackup.log"
objEmail.Send

/источник/