Word文書へのハイパーリンク付きロータスノーツ電子メール本文貼り付け

Question

ロータスノーツ電子メール本文を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が書式付きテキストを格納するために全く異なる2つの形式を使用できるという事実を扱う必要があります。 MIME形式では、NotesMIMEEntityクラスが可能で、HTML形式のテキストを取得するための関連メソッドがあります。リッチテキスト形式では、NotesRichTextクラスはリッチテキストの操作に制限されたアクセスしか提供しません。このようなものは、おそらくMIDAS Rich Text APIのようなサードパーティのツールを使用して行うのが最適です。