全部显示

Execute 方法

执行对应于指定项目的动作。返回由此动作所创建的 Microsoft Outlook 项目。

expression  必选。该表达式返回 Action 对象。

示例

本 Visual Basic for Applications 示例使用 Execute 方法在给定邮件的所有动作中查找并执行名为“答复所有人”的动作。

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
On Error GoTo ErrorHandler
Set myItem = myOlApp.ActiveInspector.CurrentItem
For Each a In myItem.Actions
    If a.Name = "Reply to All" Then
        Set myItem2 = a.Execute
        Exit For
    End If
Next a
Exit Sub
ErrorHandler:
    MsgBox "There is no current item!"