Свойство MailItem.Actions (Outlook)

Возвращает коллекцию Actions , представляющую все доступные действия для элемента. Только для чтения.

Синтаксис

выражение. Actions

Выражение Переменная, представляющая объект MailItem .

Пример

В этом примере Visual Basic для приложений (VBA) создается новый почтовый элемент и используется метод Actions.Add для добавления в него action. Затем он отправляет почтовый элемент текущему пользователю. Полученный почтовый элемент будет иметь действие Принять в дополнение к стандартным действиям, таким как Ответить и Ответить всем.

Sub AddAction() 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myAction As Outlook.Action 
 
 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 Set myAction = myItem.Actions.Add 
 
 myAction.Name = "Agree" 
 
 myItem.To = Application.GetNamespace("MAPI").CurrentUser 
 
 myItem.Send 
 
End Sub

В следующем Visual Basic для приложений примере создается новый почтовый элемент и используется метод Actions.Add для добавления к нему действияс именем Link Original. При выполнении этого действия вставляется ссылка на исходный почтовый элемент.

Sub AddAction2() 
 
 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

См. также

Объект MailItem

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.