Как отправлять письма с вложениями? - VB
Формулировка задачи:
Как создавать и отправлять письмо понятно. А как вложить в письмо файлик?
Решение задачи: «Как отправлять письма с вложениями?»
textual
Листинг программы
Set myOlApp = CreateObject('Outlook.Application')
Set myNamespace = myOlApp.GetNamespace('MAPI')
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myItem.Subject = 'графики Босс кадровик'
myAttachments.Add 'C:grafik.xls', _
olByValue, 1, 'графики'
myItem.Display