Hi zusammen,
folgende Ausgangslage: Ich möchte einen bestimmten Ordner (bzw. eine bestimmte Sende-Empfangen-Gruppe) mittels Code synchronisieren. Das klappt auch. Allerdings ist für ein anschließendes Makro wichtig, dass die Synchronisation komplett durchgelaufen ist.
Das Mittel der Wahl scheint ja das syncEnd()-Event zu sein, allerdings feuert es bei mir einfach nicht (syncStart() aber beispielsweiße schon). Die Lösung wäre echt wichtig für mich, nur ich weiß einfach nicht weiter (hab in VBA auch wenig Erfahrung). Wäre für jede Hilfe sehr dankbar!
Quellcode:
-
Klassenmodul: SynchroCheck
Dim WithEvents mySync As Outlook.SyncObject
Sub Initialize_handler()
Set mySync = Application.Session.SyncObjects.Item(1)
mySync.Start
End Sub
Private Sub mySync_SyncEnd()
MsgBox ("Abgeschlossen!")
// Rufe nachfolgendes Makro ...
End Sub
-
Modul (zum Initialisieren und Aufrufen)
Sub main()
Dim x As SynchroCheck
Set x = New SynchroCheck
x.Initialize_handler
End Sub
Vielen Dank an alle!
Maximilian
|