Отправить письмо.vb.net

[DJ4J]

подскажите плиз как отправлять письмо на мыло из vb.net
пробовал сам писать,вообще не компилирует :(
и поподробнее плз)

[DeaD_MoroZ]

'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