Per VBA auf Subfolder (Outlook) zugreifen?
Stefan Neumann
ich möchte gern per VBA aus Outlook einen bestimmen (einen Nicht-
Default-Folder) nach Nachrichten scannen. Dazu muß ich aber auf einen
Subfolder von einem Subfolder zugreifen können. Mit der "getnamespace
("MAPI").Folders.Item("Folderxyz") kann ich aber nur eben diesen
ansprechen. Kann mir jemand helfen?
Gruß Stefan
--
Stefan Neumann
Sent via Deja.com http://www.deja.com/
Before you buy.
Alexander Overmann
Stefan Neumann <sn...@my-deja.com> schrieb in im Newsbeitrag:
8fbgfs$nkl$1...@nnrp1.deja.com...
> Hi,
> ich möchte gern per VBA aus Outlook einen bestimmen (einen Nicht-
> Default-Folder) nach Nachrichten scannen. Dazu muß ich aber auf einen
> Subfolder von einem Subfolder zugreifen können. Mit der "getnamespace
> ("MAPI").Folders.Item("Folderxyz") kann ich aber nur eben diesen
> ansprechen. Kann mir jemand helfen?
Hi Stefan,
Ich habe es so in Word97/2000 gemacht, müsste aber auch in Access
funktionieren:
Dim bla bla zuerst
Set meineOlApp = CreateObject("outlook.Application")
Set olNameSpace = meineOlApp.GetNameSpace("MAPI")
Set olFolder = olNameSpace.Folders("Öffentliche Ordner").Folders("Alle
Öffentlichen Ordner").Folders("Intern").Folders("Kontakte")
Set meineKontakte = olFolder.items
weiterer Zugriff dann einfach mit:
Set meinElement = meineKontakte.Find("[LastName] = .....) oder was auch
immer
While TypeName(meinElement) <> "Nothing"
Msgbox meinElement.LastName & ", " & meinElement.FirstName
Set meinElement = meineKontakte.FindNext
Wend
Struktur ist dabei:
-Öffentliche Ordner
--Alle öffentlichen Ordner
---Intern
----Kontakte
Einfach die Folders().. hintereinander anhängen.
Wenn du doch noch auf die Default Ordner zugreifen willst, geht's auch ohne
die Folders - Item Methode so kürzer:
Set OwnFolder = olNameSpace.GetDefaultFolder(olFolderContacts)
Set meineKontakte = OwnFolder.items
Alle Klarheiten beseitigt?
Gruß
Alexander Overmann
- MCSE -
CONNEXT GmbH
Waldenburger Straße 11
D-33098 Paderborn
Tel.:+49 5251 771-157 Zentrale: -0
Fax:+49 5251 771-357
E-Mail: a...@connext.de
http://www.connext.de
Stefan Neumann
bin mittlerweile selbst drauf gekommen. Leider ist die VBAoutl.hlp
dahingehend extrem schwach bestückt. Trotzdem danke.