Как можно добраться до вложенного в сообщение Outlook файла Excel? - VB
Формулировка задачи:
Как можно добраться до вложенного в сообщение OUtLook файла Excel. Заранее спасибо.
Решение задачи: «Как можно добраться до вложенного в сообщение Outlook файла Excel?»
textual
Листинг программы
Dim theApp As New Outlook.Application Dim Fld As Outlook.MAPIFolder Dim MItm As Outlook.MailItem Dim MailSubject As String, FileName As String MailSubject = '...' ' установка Subject FileName = '...' ' установка имени файла Set Fld = theApp.GetNamespace('MAPI').GetDefaultFolder(olFolderInbox) Set MItm = Fld.Items.Find('[Subject] = ''' & MailSubject & '''') If Not MItm Is Nothing Then If MItm.Attachments.Count > 0 Then MItm.Attachments.Item(1).SaveAsFile FileName End If End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д