Discussion :

[Wanaka]

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...

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

Quelq'un arriverait-il à me conseiller, car là je tourne vraiment en rond...

Merci d'avance!

[Oliv-]

Bonsoir,

GetItemFromID ne peut être appelé que par un objet NameSpace or la seconde fois tu le lances sur FldDossier qui selon moi doit DEJA désigner ton ID

ESSAYE DE FAIRE UN POINT d'ARRET et REGARDE DANS TA "FENETRE VARIABLES LOCALES"

[Wanaka]

Bonjour Oliv-

Merci pour ta réponse, et désolé que la mienne soit tardive (je suis en vacances... :-)
Ok, je vais regardé comme conseillé et voir ce que je peux faire!

Merci!!