CODEWITHSUNDEEP
vbaemailoutlook
MelBurslan
MelBurslan

Reputation: 2501

Macro to save e-mail as text file, to be used in a rule

My problem is very similar to this thread and this one. I think my issue is to combine these two questions.

I am running:

By reading these two questions as well as some other pages from Microsoft and elsewhere, I was able to open the VB editor and paste into it, this simple code:

Sub SaveEmail(msg As Outlook.MailItem)
  ' save as text
  msg.SaveAs "C:\Users\mel\mailsave\email.txt" & Format(Now, "YYYYMMDDHHMMSS"), _
      olTXT
End Sub

I tried going to the run menu and selecting run "sub/user form" item but the next dialog box is asking what to run and does not populate a list of macros available for running. Clicked on "save" icon but nothing changed.

Upvotes: 2

Views: 10353

Answers (1)

DanL
DanL

Reputation: 999

Specifying a method with that signature (Sub method (var As Outlook.MailItem)) allows you to use the method when creating a mailbox rule. As far as I understand your question, you're beyond that point.

Question 1

The format portion of your code is only going to save a unique file at most once per second. You're appending the current date and time to the file. Your main problem, however, is not the timestamp, but the file format. You should apply the timestamp before the file extension, e.g.

msg.SaveAs "C:\Users\mel\mailsave\email" & Format(Now, "YYYYMMDDHHMMSS") & ".txt", olTXT

Question 2

If you add the macro to a rule, it will be run when the rule is matched. The macro can be tested by creating a method that grabs the currently selected mail, e.g.

Sub TestSaveEmail()
   Call SaveEmail(ActiveExplorer.Selection(1))
End Sub

This macro can then be run by setting the cursor within the method and pressing F5.

The macro can also be added to the Outlook user interface by customizing the ribbon and adding a macro button. For help on customizing the ribbon, refer to the following article:

Customize the ribbon

Upvotes: 4

Related Questions