(Solved) – Outlook Rule to Save Received Emails as Text

  • by

I have already read and tried this, but it didn’t work. I changed the directory and removed the subject line if statement for my use case, but I still couldn’t get it to work.

Here is the code I used. I don’t need a specific name for each email, they can all be saved as “mail.txt”:

Sub SaveAsTXT(myMail As Outlook.MailItem)

Dim objItem As Object
 Dim myFolder As Folder

 If Not TypeName(myitem) = "Nothing" Then

 myMail.SaveAs "C:UsersabacaOneDriveDesktopemailsmail.txt", olTXT

 End If

End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *