• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 204
  • 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,

Derek
0
TLN_CANADA
Asked:
TLN_CANADA
1 Solution
 
Chris BottomleySoftware Quality Lead EngineerCommented:
How would it be called?  The basic mechanics of the save are:

Chris
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

0
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: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

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