barbiturix
XLDnaute Nouveau
Bonjour,
Je cherche à créer un RDV sur le calendrier “Sport" qui est synchronisé sur mon PC et mon smartPhone par iCloud
Mon bout de code fonctionne sur les calendriers de mon espace professionnel « MonJob » mais pas avec le Calendrier “Sport" qui est sur « iCLoud » Les 2 espaces « iCloud » et « MonJob » sont présents dans les calendriers Outlook sur mon PC
Après plusieurs recherches, je n’arrive pas à écrire le bon code.
Merci de votre aide
Ci-dessous je colle le code que j'utilise
Sub RDVSport()
Dim oOutlook As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.Namespace
Dim DossierCalendrier As Outlook.MAPIFolder
'creation des objets
Set oOutlook = CreateObject("Outlook.Application")
Set namespaceOutlook = oOutlook.GetNamespace("MAPI")
'definit le dossier calendrier
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar).Folders.Item("Sport")
'on cree un nouveau rendez-vous
Set oApointment = DossierCalendrier.Items.Add
With oApointment
.Start = "17/9/2021"
.AllDayEvent = True
.End = "19/9/2021"
.Subject = "essai RDV SPORT"
.Save
.Close (olSave)
End With
Set oAppointment = Nothing
Set oOutlook = Nothing
End Sub
Voici une capture "anonimisée" des calendriers d'Outlook que j'ai
Je cherche à créer un RDV sur le calendrier “Sport" qui est synchronisé sur mon PC et mon smartPhone par iCloud
Mon bout de code fonctionne sur les calendriers de mon espace professionnel « MonJob » mais pas avec le Calendrier “Sport" qui est sur « iCLoud » Les 2 espaces « iCloud » et « MonJob » sont présents dans les calendriers Outlook sur mon PC
Après plusieurs recherches, je n’arrive pas à écrire le bon code.
Merci de votre aide
Ci-dessous je colle le code que j'utilise
Sub RDVSport()
Dim oOutlook As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.Namespace
Dim DossierCalendrier As Outlook.MAPIFolder
'creation des objets
Set oOutlook = CreateObject("Outlook.Application")
Set namespaceOutlook = oOutlook.GetNamespace("MAPI")
'definit le dossier calendrier
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar).Folders.Item("Sport")
'on cree un nouveau rendez-vous
Set oApointment = DossierCalendrier.Items.Add
With oApointment
.Start = "17/9/2021"
.AllDayEvent = True
.End = "19/9/2021"
.Subject = "essai RDV SPORT"
.Save
.Close (olSave)
End With
Set oAppointment = Nothing
Set oOutlook = Nothing
End Sub
Voici une capture "anonimisée" des calendriers d'Outlook que j'ai
