Créer un rdv dans un calendrier outlook

Question

Bonjour, 
J'aimerais cr&#233;er un rdv dans un calendrier outlook (2000) que j'ai cr&#233;&#233; (j'ai donc 2 calendrier: le clendrier par d&#233;faut de outlook et celui que j'ai cr&#233;&#233;: "essai")
dans mon code:
Sub test()
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim olns As Outlook.NameSpace
Dim MycalendarFolder As Outlook.MAPIFolder
Dim MyFolder As Outlook.Items


Set objOutlook = CreateObject("Outlook.Application")
Set olns = objOutlook.GetNamespace("MAPI")
Set MycalendarFolder = olns.GetDefaultFolder(olFolderCalendar)
'Selectionne le calendrier
'Selectionne le calendrier
Set MyFolder = MycalendarFolder.Folders.Item("essai")
Set objAppt = MyFolder.Add
With objAppt
  .Start = "25/06/2005" & " " & "14:00"
  .Duration = 15
...

J'ai une erreur sur Set MyFolder = MycalendarFolder.Folders.Item("essai")
 "Erreur d'ex&#233;cution '-555482865 (dee4010f)': Impossible d'&#233;x&#233;cuter l'op&#233;ration. Impossible de trouver un objet."


Comment je peux faire pour s&#233;lectionner le calendrier "essai"?


Merci

Samuel LEMARIE · Answer

Salut,

   Tout d'abord merci car ton mess m'a permis de faire ce que je voulais.
   Ensuite, j'ai trouv&#233; mon deuxi&#232;me calendrier ici :
          Set MyFolder = MycalendarFolder.Items.Parent.Folders.Item("Calendrier pointage").Items

   Mais vu la date de ton mess, c'est peu &#234;tre un peu tard.

   Bye

Créer un rdv dans un calendrier outlook

1 réponse

Discussions similaires