Transfert calendrier Outlook vers Google Agenda

Question

Bonjour,

Je souhaite réaliser un module en VBA sur Excel destiné à transférer le calendrier Outlook vers Google Agenda.

le problème : je ne parviens pas à récupérer les RdV périodiques. 

Je pense que le "IncludeRecurrences = True" devrait me permettre d'y arriver mais impossible de le paramétrer correctement. Où et comment le placer dans la procédure ?

Voici le code :

Sub export2()
   Dim dirLocation As String
   Dim calendar As Outlook.MAPIFolder
    Dim objApplication As Outlook.Application
    Dim objNameSpace As Outlook.NameSpace
    Dim objAppointments As Outlook.MAPIFolder
    Dim objAppointment As Outlook.AppointmentItem
    Dim appointmentIndex As Integer
    Set objApplication = CreateObject("Outlook.Application")
    Set objNameSpace = objApplication.GetNamespace("MAPI")
    Set objAppointments = objNameSpace.GetDefaultFolder(olFolderCalendar)
     dirLocation = "P:\CALtest.csv"
     
    Open dirLocation For Output As #6
    titre = """Objet"",""Début"",""Début"",""Fin"",""Fin"""
    Print #6, """Objet"",""Début"",""Début"",""Fin"",""Fin"""
    For appointmentIndex = 1 To objAppointments.Items.Count
    
    Set objAppointment = objAppointments.Items.Item(appointmentIndex)
     Print #6, """" & objAppointment.Subject & """,""" & Format(objAppointment.Start, "d/m/yyyy") & """,""" & _
     Format(objAppointment.Start, "hh:mm:ss") & """,""" & Format(objAppointment.Start, "d/m/yyyy") & """,""" & _
     Format(objAppointment.Start, "hh:mm:ss") & """"
    Next
    
    Close #6
    
End Sub

Col.

cs_Col · Answer

Alors, personne ?

cs_zefire · Answer

Bonjour,

je recherche a faire aussi cette fonction via XLS à tu trouver la solution depuis 2007 ?

aymeric.bricard@zefire.fr

merci pour ta reponse

Zefire

Transfert calendrier Outlook vers Google Agenda

2 réponses

Votre réponse

Discussions similaires