Форум АНТИЧАТ - Отправить письмо.vb.net

Код:
'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