Вот .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