The following bit of code sweeps my Outlook Inbox looking for e-mails with a certain subject and then save's the attachment in a given location. I also have a shared account with it's own e-mail and I don't know how to get the code to sweep that one instead of my personal Inbox? Any ideas?

David

Sub eMail()

On Error GoTo GetAttachments_err

Dim ns As Namespace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer

'Default settings
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
FileName = xlCT.Range("nmFilePath")
i = 0

If Inbox.Items.Count = 0 Then
MsgBox "There are no messages in the Inbox.", vbInformation, _
"Nothing Found"
Exit Sub
End If
filecount = 0

Let datesweep = Date - 3

'Sweeping Inbox Folder

'For Each Atmt In Items.Attachments
For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
If Left(Item, 13) <> "Undeliverable" Then
If Item.SentOn > datesweep Then
If Atmt <> "Picture (Metafile)" Then
If Atmt <> "Picture (Enhanced Metafile)" Then
If Atmt <> "Picture (Device Independent Bitmap)" Then
If Item.Subject = "BlackRock European Team Conference List" Then
'Delete if existing
If Dir(FileName) <> "" Then
SetAttr FileName, vbNormal
Kill (FileName)
End If
Atmt.SaveAsFile FileName
Call Template
Call Data
i = i + 1
End If
End If
End If
End If
End If
End If
Next Atmt
GetAttachments_err:
Next Item

If i > 0 Then
varResponse = MsgBox(" I found " & i & " conference e-mail files.")
Else
MsgBox "I didn't find any conference e-mails in your inbox", vbInformation, _
"Finished!"
End If

xlCT.Activate

GetAttachments_exit:
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Exit Sub

'Error trap
'GetAttachments_err:
' MsgBox "An unexpected error has occurred." _
' & vbCrLf & "Please note and report the following information." _
' & vbCrLf & "Macro Name: GetAttachments" _
' & vbCrLf & "Error Number: " & Err.Number _
' & vbCrLf & "Error Description: " & Err.Description _
' , vbCritical, "Error!"
' Resume GetAttachments_exit

End Sub