Check if a mailbox folder exists

**fcomino** · 05-24-2010, 05:29 AM

Hey Guys

I have the following code which counts items in a mailbox:

Sub CountMail()
    
Dim ns As Namespace
Dim mailbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer

Set ns = GetNamespace("MAPI")

Set mailbox = ns.Folders("Mailbox - BOB").Folders("Inbox")
EmailItemCount = mailbox.Items.Count
Worksheets("Sheet1").Cells(3, 2) = EmailItemCount

Set mailbox = ns.Folders("Mailbox - JOHN").Folders("Inbox")
EmailItemCount = mailbox.Items.Count
Worksheets("Sheet1").Cells(4, 2) = EmailItemCount

End Sub

I want to be able to run a check to see if the mailbox exists before I do an email count.

So I need an IF statement to check if mailbox exists in destination, if yes then run email count and put in Cells(x,y) else if mailbox doesnt exist then put "N\A" in Cells(x,y).

**snb** · 05-24-2010, 06:50 AM

Why so complicated ?

Sub CountMail()
  on error resume next
  With GetNamespace("MAPI")
     x=.Folders("Mailbox - BOB").Folders("Inbox").Items.Count
     y=.Folders("Mailbox - JOHN").Folders("Inbox").Items.Count
  if err.number >0 then msgbox "at least 1 inbox doesn't exist"
End Sub

Thsi code runs in Outllook. (not in Excel)

**fcomino** · 05-24-2010, 06:58 AM

I need this to run in Excel...

Its a scheduled report that I run everyday on about 10 mailboxes. Its counts all the items in each mailbox.

If someone else runs it, i want it to show which mailboxes they dont have.

**snb** · 05-24-2010, 07:05 AM

From Excel

Sub CountMail()
  on error resume next
  sq=split("BOB|JOHN|AngelA|Mary","|")
  With createobject("Outlook.Application").GetNamespace("MAPI")
     for j=0 to ubound(sq)
       x=.Folders("Mailbox - " & sq(j)).Folders("Inbox").Items.Count
       if err.number = 0 then sq(j)=""
       if err.number>0 then err.clear 
     next
  End with
  msgbox "unavailable mailboxes " & join(sq)
End Sub

**fcomino** · 05-24-2010, 08:11 AM

Ummm This is not what I want. Thanks for your help though.

For Each mailbox I need a count of all the items in the Inbox. These are then displayed in a particular cell that I assign it to. I have already done this. See the Code above.

The only thing I am unable to do is:

If the mailboxes is not available, in that desginated Cell in Excel I want it to display N\A, instead i am getting error messages.
I know how to clear them, but instead I want it to display N\a in the cell.

**romperstomper** · 05-24-2010, 08:25 AM

Try this:

Sub CountMail()
    
Dim ns As Namespace
Dim mailbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer

Set ns = GetNamespace("MAPI")
On Error Resume Next
Set mailbox = ns.Folders("Mailbox - BOB").Folders("Inbox")
If mailbox Is Nothing Then
    Worksheets("Sheet1").Cells(3, 2) = "N/A"
Else
    Worksheets("Sheet1").Cells(3, 2) = mailbox.Items.Count
End If
Set mailbox = Nothing

Set mailbox = ns.Folders("Mailbox - JOHN").Folders("Inbox")
If mailbox Is Nothing Then
    Worksheets("Sheet1").Cells(4, 2) = "N/A"
Else
    Worksheets("Sheet1").Cells(4, 2) = mailbox.Items.Count
End If

End Sub