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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы