从Lotus Notes邮件中读取激活链接URL

Question

我的要求是在网站中创建用户名后单击Lotus Notes邮件中的链接。我从早期论坛获得了代码以获取邮件正文。我想如果点击它上面有“激活”这样的文字，必须将我们带到所需的网站。不知何故，它应该在身体本身。但我无法从身体中获取网址。以前有人试过吗？任何建议，这是我的代码：

Set oSession = CreateObject("Lotus.NotesSession")

oSession.Initialize("*****")
'oSession.ConvertMime=False

sMailDbName = "mail\mail2\Saikrishna.nsf"
Set oMaildb = oSession.GETDATABASE("", sMailDbName)

If Not oMaildb.IsOpen Then
     oMaildb.OPENMAIL
End If
Set oMailDocs = oMaildb.GETVIEW("$Inbox")
oMailDocs.Clear

Set oMailDoc = oMailDocs.GetFirstDocument 
Set oMailItem=oMailDoc.GetFirstItem("Body")
Print oMailItem.text
Print oMailItem.values

它没有给我按钮或链接激活的URL。

Answer 1

您将获得Rich Text字段的纯文本值。这不仅不会给你链接后面的URL，它不会告诉你哪些文本是粗体，斜体，不同的字体，大小或颜色。如果要查看 rich 文本，则需要查看富文本，而不是纯文本。

通常，如果将文档导出到DXL（Domino XML），最容易找到的东西，然后您可以使用您选择的XML解析器来浏览标记以找到您感兴趣的内容。（由于您没有对文档的前端访问权限，因此您无法“单击”该链接，但可以通过其他方法调用该URL。）

我建议将示例文档导出到DXL（在NotesDXLEporter的Designer帮助中有大量的入点代码）并使用NotesStream保存到文件中，这样您就可以看到文档的XML是什么样子了。您还没有说过您正在使用哪个版本的Notes，但是自Notes 6.0以来已经提供了所需的类。