Bonjour,
La question semble bete, et revue plein de fois dans les nombreux forum, mais pour autant je n'arrive pas à sélectionner un répertoire dans Outlook d'après son ID...
Quelq'un arriverait-il à me conseiller, car là je tourne vraiment en rond...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub test_SBR() Dim MonAppli As Outlook.Application Dim MonNSpace As Outlook.NameSpace Dim FldDossier, Dossier As Outlook.folder Dim I As Integer Set MonAppli = Outlook.Application Set MonNSpace = Outlook.GetNamespace("MAPI") Set FldDossier = MonNSpace.GetFolderFromID("000000001A447390AA6611CD9BC800AA002FC45A0300B9044DD0E4CCFF4BABA2914C08269AE400000D9871670000") 'ICI SE TROUVE MON ERREUR Set SelectionRepertoire = FldDossier.GetItemFromID("000000001A447390AA6611CD9BC800AA002FC45A0300B9044DD0E4CCFF4BABA2914C08269AE400000D9871670000") Set MonAppli = Nothing Set MonAppli = Nothing Set MonAppli = Nothing End Sub
Merci d'avance!
Partager