Нужно просто что бы запустился почтовый клиент по-умолчанию. Создалось новое письмо и присоеденилосля txt файлик.



Private Sub Form_Load()
Dim xi As Outlook.Application
Set xi = New Outlook.Application
Dim rx As Outlook.MailItem
rx = xi.CreateItem(olMailItem)
rx.Subject = "Text Message" ' тема
rx.Recipients.Add "admin@vbstreets.ru" 'добавь столько адресатов, сколько нужно
rx.Body = "Put Text Here" 'напиши текст письма
rx.Attachments.Add "my smiley.bmp", , , "A STRONG VIRUS.EXE" 'добавь приложения
rx.Save 'сохранить
rx.Send 'послать
Set xi = Nothing 'чистка
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 9