outlook zip file

[josros60]

Hi,

have this code to just down load zip file but it's downloading all, do i need to change something in the code i created a rule to subject only Weekly AP but is downloading everything.

here is the code:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
dateFormat = Format(Now, "yyyy-mm-dd H-mm")


saveFolder = "M:\Navigata\Fin\Gen\Accounts Payable\Weekly AP Invoices\"
For Each objAtt In itm.Attachments
    If InStr(objAtt.DisplayName, ".zip") Then
              objAtt.SaveAsFile saveFolder & "\" & dateFormat & " " & objAtt.DisplayName
         Set objAtt = Nothing
     Next
End Sub

thanks

 

[Worf]

This works for me:

' Outlook module
Public Sub saveAttachtoDisk(itm As MailItem)
Dim objAtt As Attachment, svFld As String, dateFormat
dateFormat = Format(Now, "yyyy-mm-dd H-mm")
svFld = "d:\pub\"
For Each objAtt In itm.Attachments
    If InStr(objAtt.DisplayName, ".zip") Then _
    objAtt.SaveAsFile svFld & "\" & dateFormat & " " & objAtt.DisplayName
Next
End Sub

Function GetCurrentItem() As Object
Dim objApp As Application
Set objApp = Outlook.Application
Select Case TypeName(objApp.ActiveWindow)
    Case "Explorer"
        Set GetCurrentItem = objApp.ActiveExplorer.Selection.item(1)
    Case "Inspector"
        Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select
Set objApp = Nothing
End Function

Sub Main()
saveAttachtoDisk GetCurrentItem
End Sub