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 "Synchronization is complete."
End Sub

mySession.LogonExchangeMailbox(env.is_post_email, env.is_post_server)
myNS = create OleObject
myNS.ConnectToNewObject("Outlook.NameSpace")
myNS = myOutlook.GetNamespace("MAPI")
myNS.Logon()
myNs.SyncObjects.Item(1).Start
sleep(60)