Wsrtjtyk

I'm trying to automate a report, the code for which is in an excel workbook with a Workbook_Open macro. The Outlook macro is supposed to trigger upon receiving an email, download an attachment, and subsequently open an Excel file (which should then run a macro and close itself).

The code currently triggers twice whenever an email arrives in my inbox that satisfies the rule criteria (containing some attachment). I can't figure out why. My full code is below. Thank you in advance.

Sub saveAttach(item As Outlook.MailItem)



    Dim xlApp As Excel.Application

    Dim wbOpen1 As Excel.Workbook

    Dim wbOpen2 As Excel.Workbook

    Dim object_attachment As Outlook.Attachment



    Set xlApp = New Excel.Application



    With xlApp

        .Visible = True

        .EnableEvents = True

        .UserControl = False

        .DisplayAlerts = False

        .AskToUpdateLinks = False

    End With



    Dim saveFolder As String

    Dim sTemp As String



    saveFolder = "C:UsersmystuffDownloadssavedest"



    For Each object_attachment In item.Attachments



        If InStr(object_attachment.DisplayName, ".csv") Then



           sTemp = object_attachment.DisplayName

           sTemp = Left(sTemp, Len(sTemp) - 4)



           On Error Resume Next

            If IsFile(saveFolder & "" & sTemp & "_" & Format(Now(), "yyyymmdd") & ".xlsm") = False Then

                object_attachment.SaveAsFile saveFolder & "" & sTemp & "_" & Format(Now(), "yyyymmdd") & ".csv"

                Set wbOpen1 = xlApp.Workbooks.Open(FileName:=(saveFolder & "" & sTemp & "_" & Format(Now(), "yyyymmdd") & ".csv"))

            End If

        End If



    Next



    Set wbOpen2 = xlApp.Workbooks.Open(FileName:="C:UsersmystuffDownloadssavedestmyfile.xlsm")

    Set wbOpen1 = Nothing

    Set wbOpen2 = Nothing

    Set xlApp = Nothing



End Sub





Function IsFile(ByVal fName As String) As Boolean

    On Error Resume Next

    IsFile = (GetAttr(fName))

End Function