View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Steve Yandl[_3_] Steve Yandl[_3_] is offline
external usenet poster
 
Posts: 117
Default Saving outlook attachments with VBA code

I'm assuming that the generic inbox is a sibling folder to the default
inbox.

Try something like this to get at that other inbox, assuming the generic
inbox is named "Staff Inbox" in my example:
'------------------------------------
Set objInbox = olNs.GetDefaultFolder(olFolderInbox)
strFolderName = objInbox.Parent
Set objMailbox = olNS.Folders(strFolderName)
Set objStaffInbox = objMailbox.Folders("Staff Inbox")
'------------------------------------

Steve Yandl


"ewan7279" wrote in message
...
Hi all,

I have my own outlook inbox and also a generic inbox I share with other
shift members. I have been able to save attachments from emails to my own
inbox using the code found at
http://www.dicks-clicks.com/excel/ol...ve_Attachments , but
am
unable to do the same with my generic inbox - I get a message saying the
folder does not exist.

Does anyone know if/how this code can be adjusted to work on a generic
mailbox?

Thanks in advance...