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.

HinwBemerkungeneise

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

MailItem-Objekt

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.