I need some assistance creating a VBA that will save an attachment
from a message via Outlook Rules. I have read all the posts, and
various links to web pages with save attachments code, and still can't
figure it out. I think much of the code I saw was more complex than I
need. I receive a single email each day from a person with only 1
attachment. When the rule identifies that message, all I want to do
is save the attachment to a specific folder, with a new name that I
choose (not the name the attachment has already). Then delete the
email. That's it. I don't need to loop through any other messages or
scan for any other attachments. I'm using Outlook 2003. Here is what
I've tried to come up with, but it's not working.


Sub SaveAttachments(Item As Outlook.MailItem)

Dim myAttachments As Object

Set myAttachments = myItem.Attachments
myAttachments(1).SaveAsFile "J:\Health Business Operations\MSO
\Blue Options\BOSCO Resource Management\Standard Reports\MSO Daily
Report\Current Report\" & "MCC Daily Performance Scorecard.mdi"
Item.Delete
End Sub