Outlook宏以保存具有不同工作表名称的附件

Question

我正在尝试建立一个宏，以将Outlook的附件保存到具有不同工作表名称的特定文件夹中。 但是，文件名和工作表/标签名与下面提到的代码相同：

Public Sub save_Data(itm As Outlook.MailItem)
    Dim ObjAtt As Outlook.Attachment
    Dim SaveFolder As String

    SaveFolder = "\\C:\MyDocs\"

    For Each ObjAtt In itm.Attachments
          posr = InStrRev(ObjAtt.FileName, ".")
          'ext = Right(objAtt.FileName, Len(objAtt.FileName) - posr)
          posl = InStr(ObjAtt.FileName, ".")
          fname = Left(ObjAtt.FileName, posr - 1)

          ObjAtt.SaveAsFile SaveFolder & "\" & "Sheet 1" & "." & "xls"

          Set ObjAtt = Nothing
    Next
End Sub

任何指针高度赞赏。