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
 
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
boblewis Technical Issue with Custom Form - Save to Drafts Not Syncing Outlook VBA and Custom Forms 0
Rob Can't save MailItem because the message changed in .pst file Outlook VBA and Custom Forms 0
G Save emails as msg file from Outlook Web AddIn (Office JS) Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
E Save Selected Email Message as .msg File - digitally sign email doesn't works Outlook VBA and Custom Forms 1
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

Similar threads

Back
Top