版主，帮助修改下这段代码，谢谢！

haha_xion

'附件导出
Dim myolapp As New Outlook.Application
    Set myNameSpace = myolapp.GetNamespace("MAPI")
    Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set newmyfolder = myfolder.Folders("test")
   
For i = 1 To newmyfolder.Items.Count
Set mymailitem = newmyfolder.Items(i)
With mymailitem
Set myAttachments = mymailitem.Attachments

myAttachments.Item(1).SaveAsFile "e:\ff\" & myAttachments.Item(1).DisplayName

End With
Next

以上代码功能是将OUTLOOK默认收件箱下的TEST目录里所有邮件的附件保存到e:\ff\下！
我想修改最后一句（有下划线的地方），想在保存文件的时候将附件默认的文件名后讲上代码中 I 的值（以防止重复相同文件名被覆盖），可以我尝试加后，缺变成了加在扩展名的后面。
所以希望可以帮助我下，将I的值加在文件名的后面，文件类型不改变！
例如：hhh1000.xls      存到目录后变为：hhh10001.xls

windows XP+office 2003  的环境

[ 本帖最后由 haha_xion 于 2009-4-28 15:42 编辑 ]

avsever

为什么非要问版主呢？版主很忙的，呵呵
可以先将文件名取出来，
filename=myAttachments.Item(i).DisplayName
t_dot=InStrRev(filename, ".")
newname=left(filename,t_dot-1) & i  & mid(filename, t_dot)  '新的文件名，save这个名称就可以了

aaaaabbbbb

不好意思,最近身体不适,试试楼上的代码.