Gesendete Email aus Excel automatisch speichern

Bild

Betrifft: Gesendete Email aus Excel automatisch speichern
von: Matthias
Geschrieben am: 22.07.2015 07:38:34

Hallo,
ich kann per Excel eine Email versenden.
Ist es auch möglich die versendete Email danach in einem bestimmten Verzeichnis automatisch zu speichern?
Bezeichnung der gespeichertn Email
JJMMTT_Betreff
Kann mir hierzu wer helfen oder braucht ihr hierzu meine Excel-Datei?

Bild

Betrifft: AW: Gesendete Email aus Excel automatisch speichern
von: JoWE
Geschrieben am: 22.07.2015 08:26:40
Hallo Matthias,
schau Dir mal diesen Beitrag an:
http://www.office-loesung.de/ftopic382397_0_0_asc.php#1573660
Ich stelle Deinen Beitrag trotzdem noch offen; evtl. haben andere bessere Ideen.
Gruß
Jochen

Bild

Betrifft: AW: Gesendete Email aus Excel automatisch speichern
von: Matthias
Geschrieben am: 22.07.2015 11:21:36
Hallo
ich habe nun versucht den Code anzuwenden.
Nur habe ich das Problem, dass er mir immer sagt, dass das objekt nicht gefunden wird.
Warum?
Dim olApp As Object, objMail As Object

Set olApp = GetObject(, "OutLook.Application")
Set objMail = Set objMail = olApp.Session.GetDefaultFolder(5).Items.GetLast
objMail.SaveAs Environ("USERPROFILE") & "\Desktop\" & "dsfdf" & ".msg", 3

Bild

Betrifft: AW: Gesendete Email aus Excel automatisch speichern
von: JoWE
Geschrieben am: 22.07.2015 13:29:20
Matthias,
hier: Set objMail = Set objMail = olApp.Session.GetDefaultFolder(5).Items.GetLast
ist einmal "Set objMail = " zuviel!
Und wo genau bleibt das Makro hängen?
Und Frage: Verweise gesetzt?
Gruß
Jochen

Bild

Betrifft: AW: Gesendete Email aus Excel automatisch speichern
von: Matthias
Geschrieben am: 22.07.2015 14:01:28
Hallo,
Danke hier lag ein Kopierfehler vor.
Dim olApp As Object, objMail As Object
Set olApp = GetObject(, "OutLook.Application")
Set objMail = olApp.Session.GetDefaultFolder(5).Items.GetLast
objMail.SaveAs Environ("USERPROFILE") & "\Desktop\" & "dsfdf" & ".msg"
Wie schaffe ich es, dass die Emails so abgespeichert werden.
JJMMTT_Betreff
Kann du mir hierzu weiterhelfen?
Die Dateien werden mittlerweile abgespeichert.

Bild

Betrifft: AW: Gesendete Email aus Excel automatisch speichern
von: JoWE
Geschrieben am: 22.07.2015 14:42:12
Hallo nochmal,
wenn 'JJMMTT' das aktuelle Datum des Mailausgangs wäre
und 'Betreff' ein Wert aus einer Zelle, wie zum Beispiel aus Sheets("Tabelle1").Range("B4"),
dann vielleicht so:
objMail.saveAs Environ("USERPROFILE") & "\Desktop\" & Format(date,"yymmdd") & "_" & Sheets("Tabelle1").Range("B4") & ".msg"

Gruß
Jochen

Bild

Betrifft: AW: Gesendete Email aus Excel automatisch speichern
von: Matthias
Geschrieben am: 22.07.2015 15:17:58
Hallo danke für den Code.
Dim olApp As Object, objMail As Object
Set olApp = GetObject(, "OutLook.Application")
Set objMail = olApp.Session.GetDefaultFolder(5).Items.GetLast
'objMail.SaveAs Environ("USERPROFILE") & "\Desktop\" & wksPrint.Range("A6").Value & ".msg", 3
objMail.SaveAs FolderPDF & Format(Date, "yymmdd") & "_" & "RE" & "_" & wksPrint.Range("A5").Text & "_" & wksPrint.Range("A6").Text & "_" & wksPrint.Range("U1").Text & ".msg", 3
Mit diesen Code geht es zwar. Aber er bringt mir hier immer den Fehler 13. Typen unvertäglich.
Was hat er hier für ein Problem.
oder kann man die Fehlermeldung einfach unterdrücken?

Bild

Betrifft: AW: Gesendete Email aus Excel automatisch speichern
von: JoWE
Geschrieben am: 22.07.2015 15:29:36
hmm,
fehlt vielleicht der Backslash "\" hinter FolderPDF ?
objMail.SaveAs FolderPDF & "\" &...
Ist in den Werten aus 'A5', 'A6', 'U1' evtl. evtl. ein für Dateinamen unzulässige Zeichen enthalten?
Gruß
Jochen

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Gesendete Email aus Excel automatisch speichern"