VBA Lotus Notes 发件人电子邮件地址为抄送答案

【问题标题】：VBA Lotus Notes sender email address as CCVBA Lotus Notes 发件人电子邮件地址为抄送
【发布时间】：2016-11-22 22:35:51
【问题描述】：

我在 excel 中创建了一个 makro，将所有 TODO 发送给负责人。现在我想将发件人地址添加到 CC 中。我知道如何设置抄送，但我不知道如何获取当前的发件人地址。

Set session = CreateObject("Notes.NotesSession")
Set db = session.GETDATABASE("", "")
Call db.OPENMAIL
Set doc = db.CREATEDOCUMENT
Call doc.REPLACEITEMVALUE("CopyTo", strEmail)

我认为它应该适用于笔记会话，但我没有找到任何方法。

【问题讨论】：

你试过 'doc.GetItemValue("From")' 吗？
是的，我得到一个空字符串

标签： vba excel lotus-notes

【解决方案1】：

您可以使用NotesSession.UserName()。这是您发送的 Notes 邮件。您不需要带有 @ 和 DNS 域名的完整 SMTP 样式地址。您只需将用户的 Notes 用户名放在地址字段中，Domino 路由器就会进行查找，它会正常工作。

只要 (a) 与您建立会话的服务器是用户的家庭邮件服务器、同一 Notes 域的成员（这与 DNS 域不同），上述情况都是正确的，或 Notes 域的成员，该域将用户的 Notes 域作为其目录服务的一部分（如果它使用 20 年的配置，则包括其级联地址簿列表），并且 (b) 用户名在上述范围内是唯一的。

【讨论】：

谢谢，我明天试试 :)。我已经用用户名打招呼了。

【解决方案2】：

另一个建议，从上次发送的邮件中复制发件人，以进行测试

Set view = db.GetView("(($Sent))")
Set sentdoc = View.GetLastDocument
sender=sentdoc.getItemValue("From")

【讨论】：

'Set sentdoc = View.GetLastDocument' 行发生错误。运行时错误“91”：对象变量或未设置块
视图变量可能为空，试试 db.getview("$Sent")

【解决方案3】：

我自动化 Lotus Notes 和发送电子邮件的方式是使用以下网站：

Send files using Lotus Notes

你要关注的区域在底部，取“noDocument”并添加相关标题“Subject”、“to”、“Sendto”等。

'向创建的电子邮件主属性添加值。

 With noDocument
    .Form = "Memo"
    .SendTo = vaRecipients
    .CopyTo = vaCopyTo
    .Subject = stSubject
    .Body = vaMsg
    .SaveMessageOnSend = True
    .PostedDate = Now()
    .Send 0, vaRecipients
  End With

【讨论】：

我已经可以自动发送邮件，但不知道如何获取完整的电子邮件地址
不需要填写完整的电子邮件。您只需要“名字”和“姓氏”，之后，Lotus 会自动填充最匹配的名称，因此请确保它们拼写正确......否则它会崩溃。

【解决方案4】：

使用NotesSession.userName() 获取当前用户名。如果您真的想要完整的电子邮件地址，您也可以使用@namelookup 公式。

但是，我不会通过 COM 访问笔记，因为它不能在 64 位上运行，而 IBM 也不会关心它。我有几个使用这种方便技术的 excel 文件，但自从我们迁移到 64 位后，它们都损坏了。检查这个旧知识库https://www-304.ibm.com/support/docview.wss?uid=swg21454291

【讨论】：

这是真的。 Notes 客户端是 32 位的，IBM 不支持从 64 位代码访问它的 COM 类。当您使用 VB 编写代码并且可以构建代码以运行 32 位时，这不是问题，但是当您使用 VBA 编写代码并且您的代码需要在 64 位 Excel 程序中运行时，这是一个问题。