Скрипт отправки email на VB

Данный скрипт создавался в Visual Studio 2008. Вообщем используется Visual Basic 2008 основанный на .NET Framework. Тип создаваемого проекта Vb Console Application Project. Пример приведен для почтовых серверов mail.ru.


Module SendMail
'Задать путь к System.Net.Mail в Reference
Dim email As New MailMessage 'Если в Reference путь не задан, то можно System.Net.Mail.MailMessage
Dim smtp As SmtpClient 'аналогично как выше


Sub Main()



smtp = New SmtpClient("smtp.mail.ru", 2525) ' с 25 портом не работает
smtp.Credentials = New NetworkCredential("login", "password")
email.From = New MailAddress("aaa@evil")
email.To.Add(New MailAddress("aaa@god"))
email.Body = "test"
email.Subject = "ttt"


Try

smtp.Send(email)

Catch ex As Exception



End Try


Console.ReadKey()
End Sub




End Module


Что меня больше всего удивило так это то, что в начале надо создать SMTP объект со свойствами авторизации, а затем уже задавать свойства объекта MailMessage. Если сделать наоборот, то скрипт не работает.

Думаю, что в одном из последующих постов приведу пример QTP функции для отправки email