Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
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
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Outlook Ordner unter Pfad als ".msg" abspeichern

Outlook Ordner unter Pfad als ".msg" abspeichern
18.07.2018 18:43:34
Lio
Hallo Zusammen,
folgendes Anliegen:
Ich würde liebend gerne über eine Schaltfläche alle E-Mails eines bestimmten Ordners
(Outlook Ordnername: "Genehmigung") als ".msg-Datei" unter einem Pfad abspeichern wollen.
Hättet Ihr vielleicht eine Idee oder ein kleines Beispiel?
Ich hab leider noch nicht die Erfahrung mit Outlook machen können,
sodass ich mich an Euch wenden würde :)
Vielen lieben Dank im Voraus!!
Gruß
Lio

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wo genau hast Du denn...
19.07.2018 03:59:13
Case
Hallo, :-)
... Probleme? ;-)
LMGTFY...
Insbesondere VBOffice hat einiges zu VBA und Outlook zu bieten.
Servus
Case
AW: Wo genau hast Du denn...
19.07.2018 13:55:19
Lio
Hallo Case,
leider habe ich das was ich wollte ohne API nicht gefunden..
(Es sollte eine schlichte kurze Codierung sein)
Derzeitig habe ich folgenden Code der nicht funktioniert:
-----------------------------------------------------------------
Dim oMail As Outlook.MailItem
Dim objNS As Outlook.Namespace
Set objNS = GetNamespace("MAPI")
Set oFldInbox = objNS.Folders("Genehmigung").Items
Dim strPath As String
Dim strText As String
strPath = Environ("USERPROFILE") & "\Desktop\Genehmigung\"
For Each oMail In oFldInbox
strText = Replace(strText, "´", "_")
strText = Replace(strText, "`", "_")
strText = Replace(strText, "'", "_")
strText = Replace(strText, "{", "(")
strText = Replace(strText, "[", "(")
strText = Replace(strText, "]", ")")
strText = Replace(strText, "}", ")")
strText = Replace(strText, "/", "-")
strText = Replace(strText, "\", "-")
strText = Replace(strText, ":", "")
strText = Replace(strText, "*", "_")
strText = Replace(strText, "?", "")
strText = Replace(strText, """", "_")
strText = Replace(strText, "|", "")
strText = Replace(strText, " strText = Replace(strText, ">", "")
.SaveAs strPath & Format(.ReceivedTime, "DD-MM-YYYY_hh-mm") & "_" & strText & ".msg", olMSG
Next
Set objNS = Nothing
Set oFldInbox = Nothing
MsgBox "Ihre Nachrichten wurden gespeichert",,"Hinweis"
-----------------------------------------------------------------
Hättest Du vielleicht die Lösung?
(Über Excel sollte der Inhalt eines Ordners in Outlook separat als .msg-Datei abgespeichert werden)
Anzeige
AW: So wie es aussieht... | Problem gelöst
20.07.2018 09:00:19
Lio
Hallo Case,
es hat zwar eine lange Weile gedauert, aber ich habe es geschafft.
Ich habe im Anschluss auch hier im Forum nach einer Möglichkeit gesucht, ebenfalls
den Thread zu schließen, aber scheinbar finde ich einfach die jeweiligen Funktionen nicht...:/
Vielen Dank für die Hilfe und Deine Rückmeldung.
Gruß
Lio
Anzeige
AW: So wie es aussieht... Problem gelöst..und wie?
20.07.2018 09:42:23
Oberschlumpf
Hi Lio,
in diesem Forum ist es nicht möglich, einen Thread zu schließen, wenn damit gemeint ist: irgdwo n Haken setzen, so dass ein Thread dann durch die Forumssoftware als "gelöst", "erledigt" oder sonst irgdwie markiert ist.
Aber!
Die einfachste Möglichkeit, (s)eine Frage(n) als erledigt zu kennzeichnen, ist...
Füg doch einfach einen weiteren Beitrag zu deinem Thread hinzu, in dem du dann, im optimalsten Fall, a) beschreibst, dass dein Problem gelöst ist + b) auch beschreibst, WIE dein Problem gelöst wurde.
Denn du kannst sicher sein, dass irgdwann irgdwer wieder genau das Problem haben wird, welches du nun gelöst (bekommen) hast.
Derjenige wird sich dann freuen, wenn er deine Lösungsbeschreibung lesen kann.
Und wie genau hast du dein Problem nun gelöst?
Ciao
Thorsten
Anzeige
AW: So wie es aussieht... Problem gelöst..und wie?
20.07.2018 21:33:51
Lio
Hallo Thorsten,
vielen Dank für Deinen Rat.
Diesen werde ich beim nächsten beherzigen.
Mit dieser Konstellation konnte ich meine Idee umsetzen:
Dim olApp As Object
Dim olName As Object
Dim olFolder As Object
Dim olText As String
Dim olItems As Long
Dim Path As String
Set olApp = CreateObject("Outlook.Application")
Set olName = olApp.GetNamespace("MAPI")
Set olFolder = olName.Session.Folders("Die E-Mail Adresse").Folders("Genehmigung")
For olItems = 1 To olFolder.Items.Count
Path = Environ("USERPROFILE") & "\Desktop\Genehmigung\"
With olFolder.Items.Item(olItems)
olText = Replace(.Subject, "´", "_")
olText = Replace(olText, "`", "_")
olText = Replace(olText, "'", "_")
olText = Replace(olText, "{", "(")
olText = Replace(olText, "[", "(")
olText = Replace(olText, "]", ")")
olText = Replace(olText, "}", ")")
olText = Replace(olText, "/", "-")
olText = Replace(olText, "", "-")
olText = Replace(olText, ":", "")
olText = Replace(olText, "*", "_")
olText = Replace(olText, "?", "")
olText = Replace(olText, """", "_")
olText = Replace(olText, "|", "_")
olText = Replace(olText, " olText = Replace(olText, ">", "_")
.SaveAs Path & "Betreff " & olText & "__" & "Datum " & Format(.ReceivedTime, "DD.MM.YYYY") & "__" & "Zeit " & Format(.ReceivedTime, "hh-mm") & " Uhr" & ".msg"
End With
Next olItems
End Sub
Gruß
Lio
Anzeige

301 Forumthreads zu ähnlichen Themen

Automatisierter Email Versand xls vba
Christian

Hallo an alle Experten,
ich habe ein größeres Problem bezüglich des Versands von Woksheets als email Anhang und bräuchte dringend Hilfe.
Die Situation ist folgende:
Ich hab in verschiedenen Verzeichnissen(Ordnern) Excel WB (=Berichte/Reports) erzeugt, die jeweils nur aus einem She...
09.08.2008 11:00:00
Thread-ID: 1000468
6 Beiträge
Anzeige
Outlook Email einlesen/löschen
Peter

Ich bin zwar in der Lage Emails von Excel/VBA via Outlook abzusenden.
Jetzt würde ich jedoch gerne via VBA/Excel Emails einlesen, den Header der eingehenden Email auslesen und danach die Email wieder löschen.
Danke für die Unterstützung.
Grüße
Peter
29.08.2008 15:07:44
Thread-ID: 1005850
3 Beiträge
Email versenden Outlook - Problem
Peter

Ich versende via Excel/VBA alle 3 Minuten ein Email.
Nun kommt es ca. 1x am Tag vor, dass Outlook Emails nicht sofort sendet und sich die Emails im Postausgang sammeln bis ich Outlook schließe und wieder öffne.
Danke für die Unterstützung.
Grüße
Peter
29.09.2008 13:58:00
Thread-ID: 1013103
2 Beiträge
Anzeige
Outlook-Mail aus Excel - Statusabfrage
Peter

Hallo,
aus Excel generiere ich Mail-Items mit nachfolgendem Code. Versendet werden diese durch manuelles Betätigen des "Senden"-Buttons. Gibt es eine Art Return-Code? Kann abgefragt werden, ob der "Senden"-"Button gedrückt wurde oder ob das Item ohne Senden geschlossen wurde?
Set MyOutA...
04.12.2008 14:07:27
Thread-ID: 1030167
6 Beiträge
Email über Outlook, Konto ändern
Nico

Hallo!
Ich schicke eine Email über ExcelVBA mit Outlook und dem Standardkonto.
Gibt es eine Möglichkeit die Email nicht über das Standardemailkonto zu verschicken, sondern über ein anderes Konto?
Wie kann ich das Konto vorher festlegen?
Sub EmailVerschickenKINDERSKIKURS() Dim...
16.12.2008 20:16:33
Thread-ID: 1033418
2 Beiträge
eMail aus Outlook in Excel einlesen
Heinzs

Hallo,
ich möchte eine in Outlook in einem bestimmten Ordner angekommene eMail in Excel weiterverarbeiten, d.h. wenn bestimmter Absender und bestimmter Betreff in bestimmten Ordner und bestimmtes Empfangsdatum vorliegt dann soll der Emailbody in die Exceltabelle ans Ende angefügt werden.
21.01.2009 15:36:17
Thread-ID: 1042242
3 Beiträge
Email aus Excel via Outlook Web Access
Sven

Hallo,
wir haben in der Firma ein kleines Makro das über Outlook 2003 Emails aus Excel versendet. Nun taucht das Problem auf, dass einige Rechner (auf die mehrere user zugreifen) nicht über ein echtes Outlook verfügen sondern Outlook Web Access (OWA) verwenden müssen.
Hier klappt aber d...
06.03.2009 14:58:24
Thread-ID: 1057341
5 Beiträge
Serienmail Outlook
Ilka

Hallo,
ich bräuchte mal wieder eure Hilfe. Ich möchte an einen bestimmten Personenkreis eine Art Serienmail verschicken, zu der jeder einen individuellen Datei-Anhang erhalten soll.
D. h. bei Herrn Müller soll der Anhang A, bei Frau Mayer Anhang B und bei Herr Schmitt Anhang C automati...
27.04.2009 08:15:33
Thread-ID: 1071278
3 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
5
2
2
1
2
5
1
2
4
2
1
2
6
2
1
1
5
8
2
5
2
4
1
1
1