> 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
>