martenk
Aug 24, 2021, updated at 13:46:29 (UTC)
view1175
view8
0
Goto Top

Speichern einer mail als txt

GermansolvedQuestionVB for ApplicationsDevelopment
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

 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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 1190521673

Url: https://administrator.de/contentid/1190521673

Printed on: April 25, 2024 at 05:04 o'clock

8 Comments
Latest comment
Goto Top
Member: mshm17
mshm17 Aug 24, 2021 at 14:43:09 (UTC)
Goto Top
Grüß dich,

muss es eine .txt sein ?
Meist sind die Mails im HTML-Format.
Also versuch es doch mal mit .html.

VG
Member: martenk
martenk Aug 24, 2021 at 14:44:35 (UTC)
Goto Top
ne - leider als txt - ich verarbeite sie danach weiter und das script steht dann schon
Mitglied: 149062
149062 Aug 24, 2021 updated at 15:00:12 (UTC)
Goto Top
In der Eigenschaft
objItem.Body
Oder auch
objItem.HTMLBody
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 ...
Member: martenk
martenk Aug 24, 2021 at 14:59:29 (UTC)
Goto Top
nee - leider nicht - ich müsste es erst einmal als txt Datei haben - weil später hole ich mir diese Datei in Access
Mitglied: 149062
149062 Aug 24, 2021 updated at 15:03:23 (UTC)
Goto Top
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

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 😉
Member: martenk
martenk Aug 24, 2021 at 15:04:30 (UTC)
Goto Top
Kannst du mir das vielleicht einbauen in das Script mit der txt Datei Erstellung - bekomme das nicht hin
Mitglied: 149062
149062 Aug 24, 2021 updated at 15:42:22 (UTC)
Goto Top
Zitat von @martenk:

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
'...
Member: martenk
martenk Aug 26, 2021 at 13:30:10 (UTC)
Goto Top
klasse - lieben Dank
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments