Question

我在Access中使用SendObject函数时遇到问题。

Current Access版本：2013

我在空表单中创建了一个测试按钮来测试我的命令。当我使用没有任何参数的SendObject或仅使用“acSendNoObject”时，它可以工作。

DoCmd.SendObject acSendNoObject
DoCmd.SendObject

正如所料，两者都很好。 mailclient正确打开，无需任何编辑即可创建新电子邮件。

但是当我想使用更多参数Access崩溃时。例如：

DoCmd.SendObject acSendNoObject, , , "email@email.com", , , "Subject", Text, True, False

理论上代码有效。但Access冻结了“应用程序已停止工作..”窗口。按取消后，将打开mailclient并正确插入所有参数。所以使用“To：”，“Subject”......一切都很好，但Access每次都会崩溃。

使用过的mailclient是“Amicron Mailoffice”。我测试了Win.ini的编辑。我找到了这个解决方案，所以它说要将Win.ini中的“MAPI = 1”条目更改为“MAPIX = 1”。它没有帮助。

我希望你能理解我的问题，也许有人有一个好主意来解决它。

版本：

FollowHyperlink "mailto:email@email.com"

它有效，但有了这个我不能改变主题或添加我认为的附件。我认为mailto Hyperlink不是为此而制作的。

Answer 1

试试这个：

Dim recipient_ As String
    recipient_ = "some email address"

Dim subject_ As String
    subject_ = "Some text"

DoCmd.SendObject To:=recipient_, Subject:=subject_, EditMessage:=False

MSDN：DoCmd.SendObject

使用SendObject后访问错误

1 个答案: