Outlook from Excel ?????????????

[Chance1234]

Hi can anyone tell me why this code isnt working, i tested it using the inbox and getdefaultfolder, but im nwo trying to reference a public folder and it is not working.

sub psubcompared()
Dim myOutlook As Outlook.Application
Dim ns As Outlook.NameSpace
Dim fld As Outlook.MAPIFolder
Dim itms
Dim itm As Object
Dim mymail As Outlook.Items
'-----------Good old excel

Dim EmailArr()

Application.ScreenUpdating = False


Set olOutlook = CreateObject("Outlook.Application&quot
Set ns = olOutlook.GetNamespace("MAPI&quot
Set itms = ns.Folders("Public Folders&quot
Set itms = itms.Folders("All Public Folders&quot
Set itms = itms.Folders("BCDE&quot
Set itms = itms.Folders("IT Dept&quot
Set itms = itms.Folders("Global&quot
Set itms = itms.Folders.Item("Paris Sales Responses&quot


Set mymail = itms



EmailArr = shtDist.Range("a1:n1516&quot.CurrentRegion

x = 1

MsgBox mymail.Count

Do Until x = UBound(EmailArr)
' Debug.Print EmailArr(x, 2)

Y = 1


For Each mymail In itms
If mymail.SenderName Like EmailArr(x, 5) Then
EmailArr(x, 3) = EmailArr(x, 3) & " # " & mymail.Subject
End If
Next



x = x + 1

Loop


Range("a1:n1516&quot.Value = EmailArr

Set olOutlook = Nothing
Set ns = Nothing
Set itms = Nothing
Set mymail = Nothing

End Sub