Save as HTML for multiple emails

Status
Not open for further replies.

cjohnsonuk

Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
I get emails from Microsoft File Server Resources Manager. I've asked it to attach HTML, CSV and XML files to email from the clients server to my works email on a schedule.

I found this great script to save the attachments

http://www.outlook-tips.net/code-samples/save-and-delete-attachments/

But for some reason Outlook doesn't consider the "attached" HTML as an attachment so doesn't save it, and that the bit of the email I need to pull out the tables for my report.

Doing a "save as" on the email creates the HTML files I want but when selecting multiple emails it only gives the option as "save as text" and I lose all the formatting!

Is there a way of saving each selected email as HTML?

Thanks
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
The HTML sounds like it is embedded in the message, not attached. You need a macro that will save the message as HTML.

Try using

Sub SaveHTMLMessage(Item As Outlook.MailItem)
'Change the path
Item.SaveAs "C:\folder\path\" & Item.Subject & ".htm", olHTML

End Sub

You can create a rule to run a script and select this script or run it from the menu as needed. (It needs a little tweaking to run it on all messages in a folder or a selection of messages. )

if the subject contains invalid characters, you need to either use a different subject or remove the characters. I have code to add a date the the subject here - its too long to post here. That code also has a function to remove illegal characters from the subject, or a simpler macro such as can do it:

Sub SaveHTMLMessage(Item As Outlook.MailItem)
Item.SaveAs "C:\folder\path" & RemoveIllegalCharacters(Item.Subject) & ".htm", olHTML

End Sub

Function RemoveIllegalCharacters(strItem As String) As String
Dim strTemp As String
strTemp = Replace(strItem, ":", "-")
strTemp = Replace(strTemp, "/", "-")
strTemp = Replace(strTemp, "\", "-")
RemoveIllegalCharacters = strTemp

End Function
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 1
M Save incoming Email as .html file with name of subject line Outlook VBA and Custom Forms 3
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Save emails within a certain date range to network drive Outlook VBA and Custom Forms 0
T Outlook 365 Move newly created tasks automatically on save. Outlook VBA and Custom Forms 1
G Save attachment run a script rule Outlook VBA and Custom Forms 0
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 12
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
N Save selected messages VBA does not save replies and/or messages that contain : in subject Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
S save attachment with date & time mentioned inside the file Outlook VBA and Custom Forms 0
S Add VBA save code Using Outlook 0
A Edit attachment Save and Reply Outlook VBA and Custom Forms 0
S Outlook (2016 32bit; Gmail IMAP) - Save sent message to Outllook Folder Outlook VBA and Custom Forms 0
P Outlook pst file is too huge with POP3. How to save more space? Using Outlook 4
D Prevent popup of "Do you want to save changes?" when closing after opening an appointment to view Outlook VBA and Custom Forms 2
A Unable to save recurring Meeting to Documents folder due to error Using Outlook 2
M Outlook 2013 Script Assistance - Save Opened Link with Subject Added Outlook VBA and Custom Forms 1
R Use an ItemAdd to Save Attachments on Arrival Outlook VBA and Custom Forms 0
W Outlook Calendar does not save view any longer! Using Outlook 3
S automate save the .xlxs file to share Network Using Outlook 1
S save email from excel Outlook VBA and Custom Forms 1
Y Open and Save Hyperlink Files in multiple emails Outlook VBA and Custom Forms 9
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
O Save attachments using hotkey without changing attributes Outlook VBA and Custom Forms 1
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
N Open & Save VBAProject.Otm using VBA Code Outlook VBA and Custom Forms 1
R VBA | Chosing path to save file Outlook VBA and Custom Forms 1
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
V Change default default save location to Quick Access Using Outlook 1
W Save Outlook attachment in network folder and rename to current date and time Outlook VBA and Custom Forms 18
C Change default "Save Sent Item To" folder Outlook VBA and Custom Forms 9
C Outlook - cannot save subject line changes Using Outlook 2
J Save E-mail attachments in a specific folder Outlook VBA and Custom Forms 0
I Outlook 2016 64bit - on receipt convert emails into PDF and save Outlook VBA and Custom Forms 2
V VB script code to save a specific email attachment from a given email Outlook VBA and Custom Forms 14
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
N editing drafts - won't let me save Using Outlook 12
nathandavies Email Details to Excel & Save as .MSG on one macro - combination of 2 macros Outlook VBA and Custom Forms 3
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
D Save Sent Item to Using Outlook 0
Diane Poremsky Save Selected Email Message as .msg File Using Outlook 11
Diane Poremsky Export (Save) Outlook Contact photos Using Outlook 0
Diane Poremsky Save Messages and Attachments to a New Folder Using Outlook 0

Similar threads

Top