Importing Emails into Outlook when Parent Folder is Not the Inbox

scienceguy

New Member
Joined
Dec 28, 2018
Messages
2
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
 

ZVI

MrExcel MVP
Joined
Apr 9, 2008
Messages
3,658
Hi,
Try this:
Code:
  Set Folder = OutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderJunk).Parent.Folders("PROJECTS")
  Debug.Print Folder.Name, Folder.Items.Count
Regards
 

scienceguy

New Member
Joined
Dec 28, 2018
Messages
2
Hi ZVI,

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

Sincerely,
Roy
 

Forum statistics

Threads
1,085,586
Messages
5,384,598
Members
401,913
Latest member
chethan av

Some videos you may like

This Week's Hot Topics

Top