Importing Emails into Outlook when Parent Folder is Not the Inbox

[scienceguy]

Hello,

I am using the following code to import Outlook 365 emails into Excel. However, my parent folder is NOT the Inbox. Right-clicking on the account name, I created a folder called "PROJECTS". This would be at the same hierarchy (I believe) as the Inbox (much like in principle the Deleted Items folder is). How do I revise the following line to go to the PROJECTS folder:

Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)

Many thanks!
Roy



Sub GetFromOutlook()
'Adapted from https://www.howtoexcel.org/vba/how-to-import-your-outlook-emails-into-excel-with-vba/


Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer


Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)


i = 1


For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range("From_date").Value Then
Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject
Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime
Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName
Range("eMail_text").Offset(i, 0).Value = OutlookMail.Body

i = i + 1
End If
Next OutlookMail


Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing


End Sub

 

[Eric W]

Welcome to the forum.

I've never tried it, but the example on this page seems pretty straightforward:

https://docs.microsoft.com/en-us/office/vba/api/outlook.folders

 

[ZVI]

Hi,
Try this:

  Set Folder = OutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderJunk).Parent.Folders("PROJECTS")
  Debug.Print Folder.Name, Folder.Items.Count

Regards

 

[scienceguy]

Hi ZVI,

This worked GREAT! Thank you so much for your time and assistance!

Sincerely,
Roy

 

[ZVI]

Glad it helped and thanks for the feedback!