Where do the attachments go?

[Keith]

Outlook 2k, WinXP Pro.

Hi there.

When O2k connects to a server and an attachment is downloaded, exactly where
does it go?

I want to design an MS Access application that (amongst other things)
extracts the attachments in your Inbox to another location.

Many thanks.
Keith.
www.keithwilby.org.uk

 

[neo [mvp outlook]]

Assuming that you are working with an IMAP/POP/SMTP mailbox, the attachment
is stored in the Personal Folder (PST) file right along with everything
else.

 

[Keith]

Thanks for the response. Is it possible to access the attachments using
Office Automation say from Access?

 

[neo [mvp outlook]]

Yes. If unfamiliar with Outlook's Object Model and comfortable with VB/VBA,
you might give http://www.outlookcode.com/d/index.htm a peek.

 

[Keith]

Many thanks. I had already looked there but I can't find anything about
handling attachments. Could you point me in the right general direction
(sorry to be such a pain ;-)).

 

[neo [mvp outlook]]

This is a complex sample:
http://www.outlookcode.com/d/code/quarexe.htm

Here is an Outlook VBA macro:

' sample requires an item to be open.
' change activeinspector to activeexplorer
' if working with an item displayed in preview only

Sub SaveAttachment()
Dim objCurrentItem As Outlook.MailItem
Dim colAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment

Set objCurrentItem = Application.ActiveInspector.CurrentItem
Set colAttachments = objCurrentItem.Attachments

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub

 

[Keith]

Superb! Many thanks indeed.

This is a complex sample:
http://www.outlookcode.com/d/code/quarexe.htm

Here is an Outlook VBA macro:

' sample requires an item to be open.
' change activeinspector to activeexplorer
' if working with an item displayed in preview only

Sub SaveAttachment()
Dim objCurrentItem As Outlook.MailItem
Dim colAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment

Set objCurrentItem = Application.ActiveInspector.CurrentItem
Set colAttachments = objCurrentItem.Attachments

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("C:\" & objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub