Synchroniser outlook 2003 et gmail

[kamui4118]

Bonjour,

Après plusieurs mois de recherche, j'ai trouver sur ce site une macro afin de synchroniser mon calendrier outlook et gmail (je passe par une macro car je suis au boulot et que tout est bloqué)

J'ai trouvé une macro qui fait partiellement ce que je demande :

Sub export()

Dim objOutlook As New Outlook.Application
Dim objOutlookAppt As Outlook.AppointmentItem
Dim objOutlookAppt_tbs As Outlook.AppointmentItem
Dim objOutlookCalendar As Outlook.Items
Dim objOutlookNameSpace As Outlook.NameSpace

Dim DaysToSync As Integer
Dim Dest As String
Dim Subject As String
Dim Date_deb() As String

' TO BE ADAPTED
'#################################################
Dest = "xxxxxx@gmail.com"
DaysToSync = 14
'#################################################

Set objOutlookNameSpace = objOutlook.GetNamespace("MAPI")
Set objOutlookCalendar = objOutlookNameSpace.GetDefaultFolder(olFolderCalendar).Items

objOutlookCalendar.Sort "[Start]"
objOutlookCalendar.IncludeRecurrences = True

datedebut = Date
datefin = DateAdd("yyyy", 1, datedebut)
datedebut = Replace(datedebut, ".", "/")
datefin = Replace(datefin, ".", "/")

Set objOutlookAppt = objOutlookCalendar.Find("[Start] >= '" & datedebut & "' and [Start] <= '" & datefin & "'")

'-------------------------------------------------------------------'
' '
While TypeName(objOutlookAppt) <> "Nothing"

If objOutlookAppt.Categories <> "Synchronized" Then

Set objOutlookAppt_tbd = Outlook.CreateItem(olAppointmentItem)
objOutlookAppt_tbd.Subject = objOutlookAppt.Subject
objOutlookAppt_tbd.Location = objOutlookAppt.Location
objOutlookAppt_tbd.MeetingStatus = olMeeting
objOutlookAppt_tbd.Start = objOutlookAppt.Start
objOutlookAppt_tbd.End = objOutlookAppt.End
objOutlookAppt_tbd.RequiredAttendees = Dest
objOutlookAppt_tbd.Body = objOutlookAppt.Body
objOutlookAppt_tbd.Send
objOutlookAppt_tbd.Delete

objOutlookAppt.Categories = "Synchronized"
objOutlookAppt.Save
End If

Set objOutlookAppt_tbd = Nothing
Set objOutlookAppt = objOutlookCalendar.FindNext

Wend
'-------------------------------------------------------------------'

End Sub

Cette macro marche très bien pour la création de RDV ou réunion, mais si elle est supprimé ou modifié, la macro ne fonctionne plus.

J'ai essayé de chercher quelque temps, mais je n'ai rein trouvé et je suis assez mauvais sur du VBA.

Pouvez vous m'aider à intégrer dans cette macro une mise à jour du calendrier afin vérifier les suppressions ou modification ??

Merci pour aide
amicalement

[kamui4118]

N'y a t'il personne pour m'aider ??? <:-(