Try to pull emails from outlook inbox. I created a folder named "personal 2012" and sub-folder "this Weeks DTRs" under outlook inbox. Set Fldr2 to this folder but it keeps telling me "an object couldnt be found".

Sub Test()

Dim ns As Namespace
Dim fld2SaveAtt As MAPIFolder
Dim MailItem As Object
Dim Att As Attachment
Dim FileName As String
Dim intFiles As Integer

Dim oExcel As Excel.Application
Dim oWB As Workbook

Set ns = GetNamespace("MAPI")

Set Fldr2 = ns.Folders("Personal 2012").Folders("This Weeks DTRs")