• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 873
  • Last Modified:

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

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
Begbie76
Asked:
Begbie76
  • 9
  • 5
1 Solution
 
Barry CunneyCommented:
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
 
Barry CunneyCommented:
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
 
Begbie76Author Commented:
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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
Barry CunneyCommented:
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
 
Barry CunneyCommented:
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
 
Begbie76Author Commented:
Just tried that. I'm getting a 'Method or data member not found' error at .GetNamespace.
0
 
Barry CunneyCommented:
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
 
Begbie76Author Commented:
Just tried that. On the If statement myRecipient isn't resolved, so it's just jumping to End If.
0
 
Barry CunneyCommented:
Is it MS Outlook which is your e-mail application?
0
 
Barry CunneyCommented:
What is displayed for the other mailbox in your MS Outlook, similar to the print screen I have attached?
MailBoxPrintScreen.jpg
0
 
Barry CunneyCommented:
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
 
Begbie76Author Commented:
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
 
Barry CunneyCommented:
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
 
Begbie76Author Commented:
Thank you so much. That code worked perfectly and now I can go home for the weekend! :-)
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 9
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now