将带有超链接的Lotus Notes电子邮件正文粘贴到Word文档

Question

我正在尝试将Lotus Notes电子邮件正文粘贴到Word文档中，我几乎成功了。但是当我将内容粘贴到word中时，它不会显示超链接，而只是粘贴为文本。下面是我到目前为止所尝试的内容。我希望超级链接也从电子邮件的主体被粘贴到word文档。

Set NSession = CreateObject("Notes.NotesSession") 
Set NMailDb = NSession.GetDatabase("", "") 


If Not NMailDb.IsOpen Then 

NMailDb.OPENMAIL 

End If 

Set NDocs = NMailDb.GetView(view) 
NDocs.Clear 


If filterText <> "" Then 

NDocs.FTSEARCH filterText, 0 

End If 

Set NDoc = NDocs.GetFirstDocument 


Do Until Left(NDoc.GETITEMVALUE("PostedDate")(0), 8) <> Left(Now(), 8) 

Set NNextDoc = NDocs.GetNextDocument(NDoc) 

If Left(NDoc.GETITEMVALUE("PostedDate")(0), 8) = Left(Now(), 8) Then 


    If InStr(3, NDoc.GETITEMVALUE("From")(0), "From", vbTextCompare) > 0 Then 


        Set NItem = NDoc.GetFirstItem("Body") 

        Set wrdApp = CreateObject("Word.Application") 
        Set wrdDoc = wrdApp.Documents.Open("C:\https.docm") 
        wrdApp.Visible = True 
        Set objSelection = wrdApp.Selection 

        objSelection.TypeText NDoc.GETITEMVALUE("Body")(0) 

Answer 1

您将在NotesDocument类中使用GetItemValue方法。documentation for this method明确指出，在富文本字段上使用此方法时，返回类型是“字符串数组。项中的文本呈现为纯文本。”

从Notes文档中获取格式化文本非常困难，因为Notes可以使用两种完全不同的格式来存储格式化文本。对于MIME格式，可以使用NotesMIMEEntity类及其相关方法来获取超文本标记语言格式的文本。对于富文本格式，NotesRichText类仅提供对处理富文本的有限访问，这样的操作最好使用第三方工具，如MIDAS rich text API。