title image


Smiley MAPI Subfolder erstellen
Das geht etwa so:



Function MAPICreateSubfolder(SubFolderName, Optional FolderName = "Kontakte")

Dim oSession As New MAPI.Session, oInfoStore As MAPI.InfoStore, oFolder As MAPI.Folder

oSession.Logon

For Each oInfoStore In oSession.InfoStores

For Each oFolder In oInfoStore.RootFolder.Folders

If oFolder.Name = FolderName Then

oFolder.Folders.Add SubFolderName

End If

Next oFolder

Next oInfoStore

End Function



Verweis auf "Microsoft CDO 1.21 Library" (CDO.DLL) setzen!


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: