共用方式為


Open Event

Occurs when a Microsoft Outlook item is being opened in an Inspector. When this event occurs, the Inspector object is initialized but not yet displayed. The Open event differs from the Read event in that Read occurs whenever the user selects the item in a view that supports in-cell editing as well as when the item is being opened in an inspector.

Subobject**_Open(Cancel As Boolean)**

*object   * An expression that evaluates to one of the objects in the Applies To list. In VBScript, use the word Item.

Cancel Optional (not used in VBScript). False when the event occurs. If the event procedure sets this argument to True, the open operation is not completed and the inspector is not displayed.

Remarks

In Microsoft Visual Basic Scripting Edition (VBScript), if you set the return value of this function to False, the open operation is not completed and the inspector is not displayed.

Example

This Visual Basic for Applications (VBA) example uses the Open event to display the "All Fields" page every time the item is opened.

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

This Visual Basic for Applications example uses the Unread property to detect whether the item has been previously read. If it has, then it asks if the user wants to open it. If the user answers No, the return value is set to False to prevent the item from opening.

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

Applies to | AppointmentItem Object | ContactItem Object | DistListItem Object | DocumentItem Object | JournalItem Object | MailItem Object | MeetingItem Object | PostItem Object | RemoteItem Object | ReportItem Object | TaskItem Object | TaskRequestAcceptItem Object | TaskRequestDeclineItem Object | TaskRequestItem Object | TaskRequestUpdateItem Object

See Also | Close Method | CustomAction Event | CustomPropertyChange Event | Forward Event | PropertyChange Event | Read Event | Reply Event | ReplyAll Event | Send Method | Using events with Automation | Write Event