• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 202
  • Last Modified:

Macro for adding emails to a folder

Hi all,

I print a lot of invoices etc that come into my inbox and I would like a macro that copies an email to a certain folder (either within Outlook or a folder on the C drive). I still want to keep the original email in the inbox and just create a copy of it in this directory.

Thanks guys,

1 Solution
Chris BottomleyCommented:
How would it be called?  The basic mechanics of the save are:

Set my_obj = Application.ActiveInspector.CurrentItem
   If my_obj.Class = olMail Then
       If my_obj.BodyFormat = olFormatPlain Then
           my_obj.saveas pathandfilename & ".MSG", olmsg
       ElseIf my_obj.BodyFormat = olFormatRichText Then
           my_obj.saveas pathandfilename & ".RTF", olRTF
       ElseIf my_obj.BodyFormat = olFormatHTML Then
           my_obj.saveas pathandfilename & ".HTML", olHTML
       End If
   End If

Open in new window

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now