VBA: Copy mail from shared outlook mailbox to excel

[Kruijf]

Hi all,

I have question, im looking for a macro that copies mail from a shared mailbox to excel. I do understand a little bit of VBA but im not good with writing my own macro's (yet). On the internet i found a macro that copies mail from specific folder in my default mail account, but that one does not work with shared mailboxes.

We need mails from specific folders in outlook in Excel so we can use the data for some reports that we make daily. Because it takes a while to copy those mails we would like to automate this with a macro. I did search on the internet but on a few occasions i found that people noted that it was not possible. We're using Office 2013.

So my questions are.
- Is it possible to do this with VBA?
- If so, does anybody have a macro that i can use for my situation?


I hope it's clear what we need, hopefully it's possible and somebody can send me in the right direction.
Thanks in advance.

Kind regards,
Tom

 

[Obriesp]

Hi RickXL,

I'm having the same issue as the original post, however, when I try to reference the shared mailbox, I get an Automation error. Any advice on this?

 

[krypto17]

Hi, i find this thread very helpful. I have a question thought. Is possible to work with multiple shared mailbox? Let’s say maybe 6 shared mailbox? with a same function of every time we copy the email, it will just populate the next empty row?

 

[carzur]

Hi,
I have tried to start using the coding provided in the thread but keep getting the error on Set olFldr = objNS.Folders("xxx@xx.com"). It is a shared mailbox. I tried different mailboxes but it keeps getting stuck on the same line


Sub getEmails4()

Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olFldr As Outlook.MAPIFolder
Dim olItem As Object
Dim olMailItem As Outlook.MailItem

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olFldr = objNS.Folders("xxx@xx.com")
Set olFldr = olFldr.Folders("Inbox")
Set olFldr = olFldr.Folders("Customers")
' Set olFldr = olFldr.Folders("A-C")
Set olFldr = olFldr.Folders("CustomerA")

For Each olItem In olFldr.Items
If olItem.Class = olMail Then
Set olMailItem = olItem
If olMailItem.ReceivedTime > Date Then Debug.Print olMailItem.Subject
End If
Next olItem

End Sub