访问 - 如何返回发送邮件的结果？答案

【问题标题】：Access - How to return result of a sendmail?访问 - 如何返回发送邮件的结果？
【发布时间】：2012-05-23 02:57:14
【问题描述】：

提前感谢您的帮助。我有以下代码，单击该代码会创建一封电子邮件，插入正文和客户电子邮件地址并附上发票副本。我有两个问题，一个是可以更改附件的名称，目前它只是 invoiceF.pdf 可以作为交付的参考。其次，是否可以捕获发送邮件的结果？我知道如果电子邮件没有发送，只是关闭，访问会显示一个信息框，上面写着“发送对象操作已取消”，我想捕捉“成功发送”确认并将今天的日期添加到一个框 [invoiceemailed]。感谢任何人提前提供帮助:)

Private Sub emailinvoiceF_Click()
On Error GoTo Err_emailinvoiceF_Click

If MsgBox("Email the invoice?", vbYesNo) = vbYes Then

Dim strMessage
strMessage = "Dear " & First & " " & Last & "," _
& vbCrLf & vbCrLf & "Thank you for your order: (" & DeliveryID & "), please find attached invoice." _
& vbCrLf & vbCrLf & "If you require any further information please do not hesitate to contact us." _
& vbCrLf & vbCrLf & "Kind Regards," _
& vbCrLf & vbCrLf & "SMI Hardwoods" _
& vbCrLf & vbCrLf & "Tel: 01206 396725" _
& vbCrLf & vbCrLf & "www.smi-hardwoods.com" _


    Dim stDocName As String

    stDocName = "InvoiceF"
    DoCmd.SendObject acReport, stDocName, acFormatPDF, [E-mail address], , , "SMI Hardwoods Invoice Ref:" & DeliveryID & ".pdf", strMessage
End If

Exit_emailinvoiceF_Click:
    Exit Sub

Err_emailinvoiceF_Click:
    MsgBox Err.Description
    Resume Exit_emailinvoiceF_Click

End Sub

【问题讨论】：

标签： ms-access ms-access-2007 email

【解决方案1】：

DoCmd.SendObject 命令非常有限。它不允许您从磁盘附加文件。由于此限制，您无法使用 DoCmd.SendObject 控制要附加的文件名和文件数。

您可能会发现这篇文章对您有所帮助：http://msdn.microsoft.com/en-us/library/aa167323(v=office.11).aspx。

我过去使用过 Outlook.Application 对象，发现它没问题。它允许在发送电子邮件之前进行一些用户交互。此外，它直接进入 Outlook，因此跟踪可能更容易。不过，这种方法有其自身的缺点。

根据您关于成功消息的问题，您可以将以下内容添加到您的代码中：

....
    DoCmd.SendObject acReport, stDocName, acFormatPDF, [E-mail address], , , "SMI Hardwoods Invoice Ref:" & DeliveryID & ".pdf", strMessage

    'Display success message
    MsgBox("Successfully sent on: " & Date())
End If

Exit_emailinvoiceF_Click:
    Exit Sub
...

【讨论】：