Событие Application.ItemSend (Outlook)

Статья
04/07/2023

Происходит каждый раз, когда элемент Microsoft Outlook отправляется пользователем через инспектор (до закрытия инспектора, но после нажатия кнопки Отправить ) или при использовании в программе метода Send для элемента Outlook, например MailItem.

Синтаксис

выражение. ItemSend( _Item_ , _Cancel_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Элемент	Обязательный	Object	Отправляемый элемент.
Отмена	Обязательный	Boolean	Значение false при возникновении события. Если процедура события задает этому аргументу значение True, действие отправки не завершено и инспектор остается открытым.

Замечания

Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).

Пример

В следующем примере Microsoft Visual Basic для приложений (VBA) показано, как отменить событие ItemSend в ответ на ввод пользователем. Пример кода должен быть помещен в модуль класса, а подпрограмма должна быть вызвана Initialize_handler , прежде чем процедура события может быть вызвана Outlook.

Public WithEvents myOlApp As Outlook.Application 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 
 
 
 
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean) 
 
 Dim prompt As String 
 
 prompt = "Are you sure you want to send " & Item.Subject & "?" 
 
 If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub

См. также

Объект Application

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

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

Поделиться через