View Single Post
  #3  
Old January 19th 06, 08:50 AM posted to microsoft.public.outlook.program_vba
Telecommm
external usenet poster
 
Posts: 4
Default AutoSave Zip File

Thank you Sir,
that clears the issue.
Thanks again.

"Michael Bauer" wrote:

Am Mon, 16 Jan 2006 23:10:02 -0800 schrieb Telecommm:

There must be only one method declaration, that is the first *or* the second
line only.

The sample expects that you call the method with a reference on the e-mail
in question. So if you decide to use the first line then please copy the
argument (i.e.: oMail as Outlook.MailItem) into the first line before
deleting the second one.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook



Hi,
Thanks for your help.
Since I am a novice so having a bit problem in running this code.
Its generating error in second line. Please have a look and advice.

Sub AutoSave_RTDs_From_Mansoor()
Public SaveAttachments(oMail as Outlook.MailItem)
Dim oAtt As Outlook.Attachment
For Each oAtt In oMail.Attachments
oAtt.SaveAsFile "d:\TestFolder" & oAtt.FileName
Next
End Sub



Thanks again.




"Michael Bauer" wrote:

Am Mon, 19 Dec 2005 03:58:02 -0800 schrieb Telecommm:

There“s no rule for saving attachments. But in Outlook = XP you can use

a
rule that runs a script if a new mail arrives with the specific subject.

Sample for such a script:

Public SaveAttachments(oMail as Outlook.MailItem)
Dim oAtt as Outlook.Attachment
For each oAtt in oMail.Attachments
oAtt.SaveAsFile "d:\path\" & oAtt.FileName
Next
End Sub


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook



Hi Experts,
I daily receive an email with a specific word "IUN" in subject field.

This
email
contains a zip attachment. I want to save this attachment automatically

in
a
folder in D Drive. Please tell me how can i do that. Do i need some

macro
or i can use the Rules of MS Outlook.

Thanks for the support.
Regards

Telecommm


Ads