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 支持和反馈,获取有关如何接收支持和提供反馈的指南。