MailItem.Write-Ereignis (Outlook)
Tritt auf, wenn eine Instanz des übergeordneten Objekts gespeichert wird, entweder explizit (z. B. mithilfe der Methode Save oder SaveAs ) oder implizit (z. B. als Reaktion auf eine Eingabeaufforderung, wenn der Inspektor des Elements geschlossen wird).
Syntax
Ausdruck.
Write( _Cancel_ )
Ausdruck Eine Variable, die ein MailItem-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Abbrechen | Erforderlich | Boolean | (In VBScript nicht verwendet). False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf true fest, der Speichervorgang festlegt ist nicht abgeschlossen. |
Hinweise
In Microsoft Visual Basic Scripting Edition (VBScript), wenn Sie den Rückgabewert dieser Funktion auf false festgelegt, die festgelegt ist nicht abgeschlossen.
Beispiel
Visual Basic für Applikationen (VBA) wird das Write -Ereignis verwendet und informiert den Benutzer das Element gespeichert werden sollen und überschreibt ein vorhandenes Element und, je nach Antwort des Benutzers entweder ermöglicht den Vorgang fortgesetzt oder beendet. Wenn dieses Ereignis abgebrochen wird, wird Microsoft Outlook eine Fehlermeldung angezeigt. Daher müssen Sie dieses Ereignis im Code zu erfassen. Eine Möglichkeit hierzu ist unten dargestellt. Der Beispielcode muss in einem Klassenmodul wie ThisOutlookSessionplatziert werden, und die Initialize_Handler() Unterroutine muss aufgerufen werden, bevor die Ereignisprozedur von Outlook aufgerufen werden kann.
Public WithEvents myItem As Outlook.MailItem
Private Sub myItem_Write(Cancel As Boolean)
Dim myResult As Integer
myItem = "The item is about to be saved. Do you wish to overwrite the existing item?"
myResult = MsgBox(myItem, vbYesNo, "Save")
If myResult = vbNo Then
Cancel = True
End If
End Sub
Public Sub Initialize_Handler()
Const strCancelEvent = "Application-defined or object-defined error"
On Error GoTo ErrHandler
Set myItem = Application.ActiveInspector.CurrentItem
myItem.Save
Exit Sub
ErrHandler:
MsgBox Err.Description
If Err.Description = strCancelEvent Then
MsgBox "The event was cancelled."
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.