2

有谁知道这是否可能?除了回忆发件人和收件人都必须使用 Exchange 并且电子邮件必须在收件人端未读之外,我找不到太多有关这样做的信息。很少有需要这样做的情况,但即便如此,知道它还是有用的。

编辑

  • Outlook 2010 是我正在使用的版本。
4

1 回答 1

3

“Recall This Message”的 FindControl ID 是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 中工作,您没有发布您的版本,所以我不确定此解决方案是否适合您。

于 2012-06-26T18:13:36.953 回答