'------------------------------------------------------------------------------
' Global Variables
'------------------------------------------------------------------------------
dim AMSession
dim fldrTarget
dim fldrInbox
dim idMessage

Dim fsysfolder
Dim NewSession
Dim Outbox

dim PubFold
dim Tous
dim Appli
dim Echanges
dim Sortie
dim FID

'On Error Resume Next

dbg = False

set NewSession= CreateObject( "mapi.session")
'NewSession.Logon "administrateur"


  set PubFold = NewSession.InfoStores("Dossiers publics")
  IF PubFold is Nothing Then
    MsgBox "Dossiers publics non accessible"
  End if

  set Tous = PubFold.RootFolder
  IF Tous is Nothing Then
    MsgBox "Dossier TOUS non accessible"
  else
    MsgBox(tous.name)
  End if

  set Racine = Tous.folders("Tous les dossiers publics")
  IF Racine is Nothing Then
    MsgBox "Dossier Racine non accessible"
  else
    MsgBox(Racine.name)
  End if

'DossierTest peut être remplacé par tout dossier public!!!
  set DossierTest = Racine.folders("DossierTest")
  IF DossierTest is Nothing Then
    MsgBox "Dossier DossierTest non accessible"
  else
    MsgBox(DossierTest.ID)
  End if


NewSession.logoff
Set NewSession = Nothing