If InStr(Item.Application.Version, "14") Then
Set olns =Item. Application.GetNamespace("MAPI")
Set accs = olns.Accounts
For Each Account In accs
  If Account.AccountType = olExchange And Account.SmtpAddress = olns.Session.DefaultStore Then
    Set pub = olns.Folders("Public Folders" & " - " & Account.SmtpAddress)
    MsgBox "Got the Pub folders"
  End If
Next
 
  If pub Is Nothing Then
    MsgBox "No Public Folder store found for the default exchange mailbox"
  End If
End If