Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gesendete Email aus Excel automatisch speichern

Gesendete Email aus Excel automatisch speichern
22.07.2015 07:38:34
Matthias
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?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gesendete Email aus Excel automatisch speichern
22.07.2015 11:21:36
Matthias
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

Anzeige
AW: Gesendete Email aus Excel automatisch speichern
22.07.2015 13:29:20
JoWE
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

AW: Gesendete Email aus Excel automatisch speichern
22.07.2015 14:01:28
Matthias
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.

Anzeige
AW: Gesendete Email aus Excel automatisch speichern
22.07.2015 14:42:12
JoWE
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

AW: Gesendete Email aus Excel automatisch speichern
22.07.2015 15:17:58
Matthias
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?

Anzeige
AW: Gesendete Email aus Excel automatisch speichern
22.07.2015 15:29:36
JoWE
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

302 Forumthreads zu ähnlichen Themen

Mails automatisch in einen Ordner speichern
René

Hallo,
hat eventuell jemand einen Tipp für mich wie ich erreichen kann das eine empfangene Mail automatisch in einen Ordner gespeichert wird. Also von bekommt jemand eine Exceldatei gesendet und darin soll ein Button sein der ein Makro enthält das dafür sorgt das die Mail bei mir automatis...
23.11.2010 21:58:19
Thread-ID: 1188419
2 Beiträge
Anzeige
Outlook Email Anhang umbenennen
Dennis

Sub Anlage2() Dim Ordnername As String Dim objPosteingang As MAPIFolder Dim objNewMail As MailItem On Error Resume Next Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox). _ Folders("MeinUnterordner").Folders("Mein Unterordner 2") For Each objNewMail In objPo...
09.04.2013 16:52:02
Thread-ID: 1307999
2 Beiträge
Öffnen und Speichern von Mails per Excelmakro
Markus St

Hallo,vielleicht kann mir jemand helfen. Ich möchte per Excel-Makro ein Mail in Outlook öffnen und anschließend die Anlage x zu dem Mail speichern.
Nun ist diese Anlage eine Textdatei namens b.txt. Sie enthält reinen ASCII-Text. Ich wollte dort bestimmte Zeilen in diesem ASCII-Text ( Nach de...
03.07.2002 11:20:13
Thread-ID: 133353
2 Beiträge
Anzeige
Outlook Anhang speichern / entzippen / importieren
Willi

Hallo,
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 folgend...
22.08.2015 08:14:54
Thread-ID: 1443770
9 Beiträge
Gesendete Mail Anhänge bei Outlook speichern
Christian

Hallo,
Ich habe ein Problem. Ich habe ein Programm welches automatisch über Outlook Protokolldatein (txt) als Anhang an eine fix definierte Mail versendet. Dies muss auch so bleiben und ich kann keine zusätzliche Versandmail in das Programm eintragen.
Ich bräuchte also einen Skript, den...
08.11.2015 20:12:50
Thread-ID: 1456980
8 Beiträge
Mit VBA Signatur in Outlook anhängen
Zimmermann

Hallo
Ich versuche mit dem Syntax
.GetInspector.CommandBars.Item("Insert").Controls("Signatur").Controls(strSignatur).Execute
eine Signatur in Outlook anzuhängen.
Doch ich bekomme immer die Fehlermeldung
Laufzeitfehler 48
Fehler beim Laden einer DLL
Ich habe unter...
28.05.2016 15:52:31
Thread-ID: 1495708
3 Beiträge
Mail automatisch abspeichern
Roland

Hallo!
Stehe wieder mal vor einem Problem.
Habe mit google und foren nun ein Modul zusammengestoppelt, wo ich mails aus outlook per knopfdruck im richtigen pfad speichern möchte.
Mein Problem ist nun das das ganze an einer Stelle hängenbleibt "Laufzeitfehler 13, Typen unverträglich"...
16.10.2016 15:21:45
Thread-ID: 1519911
2 Beiträge
Outlook- E-Mails Speichern - Frage an Mumpel/Case
Jens

Hallo
ich habe eine userform in outlook zum Speichern von E-mail.
Alles funktioniert auch so weit.
Aber irgendwie stimmt der Bezug des Absenders/Empfänagers nicht zusammen. Er ist immer um eine E-Mail verrutscht. Sprich es wird immer die falsche E-MAildresse angezeigt. Meiner Ansich...
20.10.2016 12:41:56
Thread-ID: 1520789
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
1
1
2
8
7
2
1
8
2
2
2
2
1
5
3
3
2
11
7
1
23
8
1