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

[sgcareerman]

Hello Everyone

I am a noob in VBA programming, can only understand basic function and usage also some simple coding modification

I use the following VBA coding in outlook 2010 to auto extract all attachment from emails that i receive but i face a issue that it also extracts images in the emails as attachment too.

How can I modify the coding to not save attachment if it does not match certain files types?
I also need the coding not to save attachment if the file size is more than 3 MB.

Experts and PROs kindly help.


VBA:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\temp"

For Each objAtt In itm.Attachments
stFileName = saveFolder & "\" & objAtt.DisplayName
i = 0

JumpHere:

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

Set objAtt = Nothing

Next

itm.Delete

End Sub

[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