MailItem.CustomAction-Ereignis (Outlook)

Artikel
04/07/2023

Tritt auf, wenn eine benutzerdefinierte Aktion eines Elements (bei dem es sich um eine Instanz des übergeordneten Objekts handelt) ausgeführt wird.

Syntax

Ausdruck. CustomAction( _Action_ , _Response_ , _Cancel_ )

Ausdruck Eine Variable, die ein MailItem-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Aktion	Erforderlich	Objekt	Das Action -Objekt.
Response	Erforderlich	Objekt	Das neu erstellte Element, das durch die benutzerdefinierte Aktion entsteht.
Cancel	Erforderlich	Boolean	(In VBScript nicht verwendet). False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festgelegt wird, wird die benutzerdefinierte Aktion nicht abgeschlossen.

HinwBemerkungeneise

Das Action -Objekt und das durch die benutzerdefinierte Aktion neu erstellte Element werden an das Ereignis übergeben.

Wenn Sie den Rückgabewert dieser Funktion auf False festlegen, wird die benutzerdefinierte Aktion in Microsoft Visual Basic Scripting Edition (VBScript) nicht abgeschlossen.

Beispiel

Visual Basic für Applikationen (VBA) wird verwendet das CustomAction -Ereignis, die Subject -Eigenschaft für die Antwortelement festgelegt. Führen Sie die Prozedur AddAction , bevor die Initialize_Handler zum Erstellen eines Elements mit ein benutzerdefiniertes Ereignis ausführen "Link Original" aufgerufen.

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Sub AddAction() 
 
 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.Subject = "Before" 
 
 myItem.Send 
 
End Sub 
 
 
 
Sub Initialize_Handler() 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
End Sub 
 
 
 
Private Sub myItem_CustomAction(ByVal Action As Object, ByVal Response As Object, Cancel As Boolean) 
 
 Select Case Action.Name 
 
 Case "Link Original" 
 
 Response.Subject = "Changed by VB Script" 
 
 Case Else 
 
 End Select 
 
End Sub

Siehe auch

MailItem-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.