Office: Outlookordner direkt anwählen

Hallo zusammen,
woieder mal was mit outlook.
In einem Script kann ich mit dem Befehl
----------------------------------
ShowFolder olApp.GetNamespace("MAPI").Session.Pickfolder
----------------------------------
den zu durchsuchenden Ordner auswählen.
Soweit, sogut

Wie aber kann ich den Ordner direkt anwählen ??

Muss ich den Ordnerpfad erst in ne Variable bringen??
Gibt es sowas wie Folder = ??

Vielen Dank für eure Hilfe

Gruß
DeBabba

:)

 

Hallo Klaus,

ich weiß nicht genau, welchen Ordner oder nach welchen Kriterien Du ihn aussuchen willst, aber:

Der VBA-Editor selbst hilft Dir nach einem gelungenen Start gewaltig weiter:

(1) Early-Binding der MS Outlook Obj.-Library (Extra|Verweise -> Haken)
(2) Variablen festlegen
Code:

(3) Outlook "Createn"
Code:

(4) und dann das Verzeichnis "Setten": ab
Code:

helfen Dir der VBA-Editor und Dein schon vorhandenes Wissen weiter *wink.gif*
(5) Sowas könnte dabei rauskommen:
Code:

Was Du dann genau suchst, weiß aber auch VBA nicht *wink.gif*

Grüße
EarlFred

 

Hallo EarlFred,
zunächst mal vielen Dank für Dein Feedback.
interrressant ist für mich die letzte Zeile. Wie Du aus Deiner vorheriger Hilfestellung ja schon weißt, durchsuche ich Mailordner incl. Unterordner nach bestimmten nachrichten und extrahiere aus dem Body der nachrichten Info's.
Bisher konnte ich mir "pickfolder" mir aus dem gesamten verzeichnis einen Ordner raussuchen. Da es aber nur 5 Ordner sind die ich incl. Unterordner durchsuchen möchte, hier auch noch unterschiedliche Suchkriterien gelten möchte ich den Ordner fest vorgeben. Da hatte mir die Zeile
Set olVerz = olApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox).Folders("Privat")
gefehlt.

Vielen dank nochmals für Deine Hilfe

Gruß
DeBabba-Klaus

 

hallo EarlFred,
sorry, aber funzt nicht. Vielleicht habe ich das problem(chen) auch nicht so richtig erklärt.
Schau mal bitte nach
habe folgenden Code
-------------------------------------------
Sub Kutan()
Dim fldStart As MAPIFolder
Dim olApp As Outlook.Application
Dim olverz As MAPIFolder

Dim x$, Ordner
x = Format(Time, "hh-mm-ss")
Sheets.Add.Name = "Neu"
A1 = 1 'test
If A1 = 1 Then
Call BlaVo1
Ordner = "\\Postfach - EIS Virenschutz\Inbox\_07a_Ironport_Virus\1_Unscannable"
End If
i = 2 'Startzeile der Ausgabe, 1 = Kopfzeile
B = 0
Set olApp = CreateObject("Outlook.Application")
Tage = InputBox("Postfach durchsuchen von " & Date & " minus x Tage" & Chr(10) & _
"Anzahl Tage eingeben !! " & Chr(10) & _
"Bsp.: 0 = nur heute --- 3 = heute minus 3 tage")
ShowFolder olApp.GetNamespace("MAPI").Session.PickFolder
Set olApp = Nothing
Application.ScreenUpdating = True
Call Ersetzen_Anpassen
Call ZeilenFaerben
Application.StatusBar = ""
Range("a1").Select
end sub
--------------------------------------------------------
die Rote zeile sollte durch die Variable "Ordner" ersetzt werden, also statt einen Ordner auszuwählen den Ordner (mittels der Variablen) vorgeben.

Vielen dank für Deine hilfe

Gruß
De babba

 

Hallo Klaus,

der Variable "Ordner" ist ein String zugeordnet (mit einem Netzwerkpfad?), erwartet wird aber vermutlich - wie in meinem Beispiel dargestellt - ein MAPIFolder.

Code:

Grüße
EarlFred

 

Ja aber der / die ordner befinden sich in einem anderen Postfach.
muss ich da nicht den Pfad angeben ??

 

Hallo Klaus,

Du meinst, in einem freigegebenen Ordner?

Code:

...greift auf das freigegebene Postfach des Nutzers RZ (vom Typ Recipient) zu und dort auf den Unterordner "Projekte".

Ich habe leider nicht die Möglichkeit, Dir den Code zu basteln und zu testen, um an diesen Recipient ranzukommen - dafür fehlt mir einfach das notwendige System.

Aber mach doch mal folgendes (und dafür war meine ausführliche Erläuterung im ersten Antwortpost gedacht): Wenn Du alle Schritte durchhast, erscheint nach Eingabe von
Code:

im VBA-Editor ein Dropdown mit den weiteren Auswahlmöglichkeiten für Methoden und Eigenschaften des Objekts "olApp". Hier solltest Du doch mit den oben stehenden Ideen etwas weiterkommen.

Grüße
EarlFred

 

Hallo Klaus nochmal,

so, habe an einem rudimentär eingerichteten System mal fix folgenden Code gebastelt:

Code:

Kurz hierzu: Aus meinem Standardordner "Gesendete Mails" habe ich eine Mail, die an mich selbst adressiert war, ausgelesen und in die Variable "olRec" den Empfänger, also mich selbst, eingelesen.
Dann konnte ich hiermit den "freigegebenen" Ordner "Posteingang" öffnen.

Kann es leider nicht an "richtigen" freigegebenen Ordnern testen, aber ich hoffe, es läuft dort genauso.

Grüße
EarlFred