MailItem.CustomAction-Ereignis (Outlook)
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. |
Hinweise
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
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.