Saving Message ID / Conversation ID to spreadsheet

[pkearney10]

Hello,

I have a macro to automatically send emails from a spreadsheet, and then log the date sent. How can I also log the Message ID / Conversation ID from the send message?

VBA Below:

Thanks!

Sub Mailing_Request_Macro()
  Dim f As Range, source As Worksheet, master As Worksheet, s As String, StrBody As String
  Dim olApp As Outlook.Application, olMail As Outlook.MailItem
  
  Set source = Worksheets("Request List")
  Set master = Worksheets("Master List")
  Set olApp = New Outlook.Application
  
      Set f = master.Range("A:A").Find(c.Value)
      Set olMail = olApp.CreateItem(olMailItem)
      With olMail
      .Display
        .To = f.Offset(, 3).Value 
        .CC = f.Offset(, 4).Value
        .Subject = "Reminder Email"
       
       StrBody = "Hello, this is a Reminder" & vbCrLf & vbCrLf
        .HTMLBody = StrBody & .HTMLBody
        '.Send
      End With
      .Offset(, 3).Value = Date   'Source sheet, Date sent.
    End With
  
  On Error Resume Next
  Set olMail = Nothing
  Set olApp = Nothing
End Sub