Hello All,

I am trying to paste the Lotus Notes email body to Word document and I'm almost successful in doing that. But when I paste the content to word it does not show the hyperlinks, it will just paste as text. Below is what I have tried so far. I would want the hyperlinks also from body of the email to be pasted to word document.

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)