Default Saving a message as text

Status
Not open for further replies.

watersboy

Member
Outlook version
Outlook 2010 32 bit
Email Account
IMAP
I have searched far and wide and am not finding a solution or how to. I hope some one can help. I save multiple messages everyday as text files. I just upgraded from 2007 outlook to 2010. Before the upgrade I had it defaulted to save as text. I did not do this that I recall it just has been that way. Now that I have upgraded it is defaulted to msg. Please tell me if there is a way to do this as it will save me an immense amount of excess clicking. Thank you.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Is should have defaulted to msg unless you selected 2 or more messages.

A 1 step method to change it: tab to save as type, press t.

Or use a macro. I tweaked this macro to make this:

Code:
Sub SaveMailAsTxtFile()
Const OLTXT = 0
Dim oMail As Outlook.mailItem
Dim sPath As String
 Dim dtDate As Date
 Dim sName As String
 Set oMail = Application.ActiveExplorer.Selection.Item(1)
 sName = oMail.Subject
 ReplaceCharsForFileName sName, "_"
 dtDate = oMail.ReceivedTime
 sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
   vbUseSystem) & Format(dtDate, "-hhnnss", _
   vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".txt"
 oMail.SaveAs "C:\path\to\save\" & sName, OLTXT 
 
End Sub 
 
Private Sub ReplaceCharsForFileName(sName As String, _
 sChr As String _ 
 
)
 sName = Replace(sName, "/", sChr)
 sName = Replace(sName, "\", sChr)
 sName = Replace(sName, ":", sChr)
 sName = Replace(sName, "?", sChr)
 sName = Replace(sName, Chr(34), sChr)
 sName = Replace(sName, "<", sChr)
 sName = Replace(sName, ">", sChr)
 sName = Replace(sName, "|", sChr) 
 
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
BTW, it used to be if the message was in plain text format, save as would default to .txt format. That could possibly be why it worked for you before.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
F VBA to move email from Non Default folder to Sub folders as per details given in excel file Outlook VBA and Custom Forms 8
e_a_g_l_e_p_i Outlook 2010 How to set default email address for website links Using Outlook 3
V Accepted meetings do not get the default reminder Using Outlook 0
Fozzie Bear Accepted Zoom Invites deleting without going into Default Calendar - Office 2016 Mac Using Outlook 3
W September 2020 - No Default Email Client message after Office Update Using Outlook 1
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0
R How to get the Items object of the default mailbox of a specific account in a multiple account Outlook? Outlook VBA and Custom Forms 0
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1
F Default font for notes in contacts Using Outlook 1
S Outlook 2010 unable to change default font Using Outlook 7
O How come default profile changed? Using Outlook 2
N How to set automatically the default or user defined Quickstyle Templates by Answer in Outlook Using Outlook 1
W Message class changes of a custom form changes to the default form Using Outlook 2
T Outlook changes default account Using Outlook 1
P how to remove unwanted PST file default categories assigned to many calendar entries Using Outlook 7
P Reading Pane (Reading Pain?) Default Setting Using Outlook 1
A Add to Outlook Contacts from email - default view Outlook VBA and Custom Forms 1
P Making iCloud the default calendar for Outlook 2016 Using Outlook 3
M Outlook 2016: Changing default font for Notes and Reading Pane Using Outlook 4
V Change default default save location to Quick Access Using Outlook 1
V Changing default date for task follow-up buttons Using Outlook 2
C Change default "Save Sent Item To" folder Outlook VBA and Custom Forms 9
V VBA when replying + Default Account Using Outlook 2
P Outlook.com account overrules default account Using Outlook.com accounts in Outlook 8
P Outlook 2016 Not Default Client Using Outlook 5
D Add all meeting rooms to the meeting request by default Outlook VBA and Custom Forms 0
Mark White VBScript Move sent mail to non-default folder Outlook VBA and Custom Forms 5
Mark White VBScript Move sent mail to non-default folder Outlook VBA and Custom Forms 0
N How to delete default folder "Contacts" (olFolderContacts) in a .pst file Using Outlook 8
D Default Send Account that Works? Using Outlook 0
T Changing default Mail Account in Outlook 2016 - POP3 Using Outlook 1
J Setting default address book Using Outlook 0
V importing appointments to non-default calendar? Using Outlook 1
H Change Default Email Account Using VBA Outlook VBA and Custom Forms 5
C Change default colors for conditional formatting Using Outlook 2
S Default Font in body of Task Using Outlook 0
Diane Poremsky Set Another Data File as Default When Using an Exchange Account Using Outlook 0
G Can't open .pst. Message could not access default folder (Outlook 2010 (.pst). Before that was backi Using Outlook 0
Diane Poremsky Shared Mailboxes and the Default 'Send From' Account Using Outlook 0
Diane Poremsky Working with VBA and non-default Outlook Folders Using Outlook 0
Diane Poremsky To Change the Default E-mail Program in Windows Using Outlook 0
C Delete Subject-Add Organizer to all Reservations in Default Calendar. Using Outlook 0
Diane Poremsky Setting the default Country for Outlook Contacts Using Outlook 0
B Outlook 2016: Can't delete default calendar but I don't use it Using Outlook 7
B Calendar shows too much info by default Using Outlook 0
M Default Calendar Using Outlook 0
L Change default from english to danish ...... Using Outlook 5
R Making Outlook default client in share charm Using Outlook 4
B changing Win7 default backup schedule for Previous Versions Using Outlook 0

Similar threads

Top