Hey everyone. I have this piece of code I use in VBA but looking at
expanding as currently the code only works if I manually move items to
the EXTRACT folder. Is there any way I can get new items to move from
INBOX to EXTRACT folder if the messages contain a certain email
address and zip file..

I can't figure out how I could add this to my code so it ensures that
new items upon arrival will be moved to the EXTRACT folder and then
the code below is performed. Any help is greatly appreciated. Thanks

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'DECLARATIONS
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim WithEvents TargetFolderItems As Items
'set the string constant for the path to save attachments
Const FILE_PATH As String = "C:\INPUT\"

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'APPLICATION STARTUP CODE
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Application_Startup()
Dim ns As Outlook.NameSpace

Set ns = Application.GetNamespace("MAPI")
Set TargetFolderItems =
ns.Folders.Item("TEST").Folders.Item("Inbox").Folders.Item("EXTRACT").Items


End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'WATCH FOLDER AND PERFORM ACTION IF NEW FILE EXISTS
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub TargetFolderItems_ItemAdd(ByVal Item As Object)
'when a new item is added to our "watched folder" we can process
it
Dim olAtt As Attachment
Dim i As Integer

If Item.Attachments.Count > 0 Then
For i = 1 To Item.Attachments.Count
Set olAtt = Item.Attachments(i)

'we only need ZIP\zip files
If Right(olAtt.FileName, 3) = "ZIP" Or
Right(olAtt.FileName, 3) = "zip" Then
olAtt.SaveAsFile FILE_PATH & olAtt.FileName 'save the
file
Item.UnRead = False
End If
Next
End If

Set olAtt = Nothing


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'EXIT CODE
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Application_Quit()

Dim ns As Outlook.NameSpace
Set TargetFolderItems = Nothing
Set ns = Nothing

End Sub