WithEvents not working

[foncesa]

Hi,

If someone could figure out what's wrong with the below WithEvents that it does not fire with new email.

Private WithEvents Items As Outlook.Items 
 
Private Sub Application_Startup()
   Dim appOl As Outlook.Application
   Dim ns As Outlook.NameSpace
   Set appOl = Outlook.Application
   Set ns = appOl.GetNamespace("MAPI")
   Set Items = ns.GetDefaultFolder(olFolderInbox).Folders("Personal Mail").Items 
 
End Sub 
 
Private Sub Items_ItemAdd(ByVal item As Object) 
 
On Error GoTo GetAttachments_err
   Dim appOl As New Outlook.Application
   Dim ns As Outlook.NameSpace
   Dim Inbox As Outlook.MAPIFolder
   Dim myDestFolder As Outlook.MAPIFolder
   Dim item As Object
   Dim Atmt As Outlook.Attachment
   Dim FileName As String
   Dim i As Integer
   Dim iLoop As Integer
   Dim Items As Outlook.Items
   Dim moveEmail As Boolean
   Set ns = appOl.GetNamespace("MAPI")
   Set Inbox = ns.GetDefaultFolder(olFolderInbox)
   Set item = Inbox.Items
   Set myDestFolder = Inbox.Folders("Personal Mail")

 

[Diane Poremsky]

Is macro security set to low?

Did you click in Application_start up and click the Run button?

Is the mail being moved to this folder - the code only works on mail as its dropped into the folder. Test it by removing folders("personal mail") from the code and see if it works.

Set Items = ns.GetDefaultFolder(olFolderInbox).Folders("Personal Mail").Items

 

[foncesa]

Thanks for response.

Is macro security set to low? Outlook 2013 Enable all Macros (option selected)

Did you click in Application_start up and click the Run button? Yes it runs properly from Private Sub Application_Startup()..... End Sub
But it does not call the Private Sub Items_ItemAdd(ByVal item As Object) the script which will get the attachments, thats where something is wrong?

Set Items = ns.GetDefaultFolder(olFolderInbox).Folders("Personal Mail").Items Tried with this option also.

I feel the WithEvents is wroking perfectly the only part the script is not called automatically.

Please suggest, help.