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