ИнтеллигенцияX

Отправляем сообщение с вложением.

Imports System.Net.Mail
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim email As New MailMessage
     Dim smtp As SmtpClient
     smtp = New SmtpClient("Smtp сервер") ' Пример smtp.mail.ru
     smtp.Credentials = New Net.NetworkCredential("Ваш e-mail", "Ваш пароль")
     email.From = New MailAddress("Ваш e-mail")
     email.To.Add(New MailAddress("Кому хотите отправить e-mail")
     email.Body = "Тут будет текст сообщения"
     email.Subject = "Заголовок сообщения" 
     email.Attachments.Add(New System.Net.Mail.Attachment("Путь к файлу, вложение")) ' Пример D:/SendMessage.exe
     smtp.Send(email)
End Sub

Загрузить проект от AeroWhite