Question

我有一个提交按钮的表单。当我在我的电脑上这样做时它可以正常工作，但是在没有保存文件的其他人的情况下，它会提示他们保存它。我想知道我是否可以在发送之前添加一些会自动将其保存到文档文件夹的内容。

Private Sub CommandButton1_Click()
    Dim OL              As Object
    Dim EmailItem       As Object
    Dim Doc             As Document

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

    With EmailItem
        .Subject = "subject"
        .Body = "BODY MESSAGE"
        .To = "email here"
        .Importance = olImportanceNormal
        .Attachments.Add Doc.FullName
        .Display
    End With

    Application.ScreenUpdating = True

    Set Doc = Nothing
    Set OL = Nothing
    Set EmailItem = Nothing
End Sub

Answer 1

我不知道我是否真的得到了你的问题。你不想要这个提示吗？

Set Doc = ActiveDocument
Doc.Save

这会保存文档。如果您不想保存它，请删除这些行。

自动保存表单，而不是生成手动保存的提示

1 个答案: