[RESOLVED] How to check for file type when using VBA to auto extract attachment from Outlook

[Zvoni]

First off: Try to Avoid Goto's!

This:

JumpHere:

If Dir(stFileName) = "" Then
objAtt.SaveAsFile stFileName
Else
i = i + 1
stFileName = saveFolder & "\" & i & " - " & objAtt.DisplayName
Goto JumpHere
End If

is replaced with this:

Do While Dir(stFileName)<>""
i=i+1
stFileName = saveFolder & "\" & i & " - " & objAtt.DisplayName 
Loop

objAtt.SaveAsFile stFileName

For checking specific File-Types: e.g. "test.pdf" returns "pdf"

Public Function GetExtension(ByVal cF As String) As String
   Dim cT As String
   Dim tmpString() as String

   cT = StrReverse(cF)
   tmpString=Split(cT,".")
   GetExtension=StrReverse(tmpString(0))
   End If
End Function

To check FileSize: FileLen-Function

MsgBox FileLen("c:\test.txt") 'FileSize in Bytes