Save mail Attachments ?

[Dttrue]

Hi there ,
How do I save mail attachment/s , as and when they arrive in the Inbox (Microsoft Outlook 2000), without any manual intereference . SOme kind of a VB script ,which runs with Rules Wizard.

ANy help is much appreciated.


Thanks & regards

rk

 

[Smithsco]

This will do the job, but you may want to go though it to customise it for your job.


Dim Outlook
Set Outlook = CreateObject("Outlook.Application&quot

FilePath = "c:\temp" 'attachment will be saved here

k = 1
j = Outlook.Session.Folders.Count

For i = 1 To Outlook.Session.Folders.Item(j).Folders.Count
Set Folder_Item = Outlook.Session.Folders.Item(j).Folders.Item(i)

If Folder_Item.Name = "Inbox" Then

For Each Mail_Item In Folder_Item.Items
IsTifFile = False

For Each Att_Item In Mail_Item.Attachments

FileName = FilePath & "\" & att_item
Att_Item.SaveAsFile FileName
k = k + 1
IsTifFile = True
Next
Next
End If
Next