Can you automat saving attachments and emails to a directory
 

I've been using a macro similar to the one Alan posted here a couple years
ago. I ran into some problems when the company migrated from XP to Vista.
The code is still digitally signed, but Outlook appears to be ignoring the
script in the rule that calls it. I've set break points in the code but none
of them seem to fire.
I know that the rule is running, because it's executing the move to specify
folder and mark as read features of it.

Any ideas why Outlook 2007 would be ignoring breakpoints or script code all
together?

-Keiran

"Alan" wrote:

"Neil1958" wrote in message
...

Open Inbox
Click on the new Email
Click on Marco which runs the following
Detaches any attachment in the Email to a set directory
Saves the text of the email to the same directory and a txt file or
doc.

or could all the above be automated more by having the email do the
above as in arrived in the inbox as new mail. Set formated emails
only for do this.


Hi Neil,

To save the emails to a folder, just drag them across and copy or move
them. They will come across as MSG files which are fully functional
outlook items that can be opened and then forwarded or replied to just
like any other email in outlook.

Try this to save attachments (change the path to suit).

+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

Sub ExtractAttachments()

Dim MyItem As MailItem
Dim MyAtt As Attachment


Set SelectedItems = ActiveExplorer.Selection


For Each MyItem In SelectedItems

For Each MyAtt In MyItem.Attachments

MyAtt.SaveAsFile "D:\Temp\" & MyAtt.DisplayName

Next

Next

End Sub


+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+