Question

我试图弄清楚是否有可能通过点击命令按钮将表单发送出去。我创建了表单而不是报表，因为我想单独查看记录而不是一次查看记录。我现在看到很难通过电子邮件发送表格。我知道如何使用命令邮件报告按钮使报告发送电子邮件，但anyboyd知道是否有办法通过电子邮件发送表单？

谢谢

Answer 1

您可以使用DoCmd.SendObject。

http://www.fmsinc.com/microsoftaccess/email/sendobject.html

该功能使用默认邮件应用程序作为Outlook。要发送表单，按钮后面的代码是

Private sub yourButtonName_Click()
    DoCmd.SendObject acSendForm, "yourFormName", acFormatPDF, "someone@somedomain.com"
End Sub

有几个参数，例如 Cc ，密件抄送， MessageText 等。

要克服用户点击取消时可能发生的任何错误，您可以使用On Error语句来处理错误。像，

Private sub yourButtonName_Click()
On Error GoTo errHandle
    DoCmd.SendObject acSendForm, "yourFormName", acFormatPDF, "someone@somedomain.com"
exitErr:
    Exit Sub
errHandle:
    If Err.Number <> 2501 Then
        MsgBox "Error (" & Err.Number & ") - " & Err.Description & " Occurred."
    End If
    Resume exitErr
End Sub

您可以查看C Pearson的网站，了解有关Error Handling in VBA

的更多信息

通过电子邮件发送表单

1 个答案: