Saving attachments greater then 200 KB

[meteking]

Hi all,

I'm trying to save an attachment to my computer automatically from mails that i recive everday. Code that i use is below. If mail body has a image in the signature part, vba selects that image first as attechment, renames and saves it. But that file is not the one i m looking for (i need excel file). The excel files size is always greater than 200 kb so i thought if i can choose attechment greater than 200, vba can save attachment that i want. I'm using filelen but i can't show the path of (the mail contains attachment) mail. Please help me

Sorry for my bad english

Thx..l


Public Sub saveAttachtoDiskBEFNAT(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\U077689\Desktop\FHB PAY"
Dim filename As String


filename = "BEF FONLARI NAKIT AKIS.xls"


For Each objAtt In itm.Attachments


Next
If FileLen(???????) > 200 Then objAtt.SaveAsFile saveFolder & "\" & filename



End Sub

[westconn1]

i am sure it would be easier to just check the filename of the attachments assuming only one excel workbook

For Each objAtt In itm.Attachments
      if instr(objatt.filename, ".xls") > 0 then objAtt.SaveAsFile saveFolder & "\" & filename 
Next

[meteking]

i am sure it would be easier to just check the filename of the attachments assuming only one excel workbook

For Each objAtt In itm.Attachments
      if instr(objatt.filename, ".xls") > 0 then objAtt.SaveAsFile saveFolder & "\" & filename 
Next

It perfectly worked Thxxxxxx