MailItem.Open-Ereignis (Outlook)
Tritt auf, wenn eine Instanz des übergeordneten Objekts in einem Inspector geöffnet wird.
Syntax
Ausdruck. Öffnen (Abbrechen)
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 festlegt, wird der Vorgang des Öffnens nicht abgeschlossen und der Inspektor nicht angezeigt. |
Hinweise
Wenn dieses Ereignis eintritt, das Inspector -Objekt initialisiert, aber noch nicht angezeigt. Das Open -Ereignis unterscheidet sich von der Read -Ereignis, insofern eintritt, wenn der Benutzer das Element in einer Ansicht auswählt, dass in der Zelle bearbeiten ermöglicht, und wenn das Element in einem Inspektor geöffnet wird.
In Microsoft Visual Basic Scripting Edition (VBScript), wenn Sie den Rückgabewert dieser Funktion auf False festlegen, wird der Vorgang zum Öffnen nicht abgeschlossen und der Inspektor nicht angezeigt.
Beispiel
In diesem beispiel für Visual Basic for Applications (VBA) wird das Open-Ereignis verwendet, um die Seite "Alle Felder" bei jedem Öffnen des Elements anzuzeigen.
Public WithEvents myItem As Outlook.MailItem
Sub Initialize_handler()
Set myItem = Application.Session.GetDefaultFolder(olFolderInbox).Items(1)
myItem.Display
End Sub
Private Sub myItem_Open(Cancel As Boolean)
myItem.GetInspector.SetCurrentFormPage "All Fields"
End Sub
In diesem Visual Basic for Applications Beispiel wird die Unread-Eigenschaft verwendet, um zu erkennen, ob das Element zuvor gelesen wurde. Wenn dies der Fall ist, wird angefragt, ob der Benutzer das Element öffnen möchte. Wenn der Benutzer mit Nein antwortet, wird der zurückgegebene Wert auf False festgelegt, um zu verhindern, dass das Element geöffnet wird.
Public WithEvents myItem As Outlook.MailItem
Sub Initialize_handler()
Set myItem = Application.Session.GetDefaultFolder(olFolderInbox).Items(1)
myItem.Display
End Sub
Private Sub myItem_Open(Cancel As Boolean)
Dim mymsg As String
If myItem.UnRead = False Then
mymsg = "You have already read this message. Do you want to open this message again?"
If MsgBox(mymsg, 4) = 6 Then
Cancel = False
Else
Cancel = True
End If
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.