How to retrieve mail from the inbox vis Extra!Basic

[Holly888]

I could open folders in outlook by using the following code :

Set thisApp = CreateObject("Outlook.Application")
Set thisNameSpace = thisApp.GetNamespace("MAPI")
Set thisFolder = thisNameSpace.Folders("Personal Folders")
Set theseItems = thisFolder.Items

these code doesn't work for Inbox. Do you know how to retrieve mail from Inbox?

 

[SkipVought]

Hi,

Within your Personal Folder are other Folders. Maybe like...

Set ThisFolder = ThisFolder.Folders("Inbox")

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[Holly888]

Hi SkipVought,
It didn't work!The Inbox is not within the personal folders. Under the Mailbox, there's subfolder for calender , sent items and inbox. I could create mail item using CreateItem(olmailitem) function. Now I am looking some way to retrieve mail from Inbox.

 

[brumo]

 Set thisFolder = thisNameSpace.Folders(olFolderInbox)

 

[Holly888]

I find the solution myself. Thanks anyway!

 

[SkipVought]

Please post your solution, as it will benefit other Tek-Tip members.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[Holly888]

The solution is:

Set thisApp = CreateObject("Outlook.Application")
Set thisNameSpace = thisApp.GetNamespace("MAPI")
Set thisFolder = thisNameSpace.Folders("Mailbox- lastname, first name")
Set thisFolder = thisFolder.Folders("Inbox")
Set theseItems = thisFolder.Items

Please note that the Inbox is a subfolder under "Mailbox - last name, First Name" in outlook.