vba - Save attachments in order -

i trying run macro via rule in outlook saves attachments folder.

emails have more 1 attachment. trying save files in order, example if go down emails can see file corresponds it.

i have following found online:

public sub saveattachtodisk(itm outlook.mailitem)      dim objatt outlook.attachment     dim savefolder string     savefolder = "c:\pathtodirectory\"      dim dateformat string     dateformat = format(itm.receivedtime, "yyyy-mm-dd hmm ")      each objatt in itm.attachments         objatt.saveasfile savefolder & "\" & dateformat & objatt.displayname     next  end sub 

i've tried play objatt.displayname no luck. i've tried assigning new names , creating new loop names files file 1 , file 2 , on when lose file extension.

updated version:

option explicit  public sub save_attachments(itm outlook.mailitem)  dim fso object set fso = createobject("scripting.filesystemobject") dim strext string dim long dim savefolder string  = 1  savefolder = "c:\users\w\desktop\test"  each objatt in itm.attachments     = + 1     strext = fso.getextensionname(objatt.displayname)     objatt.saveasfile savefolder & "\" & dateformat & " - file " & & "." & strext next  end sub    

you in existing subroutine. increment "file" number , still preserve extension.

dim fso object set fso = createobject("scripting.filesystemobject") dim strext string dim long  each objatt in itm.attachments     = + 1     strext = fso.getextensionname(objatt.displayname)     objatt.saveasfile savefolder & "\" & dateformat & " - file " & & "." & strext next