Discussion :

[Gaoyang]

Bonjour à tous!

Je veux récupérer des infos via un calendrier outlook partagé ( ce n'est pas le calendrier par défaut, c'est un calendrier que j'ai crée, il est dans le même répertoire que celui par défaut..), et j'ai fais comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim oApp As Outlook.Application = New Outlook.Application()
Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
Dim myRecipient As Outlook.Recipient = oNS.CreateRecipient("XXX")
Dim oCalendar As Outlook.MAPIFolder = oNS.GetSharedDefaultFolder(myRecipient, Outlook.OlDefaultFolders.olFolderCalendar)
Dim oItems As Outlook.Items = oCalendar.Items
    For Each oAppt As Outlook.AppointmentItem In oItems
                ListBox1.Items.Add(oAppt.Organizer)
                ListBox1.Items.Add(oAppt.Subject)
                ListBox1.Items.Add(oAppt.Start.ToString())
                ListBox1.Items.Add(oAppt.End.ToString())
            Next

Mais le problème c'est que le calendrier qui a été afficher est toujour le calendrier par défaut mais pas le calendrier partagé



Merci d'avance!