Abbrechen eines Ereignisses

Outlook calls event handlers in your program to allow your program to respond to such events as actions that the user takes or changes in the message store. Jedes Ereignis wird von einer Standardaktion begleitet, die Outlook als Reaktion auf das Ereignis ausführt. Wenn zum Beispiel das Open-Ereignis bei einem Objekt eintritt, zeigt Outlook das Objekt standardmäßig in einem Inspektor-Fenster an.

Einige Ereignisse melden Ihrem Programm lediglich, dass ein bestimmtes Ereignis eingetreten ist. Im Fall dieser Ereignisse reagiert Ihr Ereignishandler einfach auf das Ereignis. With other events, Outlook allows your event handler to cancel the event, that is, to instruct Outlook not to perform the default action associated with the event. Beispielsweise kann Ihr Programm im Fall des Open-Ereignisses Outlook daran hindern, das Element in einem Inspektor anzuzeigen. Wenn ein Ereignis abgebrochen werden kann, ist unter dem Thema der Referenz zum jeweiligen Ereignis dargelegt, wie das Ereignis abgebrochen wird.

Wenn ein Ereignis abgebrochen werden kann, erhält ein in Microsoft Visual Basic oder Microsoft Visual Basic für Applikationen geschriebener Ereignishandler einen Parameter, der vor der Rückgabe gesetzt wird, um anzuzeigen, ob das Ereignis abgebrochen werden soll. Bei einem in Microsoft Visual Basic für Applikationen für das Open-Ereignis geschriebenen Ereignishandler könnte dies wie im folgenden Beispiel realisiert werden. This example assumes that the value of OpenOK is set elsewhere.

Sub myItem_Open(byRef Cancel as Boolean) 
 If OpenOK Then 
 Cancel = False ' Outlook performs default action 
 Else 
 Cancel = True ' Outlook does not perform default action 
 EndIf 
End Sub

Because of limitations in VBScript, however, this syntax cannot be used. An event handler for the Open event in the script of an item must be written as a function. To cancel the event, the value of the function is set to False before returning, as in the following example.

Function Item_Open() 
 If OpenOK Then 
 Item_Open = True ' Outlook performs default action 
 Else 
 Item_Open = False ' Outlook does not perform default action 
 End If 
End Function

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.