8
Speichern einer mail als txt
Hallo Gemeinschaft,
verwende dieses Script um eine email als txt zu speichern
leider speichert das script die mail sehr gedrungen ab mit ein paar Zeichen auf der linken Seite und dann wieder Zeilenumbruch - habt ihr das eine Idee, die Mail so zu speichern als txt, dass sie halbwegs so aussieht, wie sie geschrieben wurde
verwende dieses Script um eine email als txt zu speichern
leider speichert das script die mail sehr gedrungen ab mit ein paar Zeichen auf der linken Seite und dann wieder Zeilenumbruch - habt ihr das eine Idee, die Mail so zu speichern als txt, dass sie halbwegs so aussieht, wie sie geschrieben wurde
Dim myItem As Inspector
Dim objItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem
strname = objItem.Subject
objItem.SaveAs "C:\" & " & strname & .txt", olTXT
Else
MsgBox "Nicht mehr."
End If
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 1190521673
Url: https://administrator.de/forum/speichern-einer-mail-als-txt-1190521673.html
Ausgedruckt am: 22.12.2024 um 11:12 Uhr
8 Kommentare
Neuester Kommentar
Grüß dich,
muss es eine .txt sein ?
Meist sind die Mails im HTML-Format.
Also versuch es doch mal mit .html.
VG
muss es eine .txt sein ?
Meist sind die Mails im HTML-Format.
Also versuch es doch mal mit .html.
VG
ne - leider als txt - ich verarbeite sie danach weiter und das script steht dann schon
In der Eigenschaft
Oder auch
steht der Textinhalt so wie er eben ankam, damit kannst du direkt weiterarbeiten ohne extra in ne Datei zu speichern.
Wenn doch kannst du das Filesystemobject dazu benutzen um den Text wie gewünscht weg zu schreiben ...
https://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...
objItem.Body objItem.HTMLBodyWenn doch kannst du das Filesystemobject dazu benutzen um den Text wie gewünscht weg zu schreiben ...
https://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...
nee - leider nicht - ich müsste es erst einmal als txt Datei haben - weil später hole ich mir diese Datei in Access
Zitat von @martenk:
nee - leider nicht - ich müsste es erst einmal als txt Datei haben - weil später hole ich mir diese Datei in Access
nee - leider nicht - ich müsste es erst einmal als txt Datei haben - weil später hole ich mir diese Datei in Access
Siehe Link oben, kannst du mit der OpenTextfile Methode so weg schreiben wie du es brauchst ...
https://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...
Mit der SaveAs Methode hast du keinen weiteren Einfluss auf die Formatierung.
Du kannst die Daten auch direkt in ne Access MDB schreiben ... Dafür musst du noch nicht mal dein Skript verlassen 😉
Kannst du mir das vielleicht einbauen in das Script mit der txt Datei Erstellung - bekomme das nicht hin
Zitat von @martenk:
Kannst du mir das vielleicht einbauen in das Script mit der txt Datei Erstellung - bekomme das nicht hin
Kannst du mir das vielleicht einbauen in das Script mit der txt Datei Erstellung - bekomme das nicht hin
Oh man steht doch oben im Link ganz unten auf dem Servierteller ...
'.....
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile("c:\testfile.txt",2)
f.Write obItem.Body
f.Close
'...
klasse - lieben Dank
