Lotus Notes VBA电子邮件自动化 - db.CreateDocument命令失败

Question

我正在尝试使用VBA通过Lotus Notes 9.0自动发送电子邮件。代码将加载注释，这会询问我的密码，但在密码提示出现之前，我收到错误。我遇到的错误是“运行时错误'-2147417851（80010105）'：自动化错误服务器引发异常”当我点击调试时，它失败的行是“Set obDoc = obDB.CreateDocument”。我在网上看到的很多例子都与我在代码中所做的相符，所以我不确定问题出在哪里。

以下是代码：

TIdSSLContext.LoadKey()

Answer 1

您提到您使用的是Notes 9，因此我查看了Notes 9.01的在线帮助，help page for the OpenMail method说了

  

注意：此方法仅在LotusScript®中受支持。对于COM，请在NotesDbDirectory中使用OpenMailDatabase。

现在，您实际上使用的是OLE自动化类（以Notes.NotesSession为根），而不是COM类（以Lotus.NotesSession为根），所以我不知道您是否可以使用NotesDbDirectory类，但打开当前用户的邮件数据库的另一种方法是调用NotesSession.GetEnvironmentString（“MailServer”，true）和NotesSession.GetEnvironmentString（“MailFile”，true），并将它们用作调用GetDatabase的值。 / p>