VBA Отправить Outlook Email и приложить его к задаче

Question

У меня есть цикл, где я создаю электронную почту и задание. Мне нужно найти автоматическую отправку электронной почты и прикрепить ее к созданной задаче, сохранить и закрыть.

Ниже приведен очень упрощенный код для создания электронной почты и задачи и оставить их в режиме отображения слева для ручной отправки и присоединения в задаче.

Dim olApp As Object 
Dim ns As Object 
Dim oltask As Object 
Dim SharedFolder As Object 
Dim MyApp As Object 

Set MyApp = CreateObject("Outlook.Application") 
for i = 0 to 3 
    If IsObject(MyApp) Then 
     Set MyItem = MyApp.CreateItem(0) 'olMailItem 
     With MyItem 
      .SentOnBehalfOfName = "Email@email.com" 
      .Bcc = Contact 
      .Subject = "SUBJECT" 
      .ReadReceiptRequested = False 
      .HTMLBody = Email_body 
      .Attachments.Add attachement_pdf 
      .Display 
     End With 
     'MyItem.Send 'to send an email 

     Set ns = MyApp.GetNamespace("MAPI") 
     ns.logon 
     Set Recip = ns.CreateRecipient("Inboxname") 
     Set SharedFolder = ns.GetSharedDefaultFolder(Recip, 13) 
     Set oltask = SharedFolder.Items.Add("IPM.Task") 

     With oltask 
      .Subject = "SUBJECT" 
      .StartDate = Date 
      .DueDate = Date + 7 
      .Status = 1 
      .Importance = 1 
      .ReminderSet = False 
      .body = task_body 
      .Display 
      .Attachments.Add 'HOW TO ADD SENT EMAIL? 
     End With 
     'oltask.Save 'save the task 
    End if 
Next i 

P.S. Outlook 2013

Answer 1

К сожалению, это не так просто, как хотелось бы. Вам нужно подождать, пока сообщение электронной почты будет отправлено, прежде чем вы сможете добавить его в качестве объекта в исходный параметр метода TaskItem.Attachments.Add. Это означает, что вам нужно будет сначала отправить свои электронные письма, а затем следить за событием Folder.Items.ItemAdd для папки «Отправленные». Параметр Item события ItemAdd предоставит вам доступ к MailItem, который был добавлен в эту папку только после доставки.