OnStatusChange 方法

通知 Microsoft Outlook 更改了自定义属性页。

expression  必选。该表达式返回 PropertyPageSite 对象。

示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例说明如何调用 OnStatusChange 方法来通知 Microsoft Outlook 用户已更改了自定义属性页中的值。

Private Sub Option1_Click()
    Dim myPPSite As Outlook.PropertyPageSite
    Set myPPSite = Parent
    If Not TypeName(myPPSite) = "Nothing" Then
        globNewUserType = globAdministrator
       If globUserType <> globNewUserType Then
        globDirty = True
        myPPSite.OnStatusChange
       End If
    Else
       If TypeName(myPPSite) = "Nothing" Then
         MsgBox "The Property Page returned an empty result."
       End If
    End If
End Sub