当 Microsoft Outlook 使用指定的同步配置文件同步处理用户文件夹遇到错误时发生。该事件在 VBScript 中不可用。
Sub object_OnError(ByVal Code As Long, ByVal Description As String)
object 该表达式的值为 SyncObject 对象。
Code 标识该错误的唯一值。
Description 必选。该错误的文字说明。
本示例显示说明同步错误的消息框,并设置窗体中控件的属性。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler
例程。
Dim myOlApp As New Outlook.Application
Dim WithEvents mySync As Outlook.SyncObject
Dim myForm As New Form1
Sub Initialize_handler()
Set mySync = myOlApp.Session.SyncObjects.Item(1)
End Sub
Private Sub mySync_OnError(ByVal Code As Long, ByVal Description As String)
Form1.Label1.Caption = "Synchronization failed."
mySync.Stop
Form1.Command1.Enabled = False
Form1.Command2.Enabled = False
MsgBox "Unexpected sync error" & Str(Code) & ": " & Description
End Sub