Est ce que sous "Medical Information Request"
il y a bien un dossier éléments envoyés ou sent ?
Essaye ce code
ou celui-ci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub Publicfolder() Set myNamespace = Application.GetNamespace("MAPI") Set myPublicFolder = myNamespace.GetDefaultFolder(olPublicFoldersAllPublicFolders).folder("Public Folders - MonEmail@masociete.com").folder("Medical Information Request") If Not myPublicFolder Is Nothing Then MsgBox myPublicFolder.Name End If End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub Publicfolder1() Set myNamespace = Application.GetNamespace("MAPI") Set myPublicFolder = myNamespace.GetDefaultFolder(olPublicFoldersAllPublicFolders).folder("Medical Information Request") If Not myPublicFolder Is Nothing Then MsgBox myPublicFolder.Name End If End Sub
Partager