通过

Actions.Add 方法 (Outlook)

  • 项目

在 Actions 集合中创建一个新操作。

语法

表达式。添加

表达 一个代表 Actions 对象的变量。

返回值

一个代表新操作的 Action 对象。

示例

本 VBA 示例创建一封新邮件，并使用 Add 方法可向它添加 操作 。 若要运行此示例时不出错，请用有效的收件人姓名替换 Dan Wilson。

Sub AddAction() 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myAction As Outlook.Action 
 
 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 Set myAction = myItem.Actions.Add 
 
 myAction.Name = "Link Original" 
 
 myAction.ShowOn = olMenuAndToolbar 
 
 myAction.ReplyStyle = olLinkOriginalItem 
 
 myItem.To = "Dan Wilson" 
 
 myItem.Send 
 
End Sub

另请参阅

操作对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。