Hallo,
ich habe bereits erfolgreich versucht den Inhalt einer Email in eine Textdatei des lokalen Filesystems zu schreiben und zwar so:
Set rtitem = doc.GetFirstItem( "body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( False, 10000 )
End If
Das funktioniert leider nicht bei jeder Email. Manchmal fehlt einfach Text (am Ende). Mit der länge der Email hat es nichts zu tun.
Daher zwei Vermutungen, die aus den Unterschieden zwischen einer funktionierenden Email und einer nicht funktionierenden entstanden:
1. Vermutung - Fehler bei verschachtelten <body> Tags:<html>
<head></head>
<body>
Text1
<html><head><title>Text</title></head>
<body>
Text2
</body>
</html>
Text3
</body>
</html>
Text1 und Text2 wird exportiert, Text3 nicht.
Liegt es daran? Gibt es nur einen <body> tag, funktioniert es.
2. VermutungDas Steuerzeigen
, das genau an dieser Stelle vorkommt, sorgt für den Abbruch.
Bei den funktionierenden Email ist es nicht enthalten.
Ich weiß nicht so richtig weiter. Kann jemand eine Anregung geben?
(Ich kann den Inhalt der Email nicht beeinflussen.)
Vielen Dank.
Vendui
Thema: Email als Textfile lokal speichern (Gelesen 1468 mal)