If the folder is a sub folder of the DEFAULT inbox then

Set TargetFolderItems = ns.GetDefaultFolder(olFolderInbox).folders("Batch Prints").Items
If you have multiple accounts and inboxes then if the above is not appropriate, cycle through the available accounts e.g.

Dim olNS As Outlook.NameSpace
Dim olStore As Outlook.Store
Dim olFolder As Outlook.Folder
    Set olNS = Application.GetNamespace("Mapi")
    For Each olStore In olNS.Stores
        For Each olFolder In olStore.GetDefaultFolder(olFolderInbox).folders
            If olFolder.Name = "Batch Prints" Then
                MsgBox "Folder exists in store " & olStore.DisplayName
                'do something with olFolder
                Exit For
            End If
        Next olFolder
    Next olStore