Guten Abend,
seit etlichen Monaten lese ich mithilfe von VBA bestimmten Inhalt von Emails aus. Dieser wird in einer txt zwischengespeichert und von dort aus in Excel eingelesen.
Hat immer prima funktioniert.
Seit einigen Tagen - und ich komme einfach nicht auf die Lösung - kommen in meiner txt aber keine Sonderzeichen/Umlaute (ä, ö, ß, usw.) mehr an.
Aus einem "schön" wird einfach ein "schn".
Hat irgendjemand eine Idee, wo hier der Hase im Pfeffer liegen könnte?
Hier der Teil der Routine:
Open "D:\Ordner\mail_neu.txt" For Output As #1
Print #1, Spc(1)
Close #1
'mails auslesen
Set objOl = CreateObject("Outlook.Application")
Set objFolder = objOl.Session.GetDefaultFolder(6).Folders("Neue-Email")
If objFolder.Items.Count = 0 Then
MsgBox "Keine E-Mail zum Einlesen!!!"
Exit Sub
End If
Herzlichen Dank im Voraus für Eure Mühen,
Viele Grüße aus Berlin
|