Свойство NameSpace.SyncObjects (Outlook)

Статья
04/07/2023

Возвращает коллекцию SyncObjects, содержащую все группы отправки и получения. Только для чтения.

Синтаксис

выражение. SyncObjects

Выражение Переменная, представляющая объект NameSpace .

Пример

В этом примере Microsoft Visual Basic для приложений (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

См. также

Объект NameSpace

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через