Save emails as text by rule, preventing text wrapping - vba

Question

I have VBA code, in a rule, that saves emails as individual text files as they arrive.
The problem is that text within the .txt files begins to wrap at a certain distance down the .txt file, eventually becoming a single character per row.
This does not happen if I open the email individually, and then use the File>Save As command to save it as a .txt file (no wrapping at all).
As far as I can tell, this may be happening because the rule runs automatically and does not open the email first.
Is there a way to save the text file without text wrapping?
Alternately, I think a solution would be a macro to:
Open email on screen when it is received
Save the email as a .txt file
Close the email on screen
The current macro (taken from Slipstick I think):
Sub ExportEmailBodyToTXT(myMail As Outlook.MailItem)
Dim strFolder As String
Dim strSubject As String
Dim strFile As String
'Change the path to the specific Windows folder
strFolder = "C:\Users\madmanmick\Desktop\Folder_X"
If myMail.Subject <> "" Then
'Remove unsupported characters in subject
strSubject = myMail.Subject
strSubject = Replace(strSubject, "/", " ")
strSubject = Replace(strSubject, "\", " ")
strSubject = Replace(strSubject, ":", "")
strSubject = Replace(strSubject, "?", " ")
strSubject = Replace(strSubject, Chr(34), " ")
strdate = Format(myMail.ReceivedTime, "yyyy mm dd ")
strFile = strFolder & "\" & strdate & myMail.Subject & ".txt"
myMail.SaveAs strFile, OLTXT
End If
End Sub