Solved

Downloading Emails from mailbox other than default to MS Access using VBA

Posted on 2011-03-18
14
853 Views
Last Modified: 2012-05-11
Hello

Hoping someone can advise. I have code to download emails from a mailbox to an Access database. It works fine against the default mailbox, but I have now mapped my Outlook to another mailbox and it is from this that I want to download the emails. Currently my code is as below. Please can someone advise what syntax I have to use to force the code to download the emails from a mailbox other than the default one.

Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)

Thanks in advance.


0
Comment
Question by:Begbie76
  • 9
  • 5
14 Comments
 
LVL 17

Expert Comment

by:Barry Cunney
Comment Utility
I am thinking that if you have mapped your Outlook to a new mailbox the above line of code should work, as it should reference the Inbox folder of the mailbox that you mapped Outlook to.

Otherwise in your code prior to this you may have to specify in the code for the MAPI session to explicitly connect to this other mailbox
0
 
LVL 17

Expert Comment

by:Barry Cunney
Comment Utility
This is the logon methd
objSession.Logon( [profileName] [, profilePassword] [, showDialog] [, newSession] [, parentWindow] [, NoMail] [, ProfileInfo] )

So for initial testing of your set you could do something like this
Set oSession = CreateObject("MAPI.Session")
oSession.Logon <yourmailprofilename>, <yourpassword>, True

by setting the [showDialog] to true you shoukd get a logon dialog and this may help you to confirm that the session is actually logging on to the other mailbox.

0
 

Author Comment

by:Begbie76
Comment Utility
Thanks for your quick response. I'm mapped to two mailboxes in Outlook, my personal one and this group mailbox, and it seems to be using my personal one as the default. I only want to download emails from the group one. I'm specifying the MAPI session like this:

Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)

The group mailbox is called 'OCC-CardAdmin'.
0
 
LVL 17

Expert Comment

by:Barry Cunney
Comment Utility
This is a longshot - try using GetSharedDefaultFolder method

Sub ResolveName()
    Dim myNamespace As Outlook.NameSpace
    Dim myRecipient As Outlook.Recipient
    Dim CalendarFolder As Outlook.Folder
      
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myRecipient = myNamespace.CreateRecipient("<your group name>")
    myRecipient.Resolve
    If myRecipient.Resolved Then
        Call ShowInbox(myNamespace, myRecipient)
    End If
End Sub

Sub ShowInbox(myNamespace, myRecipient)
    Dim InboxFolder As Outlook.Folder

    Set InboxFolder = _
        myNamespace.GetSharedDefaultFolder _
        (myRecipient, olFolderCalendar)
    InboxFolder.Display
End Sub

0
 
LVL 17

Expert Comment

by:Barry Cunney
Comment Utility
small update to code
Sub ResolveName()
    Dim myNamespace As Outlook.NameSpace
    Dim myRecipient As Outlook.Recipient
    Dim CalendarFolder As Outlook.Folder
     
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myRecipient = myNamespace.CreateRecipient("<your group name>")
    myRecipient.Resolve
    If myRecipient.Resolved Then
        Call ShowInbox(myNamespace, myRecipient)
    End If
End Sub

Sub ShowInbox(myNamespace, myRecipient)
    Dim InboxFolder As Outlook.Folder

    Set InboxFolder = _
        myNamespace.GetSharedDefaultFolder _
        (myRecipient, olFolderInbox)
    InboxFolder.Display
End Sub

0
 

Author Comment

by:Begbie76
Comment Utility
Just tried that. I'm getting a 'Method or data member not found' error at .GetNamespace.
0
 
LVL 17

Expert Comment

by:Barry Cunney
Comment Utility
Try this - put this code in one sub behind a button to test

Sub Display_Inbox_Click()
Dim OlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace

Dim myRecipient As Outlook.Recipient
Dim Inbox As Outlook.Folder
     
Set OlApp = New Outlook.Application
     
Set myNamespace = OlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("'OCC-CardAdmin'")
   
myRecipient.Resolve
    If myRecipient.Resolved Then
        Set Inbox = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderInbox)
   
        Inbox.Display

    End If

End Sub
0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 

Author Comment

by:Begbie76
Comment Utility
Just tried that. On the If statement myRecipient isn't resolved, so it's just jumping to End If.
0
 
LVL 17

Expert Comment

by:Barry Cunney
Comment Utility
Is it MS Outlook which is your e-mail application?
0
 
LVL 17

Expert Comment

by:Barry Cunney
Comment Utility
What is displayed for the other mailbox in your MS Outlook, similar to the print screen I have attached?
MailBoxPrintScreen.jpg
0
 
LVL 17

Accepted Solution

by:
Barry Cunney earned 500 total points
Comment Utility
You could also give this a shot

Dim OlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace

Dim myRecipient As Outlook.Recipient
Dim Inbox As Outlook.Folder
     
Set OlApp = New Outlook.Application
     
Set myNamespace = OlApp.GetNamespace("MAPI")

Set Inbox = myNamespace.Folders("Mailbox - OCC-CardAdmin").Folders("Inbox")

    Inbox.Display
0
 

Author Comment

by:Begbie76
Comment Utility
It is MS Outlook...I've attached a screenshot (sorry, don't have the Java installed for a screencast). Access is taking it from the Abdey Mark mailbox instead of the OCC-CardAdmin. I'll give your code above a whirl. Thanks for your help, it's most appreciated.

 Doc1.doc
0
 
LVL 17

Expert Comment

by:Barry Cunney
Comment Utility
The last code I posted should work and should reference the OCC-CardAdmin mailbox as displayed in your print screen

The last line
Inbox.Display
is just a line to test that the 'InBox' variable(folder object) got a valid reference to the Inbox in the OCC-CardAdmin Mailbox
It should display in a new popupOutlook window the Inbox of OCC-CardAdmin mailbox

Then you will know that Inbox references the required inbox  and you can then proceed to do with this whatever code you were doing before to download the mails
0
 

Author Comment

by:Begbie76
Comment Utility
Thank you so much. That code worked perfectly and now I can go home for the weekend! :-)
0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now