Outlook VBA教程:Progress事件

当 Microsoft Outlook 使用指定的同步配置文件同步处理用户文件夹时周期性地发生。该事件在 VBScript 中不可用。

Sub object_Progress(ByVal State As OlSyncState, ByVal Description As String, ByVal Value As Long, ByVal Max As Long)

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

State  必选。确定同步进程的当前状态的值。可以是以下 OlSyncState 常量之一:olSyncStarted 或 olSyncStopped。

Description  必选。同步进程当前状态的文字说明。

Value  必选。指定同步进程的当前值(如,已同步处理的项目数目)。

Max  必选。Value 可以达到的最大值。Value 与 Max 的比值代表同步进程完成的百分比。

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_Progress(ByVal State As Outlook.OlSyncState, ByVal Description As String, ByVal Value As Long, ByVal Max As Long)
    If State = olSyncStarted then
        Cap = "Synchronization started: "
    Else
        Cap = "Synchronization stopped: "
    End If
    Cap = Cap & Str(State / Max * 100) & "% " & Description
    Form1.Label1.Caption = Cap
End Sub

上页:Outlook VBA教程:OptionsPagesAdd事件 下页:Outlook VBA教程:PropertyChange事件

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事件 Outlook VBA教程:ViewAdd事件
Outlook VBA教程:ViewRemove事件 Outlook VBA教程:ViewSwitch事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号