OUTLOOK Help? Auto Save attachments somewhere?

[VulcanJedi]

I know VBA for XL, no outlook, can someone help? I wnt to set up a dummy email account and have all emails with attachments to store attachment in c:/saved_attachments or something?! Please let me know if this is possible and anybody that could help , cause I know no Outlook I would greatly appreciate. TIA

Tranpkp

 

[VulcanJedi]

nevermind I think i figured it out myself


Tranpkp

 

[Chrisbi]

May I ask how you did it???? Thanks.

 

[VulcanJedi]

Merry Xmas?


Private Sub Application_NewMail()
Dim newMsg As Integer


Set myOlApp = CreateObject("Outlook.Application&quot
Set myNamespace = myOlApp.GetNamespace("MAPI&quot
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

c = myFolder.Items.Count

For newMsg = c To 1 Step -1

Set myitem = myFolder.Items(c)
Set myAttachments = myitem.Attachments
If myitem.UnRead = False Then Exit For
If myAttachments.Count > 0 Then


myitem.Display

Set myitem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myitem.Attachments
myAttachments.Item(1).SaveAsFile "C:\Outlook Attachments\" & myAttachments.Item(1).DisplayName
myitem.Close olDiscard
Else
Exit Sub
End If
Next newMsg

End Sub


Tranpkp