button - 具有唯一文件名 + 电子邮件的提交按钮

Question

我需要一个代码来创建一个提交按钮，该按钮将发送一封电子邮件并将我创建的单词模板的副本保存到保存文件夹中。一切都很好，除非文件保存它会覆盖当前文件。我需要一种保存文件的方法，以便每次保存它都会创建一个唯一的文件，即 file1、file2、file3

这就是我到目前为止所拥有的。谢谢你提供的所有帮助。

Private Sub Submit_Click()
Dim OL              As Object
Dim EmailItem       As Object
Dim Doc             As Document
Dim strTagNum As String, strNTID As String, strDate As String


Dim strFilename As String


Email_Send_To = strNTID & "[e-mail]"

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument

Doc.SaveAs2 StrPath & "C:\Users\youngb\Desktop\MDI Submissions\New MDI"


With EmailItem
.Subject = "New MDI"
.Body = "New MDI. Add to MDI spreadsheet and assign to responsible party"
.To = "[e-mail]"
.Importance = olImportanceNormal
.Attachments.Add Doc.FullName
.Send
End With

Application.ScreenUpdating = True

MsgBox "Alert Record Submitted"

Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing


End Sub

标签： buttonuniquesubmit