'---------------------------------
'http://forum.sysadmins.su/index.php?showtopic=111&st=0&p=2728
'-----------------------------------------
'On Error Resume Next
'------------------------------------------------------------------
Dim objMsg
Dim Config
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
' Set the sendusing field to '....'.
    Config("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    'Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
    Config("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "box@domain.com"
    Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "box@domain.com"
    Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"
    Config("http://schemas.microsoft.com/cdo/configuration/languagecode") = "ru"
    
' Update the fields.
Config.Fields.Update
With objMsg
   .To   = "box@domain.com"
   .From = "box@domain.com"
   .Subject  = "Test sending email from script"
   .TextBody = ""
   .AddAttachment "c:\test.txt"
   ' ..
End With
objMsg.Send
Wscript.Echo "Отправка завершена"
Wscript.Quit