Aus Outlook email als txt Datei speichern

Hallo gemeinschaft,

speichere per vba manche emails als txt datei - mein Problem ist nun die Formatierung dieser txt datei

die email wird nicht Zeilenweise gespeichert, so wie die mail ist, sondern maxmal 6 zeichen und dann kommt die nächste Zeile

Sollte
n Sie
Probl
eme
mit
der
Darst
ellung
dieser
Email
haben
,
verwe
nden
Sie
bitte
den
folgen
den

das ist der code

Set myNameSpace = Application.GetNamespace("MAPI")  
 
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Booking")  

Set Application.ActiveExplorer.CurrentFolder = myFolder
Application.GetNamespace("MAPI").GetDefaultFolder (olFolderInbox)  


For Each msg In myFolder.Items
If msg.UnRead Then
var = Left(msg.Subject, 10)

'If var = "Neue_Reser" Then  
msg.SaveAs "S:\mails\Umbuchung" & ".txt", olTXT....  