Office: Outlook unterverzeichnisse

Hallo zusammen,
hab da doch wieder mal ein kleines Problem(chen)
Ich habe ein script in dem ich alle Mails aus einem OutlookVerzeichnis (welches ich auswählen kann (Set Ordner = OLSess.PickFolder)) auslese und in eine Exceltabelle zur Auswertung schreibe.
Soweit sogut

Wie bekomme ich es hin, dass auch alle Unterverzeichnisse des Outlookordners durchsucht werden ??
Sowas wie ein "searchsubfolders" habe ich nicht gefunden.

Hat jemand von euch ne Idee ???

Gruß

DeBabba

:)

 

Hallo DeBabba,

so ganz so einfach isses leider nicht *wink.gif*

Aber Du kannst mit einer kleinen Schleife alle Unterordner "abklappern":

Code:

Grüße
EarlFred

 

hallo Earl Fred,

gute Idee,
das werd ich morgen gleich mal ausprobieren.*cool.gif*
Ich hab da noch was anderes was mir Kopfzerbrechen bereitet, da ich in dieser richtung noch nichts gemacht habe.
Folgendes
Ich habe eine Internetkonsole an der ich mich anmelden Muss (Link anklicken und passwort eingeben) Hier starte ich ein Job, der mir ne CSV datei erstellt. (den Speichernamen und ort muß ich angeben)Was hier nervt ist, dass es ca 18 Konsolen sind, die man alle einzeln antriggern muß. Wie kann ich das mit einem Script erschlagen ( ne textdatei mit Link ,Passwort zum anmelden und Dateinamen ond Pfad könnte ich erstellen).
Wie rufe ich den Job zum erstellen der CSV datei auf
ich weiß das betrifft nicht unbedingt Excel aber hast Du mir hier noch ein Tipp??

Gruß und vielen dank *knuddel
DeBabba Klaus

 

Hallo zusammen,
irgendwie hat der Tipp den ich in eine anderen Threat von EarlFred bekommen habe nicht hingehauen. *bawling
Deshalb habe ich immernoch ein Problem(chen)

Ich habe ein script in dem ich alle Mails aus einem OutlookVerzeichnis (welches ich auswählen kann (Set Ordner = OLSess.PickFolder)) auslese und in eine Exceltabelle zur Auswertung schreibe.
Soweit sogut

Nun haben die meisten der ausgewähltenOrdner noch Unterordner.Wie bekomme ich es hin, dass auch die durchsucht werden ??
Sowas wie ein "searchsubfolders" habe ich nicht gefunden.

Hat jemand von euch ne Idee wie ich das angehen kann??
Was auch ne Möglichkeit wäre (da es immer die selben Ordner sind) die Ordnernamen in ne Tabelle zu schreiben und diese dann als variable in die Suchroutine einzubauen. Nur .....
wenn ich den Unterordnernamen angebe findet Outlook diesen Ordner nicht
Und noch ne Frage
Kann ich irgendwie die gesamte Outlook-ordnerstruktur auslesen und in ne Tabelle eintragen lassen ??

Wäre toll wenn mir da jemand helfen könnte

Gruß

DeBabba klaus

 

Morgen,

laufe da doch einfach rekursiv durch.

HTH, Bernd
--
Code:

 

Hallo DeBabba,

was klappt denn nicht am Aufruf der Subfolder? Wie gehst Du im Detail vor?

Kannst Du den Code posten?

Grüße
EarlFred

 

Hallo Fred,
habe es mit dem folgenden Code hinbekommen. jedoch nur aus der ersten Ebene. *frown.gif*
Wenn der unterorder noch einen unterordner hat, so wird dieser nicht gelesen
Wie kann ich da weiter in die tiefe schauen und wie kann ich mir den "Postfachpfad" in ein Feld schreiben ?
Hast Du nen tipp??
---------------code--------------------------------
Sub Mail_auswerten()

Dim outApp As New Outlook.Application
Dim NaSp As Outlook.Namespace
Dim MaFo As Outlook.MAPIFolder
Dim MSubFol As Outlook.MAPIFolder
Dim Nachricht As Outlook.MailItem
Dim objekte As Outlook.Items
Dim Start1, start2, start3, start4, start5, start6 As String
Dim Ende1, Ende2, Ende3, Ende4, Ende5, Ende6 As String
Dim AktOrdner As Outlook.Folders
Dim idx As Integer
Dim AnzEintraege, AnzOrdner As Integer
'-----------------------------------
Set NaSp = outApp.GetNamespace("MAPI")
Set MaFo = NaSp.PickFolder
Set AktOrdner = MaFo.Folders
Set MSubFol = AktOrdner.GetFirst
Set objekte = MSubFol.Items

On Error Resume Next

AnzEintraege = MaFo.Items.Count
AnzOrdner = MaFo.Folders.Count
x = Format(Time, "hh-mm-ss")
Sheets.Add.Name = Ordner & " " & x
[A1].Value = "Outlook-Folder"
[B1].Value = "Datum / Uhrzeit"
[C1].Value = "Virus"
[D1].Value = "Computer"
[E1].Value = "Betreffzeile"
[F1].Value = "Folder"

i = 1 'Startzeile der Ausgabe

tage = 1 'wird normalerweise über form eingegeben

Do While Not MSubFol Is Nothing
Set MSubFol = AktOrdner.GetNext
If MSubFol.Name = "" Then
Exit Do
End If
'-----------------------------------------
For Each Nachricht In objekte
With Nachricht
If InStr(1, .Subject, "Virus", vbTextCompare) > 0 Or _
InStr(1, .Subject, "found", vbTextCompare) > 0 Then
'----------------------
Application.StatusBar = "Lese Posteingang " & Ordner & " " & _
Format(i / AnzEintraege, "0%")
'-------------------
If tage = 999 Then GoTo Alle
Globdat = Date - tage
If .SentOn < Globdat Then Exit For '
Alle:
On Error Resume Next
Cells(i, 1).Select
Start1 = InStr(1, .Body, "Virus", vbTextCompare)
Ende1 = InStr(Start1, .Body, Chr(10), vbTextCompare)
start2 = InStr(1, .Body, "Folder", vbTextCompare)
Ende2 = InStr(start2, .Body, Chr(10), vbTextCompare)
start3 = InStr(1, .Body, "File", vbTextCompare)
Ende3 = InStr(start3, .Body, Chr(10), vbTextCompare)
start4 = InStr(1, .Body, "Computer", vbTextCompare)
Ende4 = InStr(start4, .Body, Chr(10), vbTextCompare)
Cells(i, 1) = MSubFol
Cells(i, 2) = .SentOn
Cells(i, 3) = Mid(.Body, Start1, Ende1 - Start1 - 1)
Cells(i, 4) = Mid(.Body, start4, Ende4 - start4 - 1)
Cells(i, 5) = .Subject
Cells(i, 6) = Mid(.Body, start2, Ende2 - start2 - 1)
Cells(i, 7) = Mid(.Body, start3, Ende3 - start3 - 1)
i = i + 1
nexterSatz:
End If

End With
Next Nachricht

Loop
Set NaSp = Nothing
Set MaFo = Nothing
Set AktOrdner = Nothing

End Sub
---------------------------------------------------

Vieln Dank für Deine Hilfe

Gruß
De Babba Klaus

 

Hallo Klaus,

hmm, kein Wunder, dass Du Probleme mit meinem Tipp hast - Du hast ihn ja garnicht beachtet *biggrin.gif*

Spass beiseite:

Der rekursive Aufruf, den bst Dir in seinem Post exemplarisch gezeigt hat, sollte Dir als Grundgerüst helfen.

Grob gesprochen: Anstelle Deiner Do-Loop-Schleife den Code-Block dort integrieren, wobei nur einmal der oberste (also der vom User ausgewählte Ordner) als Parameter übergeben wird. Der Rest funktioniert dann über die rekursiven Aufrufe der Subfolders.

Den Code zum Auswerten der Items im jeweils gültigen Folder (f) könntest Du über die For-Next-Schleife positionieren (Anstelle der Zeile Debug.Print).

Grüße
EarlFred

 

Hi Fred
ich versteh nur bahnhof *confused.gif* *frown.gif*
reicht das wenn ich das einfach rum kopiere ??
wenn ich den Code
'-------------------------
Option Explicit
Sub x()
ShowFolder Application.GetNamespace("MAPI").Session.Folders("Persönliche Ordner"), 1
End Sub

Sub ShowFolder(f As MAPIFolder, depth As Integer)
Dim fsub As MAPIFolder

Debug.Print f.Name, depth
For Each fsub In f.Folders
ShowFolder fsub, depth + 1
Next
End Sub
'---------------------------------
ausführe bekomme ich die Meldung
"Benutzerdefinierter Typ nicht definiert

und überhaupt ?????????????
???????????????????????????*frown.gif* *bawling

Bitte Hilf mir

Gruß
DeBabba

 

Hallo Klaus,

unter Extras|Verweise solltest Du noch die "Microsoft Outlook .... Object Library" einbinden (Early Binding), damit Excel-VBA auch Outlook-VBA versteht.
Dann kannst Du unter Excel genauso mit Outlook-Elementen arbeiten wie unter Outlook selbst.

Wenn ich heute Abend etwas Ruhe habe, mache ich mich an die Umkopiererei Deines Codes - im Moment habe ich dafür leider keine Zeit, muss leider arbeiten. *frown.gif*

Grüße
EarlFred

 

*Sun *Sun *Sun *Sun *Sun *Sun
EarlFred

Du bist der Beste
*knuddel *knuddel *knuddel *knuddel *knuddel
*10points *10points *winner *happy *happy

Gruß
De Babba Klaus
PS.: kann ich Dir ne Portion Eis zufaxen ????*Birthday
Wenn Ja wohin *tausch

 

Hallo Klaus,

wer mir so ein schönes Bild malt, wird auch sofort bedient - da muss der Chef mal warten *wink.gif*

Code:

Der Code könnte noch ein bissel aufgehübscht werden, aber er läuft bei mir erstmal tadellos.
Schau Dir vor allem nochmal die Sprünge, Ausstiegsbedingungen usw. an, ob isie so umgesetzt sind, wie von Dir gedacht. Das eine oder andere habe ich für Testzwecke auch geändert - und hoffentlich wieder richtig zurückgesetzt *wink.gif*

Ein kleiner Hinweis: Wenn Du mit Dim mehrere Variable in einer Zeile einrichtest, muss hinter jeder auch der Typ vermerkt sein, sonst wird sie als Variant definiert.

Also
Dim a&, b$, c As Date usw.

Ach ja: das Eis bitte an bst - ich bin auf Diät *wink.gif*

Grüße
EarlFred

 

*Sun *Sun *Sun *Sun *Sun
*Sun
*Sun Earl Fred

Danke Danke Danke
leider hab ich erst jetzt gesehen. Da hast Du alles fallen lassen und jetzt schau ich mirs erst um halb 9 abends an.
Tja mal wieder so ne sch.... Besprechung Nur gelaber und wenn man dann auch noch gegen mauer redet es wichtig ist das das Excel Sheet auch schön Bunt ist (wirklich, ich habe zur besseren Übersicht jede 2. zeile hellgrün gefärbt (wie das gute alte Computerpapier) und man hat 15 min darüber diskutiert ob hellgrün die richtige farbe sei oder ob man besser verschiedene grautöne nehmen solle.*stupid Als man mich dann fragte ob ich da nicht ne Auswahlmaske für verschiedene Farben machen könne hab ich den Götz von Berlichingen zitieren wollen, konnte mich aber noch zurückhalten.*smashing

Trotzdem vielen lieben dank für Deine Hilfe. *knuddel *knuddel
Schade, dass Du auf Diät bist.
Aber vielleicht gibts ja was anderes (Kaffee, Schnitzel Pommes etc.) was ich Dir zufaxen kann

Gruß
*happy *happy *happy
De Babba Klaus
*happy *happy *happy

 

Hallo Klaus,

gern geschehen *wink.gif*

Grüße
EarlFred