ANTICHAT — форум по информационной безопасности, OSINT и технологиям

'Read the text of message and signature from txt-file "MessText.txt" 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
'Open the file for reading 
Set f = fso.OpenTextFile("c:\Apps\MessText.txt", ForReading) 
'The ReadAll method reads the entire file into the variable BodyText 
MessText = f.ReadAll 
'Close the file 
f.Close 
Set f = Nothing 
Set fso = Nothing 
'____________________________________________________________________________________ 
 
'Read the recipients of Distribution List from txt-file: 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.OpenTextFile("c:\Apps\DistrList.txt", ForReading) 
DistribList = f.ReadAll 
f.Close 
Set f = Nothing 
Set fso = Nothing 
'____________________________________________________________________________________ 
 
 
AttFile = ("C:\Apps\Temp\Test_attach.txt")          'Path to file-attachment 
Set objEmail = WScript.CreateObject("CDO.Message")  'Create CDO-object and get link on it into objEmail (var) 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''' 
' Required parameters of CDO-object 
'''''''''''''''''''''''''''''''''''''''''''''''''''' 
objEmail.From = "MyAddress@shell.com"                         'Sender (mine) address 
'objEmail.To = DistribList                                    'Address of recipient or distribution list 
objEmail.BCC = "address@mail.com"                             'Hide copy recipient address 
objEmail.Subject = "Field Management Report " & DateSubj      'Subject of message 
objEmail.AddAttachment = AttFile                              'Attachment 
objEmail.TextBody = MessText                                  '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") = "SLMCPF-S-01001" 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "MyAddress@shell.com" 
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