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
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 New Slipstick.com Articles 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 New Slipstick.com Articles 0
Diane Poremsky Working with VBA and non-default Outlook Folders New Slipstick.com Articles 0
Diane Poremsky To Change the Default E-mail Program in Windows New Slipstick.com Articles 0
C Delete Subject-Add Organizer to all Reservations in Default Calendar. Using Outlook 0
Diane Poremsky Setting the default Country for Outlook Contacts New Slipstick.com Articles 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
Diane Poremsky Changing the default *.pst and *.ost sizes New Slipstick.com Articles 0
E Outlook 2016 Default Blue Color Using Outlook 3
C Outlook 2016 - converting Word VBA to default Outlook message Outlook VBA and Custom Forms 0
J Installed Outlook but Default Calendar is Blank Using Outlook 3

Similar threads

Top