访问VBA SendObject错误

Question

我有以下VBA访问代码正常工作，除了当用户决定关闭Outlook窗口并决定不发送电子邮件Access界面冻结的事实：

li

这基本上打开一个隐藏的表单，读取EMAIL值并通过Outlook发送电子邮件。但是，如果用户决定关闭outlook消息窗口，则会显示一条消息，指出SendObject已被取消并冻结。

Answer 1

在您的方案中，我只想添加一个

On Error Resume Next

在DoCmd.SendObject行之前。

如果您需要在未发送消息时采取措施，请执行

On Error Resume Next
DoCmd.SendObject acReport ...
If Err.Number <> 0 Then
    ' User has canceled
End If