Save Email as .msg File with Code

Status
Not open for further replies.
P

Peter Hibbs

This is what I do at the moment :-

Open Outlook (2003)

Download my emails

Select an email

Click File -> Save As...

Switch to Outlook Message Format (*.msg)

Locate my 'save messages' folder and click Save to save the email as a

> .msg file in the selected folder.

This is what I would like to do :-

Open Outlook (2003)

Download my emails

Select an email

Click a button on the tool-bar which would automatically save the

selected email as a .msg file in a preselected folder.

What code would I need to do that. I have written code stored in the

VbaProject.OTM file before so that would be my first choice. I have

also seen Web sites that recommend using an Add-In file (.dll) but I

have not done that before so that would not be my preference. I have

created a button on the tool-bar with code so I am familiar with the

procedure for that part.

The other problem I have is that I will be testing this with OL2003

but I also need it to work on OL2007, hopefully that will be possible

using the same code (no idea at the moment on how to add buttons to a

ribbon but will cross that bridge when I get to it, if I ever do).

Peter Hibbs.
 
Something like

for each Msg in Application.ActiveExplorer.Selection

Msg.SaveAs("c:\temp\Filename.msg", olMsg)

next

Dmitry Streblechenko (MVP)

-

"Peter Hibbs" <peter.hibbs@btinternet.com.NO_SPAM> wrote in message

news:7bot75hn8qojiak9oecbmgd5h1pl72hv6r@4ax.com...
> This is what I do at the moment :-

> Open Outlook (2003)
> Download my emails
> Select an email
> Click File -> Save As...
> Switch to Outlook Message Format (*.msg)
> Locate my 'save messages' folder and click Save to save the email as a
> .msg file in the selected folder.

> This is what I would like to do :-

> Open Outlook (2003)
> Download my emails
> Select an email
> Click a button on the tool-bar which would automatically save the
> selected email as a .msg file in a preselected folder.

> What code would I need to do that. I have written code stored in the
> VbaProject.OTM file before so that would be my first choice. I have
> also seen Web sites that recommend using an Add-In file (.dll) but I
> have not done that before so that would not be my preference. I have
> created a button on the tool-bar with code so I am familiar with the
> procedure for that part.

> The other problem I have is that I will be testing this with OL2003
> but I also need it to work on OL2007, hopefully that will be possible
> using the same code (no idea at the moment on how to add buttons to a
> ribbon but will cross that bridge when I get to it, if I ever do).

> Peter Hibbs.
>
 
Dmitry,

I tried this :-

Public Sub SaveMessage()

Dim Msg As Variant

For Each Msg In Application.ActiveExplorer.Selection

msg.SaveAs("c:\temp\Filename.msg", olMsg) '<--red text

Next

End Sub

but the middle line of the For-Next shows up in red. Is there anything

else I need to do?

Peter Hibbs.

On Sun, 9 Aug 2009 08:33:32 -0700, "Dmitry Streblechenko"

<dmitry@dimastr.com> wrote:


> Something like

> for each Msg in Application.ActiveExplorer.Selection
> Msg.SaveAs("c:\temp\Filename.msg", olMsg)
> next
 
Dmitry,

OK, I think I sorted it. Used this -

Dim Msg As Variant

For Each Msg In Application.ActiveExplorer.Selection

Msg.SaveAs "c:\temp\" & Msg & ".msg", olMSG

Next

Thanks again.

Peter Hibbs.

On Sun, 09 Aug 2009 18:34:05 +0100, Peter Hibbs

<peter.hibbs@btinternet.com.NO_SPAM> wrote:


> Dmitry,

> I tried this :-

> Public Sub SaveMessage()

> Dim Msg As Variant

> For Each Msg In Application.ActiveExplorer.Selection
> msg.SaveAs("c:\temp\Filename.msg", olMsg) '<--red text
> Next

> End Sub

> but the middle line of the For-Next shows up in red. Is there anything
> else I need to do?

> Peter Hibbs.

> On Sun, 9 Aug 2009 08:33:32 -0700, "Dmitry Streblechenko"
> <dmitry@dimastr.com> wrote:
>
> >Something like
>

>>for each Msg in Application.ActiveExplorer.Selection
> > Msg.SaveAs("c:\temp\Filename.msg", olMsg)
> >next
 
The line

"c:\temp\" & Msg & ".msg",

woudl read the default property from teh message, which happens to be

Subject::

"c:\temp\" & Msg.Subject & ".msg",

You need to ensure that the file name does not contain invalid chracters,

such as ":", "\", etc.

Dmitry Streblechenko (MVP)

-

"Peter Hibbs" <peter.hibbs@btinternet.com.NO_SPAM> wrote in message

news:t5du75hgeljt3k8ed8a5552ranmcdd2aub@4ax.com...
> Dmitry,

> OK, I think I sorted it. Used this -

> Dim Msg As Variant

> For Each Msg In Application.ActiveExplorer.Selection
> Msg.SaveAs "c:\temp\" & Msg & ".msg", olMSG
> Next

> Thanks again.

> Peter Hibbs.

> On Sun, 09 Aug 2009 18:34:05 +0100, Peter Hibbs
> <peter.hibbs@btinternet.com.NO_SPAM> wrote:
>
> >Dmitry,
>

>>I tried this :-
>

>
>>Public Sub SaveMessage()
>

>>Dim Msg As Variant
>

>> For Each Msg In Application.ActiveExplorer.Selection
> > msg.SaveAs("c:\temp\Filename.msg", olMsg) '<--red text
> > Next
>

>>End Sub
>

>
>>but the middle line of the For-Next shows up in red. Is there anything
> >else I need to do?
>

>>Peter Hibbs.
>

>>On Sun, 9 Aug 2009 08:33:32 -0700, "Dmitry Streblechenko"
> ><dmitry@dimastr.com> wrote:
> >
> >>Something like
> >
>>>for each Msg in Application.ActiveExplorer.Selection
> >> Msg.SaveAs("c:\temp\Filename.msg", olMsg)
> >>next
 
Yes, I already discovered that and have added some code to check this.

Thanks again.

Peter Hibbs.

On Mon, 10 Aug 2009 07:25:58 -0700, "Dmitry Streblechenko"

<dmitry@dimastr.com> wrote:


> The line
> "c:\temp\" & Msg & ".msg",
> woudl read the default property from teh message, which happens to be
> Subject::
> "c:\temp\" & Msg.Subject & ".msg",

> You need to ensure that the file name does not contain invalid chracters,
> such as ":", "\", etc.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
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
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 12
nathandavies Email Details to Excel & Save as .MSG on one macro - combination of 2 macros Outlook VBA and Custom Forms 3
Diane Poremsky Save Selected Email Message as .msg File Using Outlook 11
M Save selected email message as .msg file (with user to choose folder location) Outlook VBA and Custom Forms 14
J Code to Save Email as an .MSG to Directory when Emails Arrive Outlook VBA and Custom Forms 4
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
S save email from excel Outlook VBA and Custom Forms 1
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
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
Diane Poremsky Save Outlook Email as a PDF Using Outlook 0
B VBA Help Email that will save as draft and send as attachment Outlook VBA and Custom Forms 3
C Save Subject of Received Email as a String Outlook VBA and Custom Forms 1
C Rule To Save attachments on receipt of email Outlook VBA and Custom Forms 2
M Question: Is there a rule that will save email in Windows Explorer Outlook VBA and Custom Forms 3
M VBA code to save email attachments (PDF) as email subject line Outlook VBA and Custom Forms 1
D Save downloaded images with the email Using Outlook 2
D Save sent email in second account not default account? Using Outlook 1
K Save a received email in a mailbox subfolder which is the same as the @email Using Outlook 1
E can't save draft email in Outlook 2010 Using Outlook 2
M Rules - daily status (email) doesn't change much daily, save 1 per week how? Using Outlook 1
D Save Current email in Directory. Outlook VBA and Custom Forms 1
M Save incoming Email as .html file with name of subject line Outlook VBA and Custom Forms 3
J Save attachment if email is from joe Outlook VBA and Custom Forms 4
H Program email save as text file Outlook VBA and Custom Forms 5
T Is it possible to save email body without header? Outlook VBA and Custom Forms 6
G Save emails as msg file from Outlook Web AddIn (Office JS) 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
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
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 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

Similar threads

Back
Top