I have all of this in the ThisOutlookSession Module. Is this correct?

Option Explicit
Private WithEvents olkInboxItems As Items
Private Sub Application_Startup()
 Dim objNS As NameSpace
 Dim objRecip As Outlook.Recipient
 Set objNS = Application.Session
 ' instantiate objects declared WithEvents
   Set objRecip = Application.Session.CreateRecipient("oldmailbx")
   Set olkInboxItems = objNS.GetSharedDefaultFolder(objRecip,
olFolderInbox).Items
   Set objNS = Nothing
 
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
 Item.BodyFormat = olFormatPlain
 Item.Save
 Set Item = Nothing
End Sub
Sub AutoReply(myItem As Outlook.MailItem)
 Dim myReply As Outlook.MailItem
 Dim myFwd As Outlook.MailItem
   Set myReply = myItem.Reply
   Set myFwd = myItem.Forward
     With myReply
       .Body = " This email address is no longer monitored. Please use
another."
       .Send
     End With
     With myFwd
       .Recipients.Add "EmailAdd@Domainname.com"
       .Body = " This was sent to non - monitored email. Please reveiw"
       .Send
     End With
   Set myReply = Nothing
   Set myFwd = Nothing
End Sub
Private Sub olkInboxItems_ItemAdd(ByVal Item As Object)
 Dim mail As Outlook.MailItem
   If Item.Class = olMail Then
 Set mail = Item
   Call AutoReply(mail)
   End If
 Set mail = Nothing
End Sub

I can only step through this portion of the code

Private Sub Application_Startup()
 Dim objNS As NameSpace
 Dim objRecip As Outlook.Recipient
 Set objNS = Application.Session
 ' instantiate objects declared WithEvents
   Set objRecip = Application.Session.CreateRecipient("oldmailbx")
   Set olkInboxItems = objNS.GetSharedDefaultFolder(objRecip,
olFolderInbox).Items
   Set objNS = Nothing
 
End Sub

Nothing else seems to firing. Any ideas?