Как можно добраться до вложенного в сообщение 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