Runtime Error 424: Object not Defined

[Gandolf_Red]

Hello,

I am new to Outlook VBA and am trying to write a code that will auto-reply to an e-mail when it comes in with a certain subject using a template I have created. I want this to run on all incoming messages. I have considered setting it up with a rule engine that runs my script and got it to work that way, but it didn't seem to meet all of my needs, so I wanted to try it without the rule engine. Below is what I have. I am getting an error that object is not defined. Thoughts:

Private Sub Application_Startup()
Dim Msg As Outlook.MailItem
Dim Ns As Outlook.NameSpace
Set Ns = Application.GetNamespace("MAPI")
Set Items = Ns.GetDefaultFolder(olFolderInbox).Items
Dim oRespond As Outlook.MailItem
End Sub




Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim arr() As String
Dim i As Integer
Dim m As MailItem

'On Error Resume Next

arr = Split(EntryIDCollection, ",")
For i = 0 To UBound(arr)
Set m = Application.Session.GetItemFromID(arr(i))

If m.Subject = "Test" Then
Set oRespond = Application.CreateItemFromTemplate("file path name here")
With oRespond
.Recipients.Add Item.SenderEmailAddress
.Subject = "Re: Referral Request - " & Item.Subject
.HTMLBody = oRespond.HTMLBody & vbCrLf & "--- original message attached ---" & vbCrLf & Item.HTMLBody & vbCrLf
.Attachments.Add Item
.Send
End With
End If
Set oRespond = Nothing
Next
End Sub


The error messages happens on this line:
.Recipients.Add Item.SenderEmailAddress

Thank you for your help!

[skatonni]

There is no Item.

There is m.

If m.Subject = "Test" Then

    .Recipients.Add m.SenderEmailAddress

[Gandolf_Red]

Thank you! That makes sense and it worked perfectly! I appreciate your assistance with this!