title image


Smiley Re: Mapi Session


oSession.Logon

PName = oSession.Name

set myFolder = Nothing

For Each oInfoStore In oSession.InfoStores

Set oFolder = oInfoStore.RootFolder

For Each osFolder In oFolder.Folders

If osFolder.Name = Gesucht Then

myFolder = osFolder

elseIf osFolder.Name = "Posteingang" Then

For Each ossFolder In osFolder.Folders

If ossFolder.Name = Gesucht Then

myFolder = osFolder

Exit for

End If

Next ossFolder

End If

If Not myFolder Is Nothing then Exit for

Next osFolder

If Not myFolder Is Nothing then Exit for

Next oInfoStore





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: