How To Save Multiple Externsions From Email

[VBE313]

Error in Title, Should
I have the following code that saves only .pdf. Is there a way I can add multiple extensions? See Example Code


Real Code

If InStr(objAtt.FileName, ".pdf") > 0 Then
    strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".pdf"
    objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
End If

Example Code

If InStr(objAtt.FileName, ".pdf") > 0 Then 
     strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".pdf",  ".zip", ".xlsx", ".xlsm"
     objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
End If

I tried declaring a Variant but it is saving the ".gif" for some reason


fileExtension = Array(".pdf", ".zip", ".dwg", ".dxf", ".stp", ".step", ".igs", ".xlsx", ".xlsb", ".xlsm")

Here is what I think I need to do

        If InStr(objAtt.FileName, ".pdf") > 0 Then 
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".pdf"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".zip") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".zip"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".dwg") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".dwg"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".dxf") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".dxf"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".stp") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".stp"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".step") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".step"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".igs") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".igs"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".xlsx") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".xlsx"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".xlsm") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".xlsm"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        ElseIf InStr(objAtt.FileName, ".xlsb") > 0 Then
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".xlsb"
            objAtt.SaveAsFile saveFolder & strName 'THIS SAVES THE FILE
        End If