outlook - Outlook / Exchangeを介してプログラムで電子メールを呼び出す方法はありますか？

Question

これが可能かどうか誰かが知っていますか？送信者と受信者の両方がExchangeを使用している必要があり、受信者側で電子メールを未読にする必要があるメッセージを思い出す以外に、そうすることに関する多くの情報を見つけることができません。これを行う必要がある場合はめったにありませんが、それでも知っておくと便利です。

編集

• Outlook 2010は、私が使用しているバージョンです。

Answer 1

「このメッセージを呼び出す」のFindControlIDは2511であるため、次のようなコードを使用できます。

Sub SendRecall()

  Dim obj As Object
  Dim msg As Outlook.mailItem
  Dim insp As Outlook.Inspector

  ' get selected item
  Set obj = ActiveExplorer.Selection.item(1)

  If TypeName(obj) = "MailItem" Then
    Set msg = obj
    Set insp = msg.GetInspector
    ' execute the command button for "Recall this message"
    With insp
      .Display
      .CommandBars.FindControl(, 2511).Execute
      .Close olDiscard
    End With
  End If
End Sub

Outlook 2003で動作しますが、バージョンを投稿していないため、このソリューションが機能するかどうかはわかりません。