ich habe in diesem Forum schon hervoragende Ansätze und Lösungen für meine Aufgaben gefunden und daher wende ich mich jetzt auch direkt an Euch. Ich bin auf der Suche nach einer Lösung für ein Problem, daß wohl eher einen erfahrenen VBA Programmierer benötigt.
Aufgabe ist folgende:
Excelmacro starten und dann:
1.) aus Outlook eine Mail herausfischen die NICHT im persönlichen Ordner sondern unter WWacker/Postfach/Firma/Neue Mail steht. Geht von Firma@web.de an test@wwacker.de
2.) fragen: ist heute von der Firma eine neue Mail eingegangen. (Anm. das passiert täglich, aber zu sehr unterschiedlichen Zeiten)
3.) wenn ja: suchen nach einem Teil im Betreff: blabla - dieser Text - 22.08.2014. wenn nein Infofenster zum Bestätigen und dann beenden
4.) Anhang (ist gezippt) nach c:\temp schreiben, auch dann, wenn der Dateiname schon vorhanden ist
5.) Anhang entzippen und Inhalt nach c:\temp schreiben. Vorhandene Datei ohne Nachfrage überschreiben
6.) Email löschen
7.) die Entzippte Datei in Excel einlesen --- und ab hier und die weitere Verarbeitung habe ich bereits.
Ich weiß, daß man normalerweise jetzt einen Code angibt, der zeigt, wie weit man ist, aber das ist jetzt die Schwierigkeit. Ich komme immer wieder auf den Code von Jens ("https://www.herber.de/forum/archiv/1272to1276/1272628_Outlook_EMail_Anhang_speichern.html#1272628" Thema:Outlook EMail Anhang speichern) aber damit ist mir schon nicht weitergeholfen, da ich ja nicht im "Persönlichen Ordner/Postfach" meine Mail finde.
Ggf. besteht ja die Möglichkeit - so meine Vorstellung - daß wir step by step vorgehen, denn auch wenn ich nur wenig Ahnung habe, will ich das natürlich im Wesentlichen selber erstellen, nur so versteht man es dann.
So wäre es vielleicht gut, wenn ich, aufbauend auf dem genannten Code, als erstes die Info bekäme, wie ich aus einer anderen als dem Standard Postfach eine Mail lesen bzw. Abfragen kann. Ich habe auch dazu schon etliche Lösungen gefunden, da die aber nicht für Excel 2007 geschrieben waren, wurde die Ausführung dann immer mit irgendwelchen Fehlern beendet.
Damit käme ich weiter und beim nächsten Mal kann ich dann auch schon meinen Code hier angeben.
Allen schon mal ein ganz herzliches "Danke schön" für Eure Hilfe.
Willi
Hier nun doch der Code und die Stelle an der ich verzweifle:
Sub OutlookPosteingang()
Dim objOL As Object, objFolder As Object
Dim strPath As String
Dim lngIndex As Long, lngCur As Long, lngCount As Long, lngRow As Long
Dim lngCalc As Long
On Error GoTo ErrExit
With Application
.ScreenUpdating = False
.EnableEvents = False
lngCalc = .Calculation
.Calculation = xlCalculationManual
.DisplayAlerts = False
End With
strPath = "C:\HaWe-Ident\" 'Speicherpfad - Anpassen!
Set objOL = CreateObject("Outlook.Application")
Set objFolder = objOL.GetNamespace("MAPI").GetDefaultFolder(6) an dieser Stelle verzweifle ich, den ich will ja nach WWacker/Postfach/Firma/Neue Mail