Question

我正在尝试将Lotus Notes电子邮件正文粘贴到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清楚地表示在富文本字段上使用此方法时的返回类型是＆＃34;字符串数组。项目中的文本，呈现为纯文本。＆＃34;

从Notes文档中获取格式化文本非常困难，需要处理Notes可以使用两种完全不同的格式来存储格式化文本的事实。使用MIME格式，可以使用NotesMIMEEntity类及其相关方法来获取HTML格式的文本。使用富文本格式，NotesRichText类仅提供对使用富文本的有限访问权限，这样的事情可能最好使用MIDAS Rich Text API等第三方工具完成。

将Lotus Notes电子邮件正文粘贴到Word文档

1 个答案: