Accessing a Mailbox
 

There is an "Other Calendar" option named Master Schedule. It is not in the
public folder tree, it is an individual user mailbox in the system. I need to
access the items and process against the schedules.

Dim emlSecond As MailItem
Dim nsMyNameSpace As NameSpace
Dim fdrInbox As MAPIFolder
Set nsMyNameSpace = Application.GetNamespace("MAPI")
Set fdrInbox = nsMyNameSpace.GetSharedDefaultFolder("Master Schedule",
olFolderInbox)
Set emlSecond = fdrInbox.Items.Item(5)
MsgBox "Second e-mail : " & vbCrLf & vbCrLf & emlSecond.Subject & vbCrLf &
emlSecond.Body

Gives a type mismatch at "Master Schedule". How do I access the mailbox items?

Accessing a Mailbox
 

GetSharedDefaultFolder method takes the Recipient object (such as the one
returned by Namespace.CreateRecipient) as the first parameter.
Do you have the Outlook VBA help file installed?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Andy Jax" wrote in message
...
There is an "Other Calendar" option named Master Schedule. It is not in
the
public folder tree, it is an individual user mailbox in the system. I need
to
access the items and process against the schedules.

Dim emlSecond As MailItem
Dim nsMyNameSpace As NameSpace
Dim fdrInbox As MAPIFolder
Set nsMyNameSpace = Application.GetNamespace("MAPI")
Set fdrInbox = nsMyNameSpace.GetSharedDefaultFolder("Master Schedule",
olFolderInbox)
Set emlSecond = fdrInbox.Items.Item(5)
MsgBox "Second e-mail : " & vbCrLf & vbCrLf & emlSecond.Subject & vbCrLf &
emlSecond.Body

Gives a type mismatch at "Master Schedule". How do I access the mailbox
items?

Accessing a Mailbox
 

Thank you for the CreateRecipient. This is where my error was.

"Andy Jax" wrote:

There is an "Other Calendar" option named Master Schedule. It is not in the
public folder tree, it is an individual user mailbox in the system. I need to
access the items and process against the schedules.

Dim emlSecond As MailItem
Dim nsMyNameSpace As NameSpace
Dim fdrInbox As MAPIFolder
Set nsMyNameSpace = Application.GetNamespace("MAPI")
Set fdrInbox = nsMyNameSpace.GetSharedDefaultFolder("Master Schedule",
olFolderInbox)
Set emlSecond = fdrInbox.Items.Item(5)
MsgBox "Second e-mail : " & vbCrLf & vbCrLf & emlSecond.Subject & vbCrLf &
emlSecond.Body

Gives a type mismatch at "Master Schedule". How do I access the mailbox items?