Dim OLmail As Outlook.MailItem
Dim pceJointe As Outlook.Attachment
Dim myFolder As Outlook.Folder
Set olApp = CreateObject("Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set olxFolder = olNs.GetDefaultFolder(6)
Set myNameSpace = olNs
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
On Error Resume Next
Application.ScreenUpdating = False
Set nsp = olNs
Set sycs = nsp.SyncObjects
For i = 1 To sycs.Count
Set syc = sycs.item(i)
syc.Start
Next