[OL-2010] Se placer dans un calendrier partagé [Résolu]

[spidey89]

Bonjour à tous,

Je demande encore votre aide pour la chose suivante:

Je souhaite me placer sur un calendrier partagé (par exemple : le calendrier partagé de "John Smith") avec du code VBA. Je sais déjà me placer dans mon calendrier avec ce code:

Code :

1
2
3
Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Items

Je pense que pour ce "balader" sur d'autres calendriers on doit utiliser cette méthdoe? Une idée?

Merci d'avance pour votre aide.

Bonne journée

[Tryp']

Pour se placer dans un autre calendrier que celui par défaut, voilà une fonction qui "devrait" fonctionner :

Code :

1
2
3
4
5
6
7
8
 
Function AutreCalendrier(nomCalendrier As String) As Folder
 
    Dim myNameSpace As NameSpace
    Set myNameSpace = Application.GetNamespace("MAPI")
    Set AutreCalendrier = myNameSpace.GetDefaultFolder(olFolderCalendar).Folders.Item(nomCalendrier)
 
End Function

Cependant, je ne sais pas si ça s'applique aussi aux calendriers partagés. S'ils sont considérés de la même façon que les calendriers secondaires en local, alors ça devrait être bon.

[carden752]

Bonjour,

Non cela ne marche pas pour les calendriers partagés.
Il faut passer par un objet recipient et récupérer la valeur.

Code :

1
2
3
4
5
6
7
Dim myitem As AppointmentItem
Set myrecipient = Outlook.GetNamespace("MAPI").CreateRecipient("JohnSmith")
myrecipient.Resolve
If myrecipient.Resolved Then
  For Each myitem In Outlook.GetNamespace("MAPI").GetSharedDefaultFolder(myrecipient, olFolderCalendar).Items
'Traitment du calendrier
Next myitem

[spidey89]

Merci Tryp', mais cela ne fonctionne pas ,
En revanche la fonction de Carden752 fonctionne parfaitement.

En tout cas merci beaucoup à vous deux .
Bonne continuation