通过

NameSpace.SyncObjects 属性 (Outlook)

  • 项目

返回包含所有 Send\Receive 组 的 SyncObjects 集合。 此为只读属性。

语法

expression。 SyncObjects

表达 一个代表 NameSpace 对象的变量。

示例

此 Microsoft Visual Basic for Applications (VBA) 示例显示为用户设置的所有发送和接收组，并根据用户的响应启动同步。

Public Sub Sync() 
 
 Dim nsp As Outlook.NameSpace 
 
 Dim sycs As Outlook.SyncObjects 
 
 Dim syc As Outlook.SyncObject 
 
 Dim i As Integer 
 
 Dim strPrompt As Integer 
 
 Set nsp = Application.GetNamespace("MAPI") 
 
 Set sycs = nsp.SyncObjects 
 
 For i = 1 To sycs.Count 
 
 Set syc = sycs.Item(i) 
 
 strPrompt = MsgBox("Do you wish to synchronize " & syc.Name &"?", vbYesNo) 
 
 If strPrompt = vbYes Then 
 
 syc.Start 
 
 End If 
 
 Next 
 
End Sub

另请参阅

命名空间对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。