Filter Ungelesene Nachrichten über VBA öffnen

31/03/2010 - 16:17 von Horst Lange | Report spam
Hallo,

ich suche den VBA-Code, um einen bestimmten Suchordner gezielt über VBA
anspringen zu können.

Mit debug.print activeexplorer.currentfolder erhalte ich zwar den Namen
des Ordners zurück, kann diesen jedoch nicht mit den mir bekannten
Beispielen ansteuern. Bei "A" fehlt mir die Auswahl für Namespace, bei
"B" der olFolder (den es scheinbar nicht gibt...)

Kann man dies mit (zugànglichen) Bordmitteln erreichen oder geht es nur
über Third-Party-tools?

Horst



Umgebung und bisherige Tests:
Outlook 2003 an Exchange 2007
[X] ich kann es auch in Extras Optionen auswàhlen, benötige es die
Funktion nach Ausführung eines anderen Codes.
[X] Über Google finde ich keine verwertbaren Infos mehr. Beide
Codebeispiele ergeben sich aus Infos dieser Recherche,
modifiziereungen brachten keine Lösung.
[X] Öffentliche Ordner erreiche ich über Beispiel "A".
[X] für integrierte Ordner (Postfach, Kalender usw.) konnte
ich erfolgreich Beispiel "B" einsetzen.
[ ] Diese Lösung suche ich noch ;-)



"A"
Sub ChangeCurrentFolderPUP()
Set myNamespace = Application.GetNamespace("MAPI")
Set pub = myNamespace.GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set Application.ActiveExplorer.CurrentFolder = pub.Folders("GWA")
End Sub

"B"
Sub ChangeKalender()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myolApp.ActiveExplorer.CurrentFolder = _
myNamespace.GetDefaultFolder(olFolderCalendar)
End Sub
 

Lesen sie die antworten

#1 Michael Bauer [MVP - Outlook]
01/04/2010 - 09:11 | Warnen spam
Am Wed, 31 Mar 2010 15:17:30 +0100 schrieb Horst Lange:



Hallo,

ich suche den VBA-Code, um einen bestimmten Suchordner gezielt über VBA
anspringen zu können.



Hallo,

seit OL07 gibt es die die GetSearchFolders Funktion. Für OL03 kommst Du mit
der Redemption (www.dimastr.com) über RDOSearches an die Ordner.

Viele Gruesse
Michael Bauer - MVP Outlook
Category Manager - Kategorien verwalten & gemeinsam nutzen:
SAM - Der Sendekonto-Manager:
<http://www.vboffice.net/product.html?lang=de>

Ähnliche fragen