Отправка на мыло

[Storkich]

Вот .vbs файл, можно генерить из нава и отправлять

Set objEmail = WScript.CreateObject("CDO.Message")  'Create CDO-object and get link on it into objEmail (var) 
'''''''''''''''''''''''''''''''''''''''''''''''''''' 
' Required parameters of CDO-object 
'''''''''''''''''''''''''''''''''''''''''''''''''''' 
objEmail.From = "robot@Sercer.ru"                         'Sender (mine) address 
objEmail.To = "DPugaev@Server.ru"                                     'Address of recipient or distribution list 
'objEmail.BCC = "DPugaev@Server.ru"                             'Hide copy recipient address 
objEmail.Subject = "Field Management Report "      'Subject of message 
objEmail.TextBody = "Body"                                  'Message Text 
objEmail.BodyPart.Charset = "windows-1251"                    'Cyrillic encoding 

'Sending message using SMTP-service (1 - using of local SMTP-service) 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
'Name of SMTP-server 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.ru" 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  'Port of SMTP-server 
objEmail.Configuration.Fields.Update           'Update configuration of CDO-object 
objEmail.Send    'Sending of message by using Send-method