有谁知道这是否可能?除了回忆发件人和收件人都必须使用 Exchange 并且电子邮件必须在收件人端未读之外,我找不到太多有关这样做的信息。很少有需要这样做的情况,但即便如此,知道它还是有用的。
编辑
- Outlook 2010 是我正在使用的版本。
有谁知道这是否可能?除了回忆发件人和收件人都必须使用 Exchange 并且电子邮件必须在收件人端未读之外,我找不到太多有关这样做的信息。很少有需要这样做的情况,但即便如此,知道它还是有用的。
编辑
“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 中工作,您没有发布您的版本,所以我不确定此解决方案是否适合您。