Outlook：VBA

【初心者向け】Outlook マクロ（VBA）を使って時短しよう！
Outlook VBAのオブジェクトについて - エク短｜Extan.jp
Inspector.CurrentItem プロパティ (Outlook) | Microsoft Learn

Sub GetAppActInsCurrItem()

  Dim objIns As Inspector
  Dim objItem As Object
  
  Set objIns = Application.ActiveInspector
  If objIns Is Nothing Then Exit Sub
  
  Set objItem = objIns.CurrentItem   '今開いているメールのMailItemオブジェクトを取得

  Debug.Print objItem.SendUsingAccount.SmtpAddress
  Debug.Print objItem.SenderName
  Debug.Print objItem.To
  Debug.Print objItem.CC
  Debug.Print objItem.BCC
  Debug.Print objItem.Body

End Sub