Outlook VBA教程:OnError事件

当 Microsoft Outlook 使用指定的同步配置文件同步处理用户文件夹遇到错误时发生。该事件在 VBScript 中不可用。

Sub object_OnError(ByVal Code As Long, ByVal Description As String)

object  该表达式的值为SyncObject对象。

Code  标识该错误的唯一值。

Description  必选。该错误的文字说明。

VBA示例

本示例显示说明同步错误的消息框,并设置窗体中控件的属性。示例代码必须放在类模块中,并且在 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

上页:Outlook VBA教程:NewMail事件 下页:Outlook VBA教程:Open事件

Outlook VBA教程:OnError事件:相关链接

Outlook VBA教程:Open事件 Outlook VBA教程:OptionsPagesAdd事件
Outlook VBA教程:Progress事件 Outlook VBA教程:PropertyChange事件
Outlook VBA教程:Quit事件 Outlook VBA教程:Read事件
Outlook VBA教程:Reminder事件 Outlook VBA教程:ReminderAdd事件
Outlook VBA教程:ReminderChange事件 Outlook VBA教程:ReminderFire事件
Outlook VBA教程:ReminderRemove事件 Outlook VBA教程:Reply事件
Outlook VBA教程:ReplyAll事件 Outlook VBA教程:SelectionChange事件
Outlook VBA教程:Send事件 Outlook VBA教程:ShortcutAdd事件
Outlook VBA教程:Snooze事件 Outlook VBA教程:Startup事件
Outlook VBA教程:SyncEnd事件 Outlook VBA教程:SyncStart事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号