Explorer. BeforeItemCut-Ereignis (Outlook)
Tritt ein, wenn ein Outlook-Element in einem Ordner ausgeschnitten wird.
Syntax
Ausdruck.
BeforeItemCut( _Cancel_ )
Ausdruck Eine Variable, die ein Explorer -Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Abbrechen | Erforderlich | Boolean | False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festgelegt wird, ist nicht abgeschlossen und das Element wird nicht gelöscht. |
Hinweise
Dieses Ereignis kann nach dem Auslösen abgebrochen werden. Wenn das Ereignis abgebrochen wird, wird das Element nicht entfernt werden.
Beispiel
Im folgenden Beispiel für Microsoft Visual Basic für Applikationen (VBA) wird der Benutzer mit einer Warnmeldung benachrichtigt, bevor das Objekt im Ordner ausgeschnitten wird. Wenn der Benutzer auf Yes klickt, wird das Objekt im Ordner ausgeschnitten. Wenn der Benutzer auf No klickt, wird das Objekt nicht aus dem Ordner entfernt. Der Beispielcode muss in einem Klassenmodul wie ThisOutlookSessionplatziert werden, und die Initialize_handler Routine muss aufgerufen werden, bevor die Ereignisprozedur von Microsoft Outlook aufgerufen werden kann.
Public WithEvents myOlExp As Outlook.Explorer
Sub Initialize_Handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeItemCut(Cancel As Boolean)
'Prompts the user before cutting an item
Dim lngAns As Long
'Display question to user
lngAns = MsgBox("Are you sure you want to cut the item?", vbYesNo)
'Set cancel argument based on user's answer
If lngAns = vbYes Then
Cancel = False
ElseIf lngAns = vbNo Then
Cancel = True
End If
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.