vba - Paste Lotus Notes email body with Hyperlink to Word Document -


i trying paste lotus notes email body word document , i'm successful in doing that. when paste content word not show hyperlinks, paste text. below have tried far. want hyperlinks body of email pasted word document.

set nsession = createobject("notes.notessession")  set nmaildb = nsession.getdatabase("", "")    if not nmaildb.isopen   nmaildb.openmail   end if   set ndocs = nmaildb.getview(view)  ndocs.clear    if filtertext <> ""   ndocs.ftsearch filtertext, 0   end if   set ndoc = ndocs.getfirstdocument    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)        if instr(3, ndoc.getitemvalue("from")(0), "from", vbtextcompare) > 0            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)  

you using getitemvalue method in notesdocument class. documentation method says return type when method used on rich text field "array of strings. text in item, rendered plain text."

getting formatted text out of notes document difficult, requiring dealing fact notes can use 2 different formats storing formatted text. mime format, possible the notesmimeentity class , it's associated methods @ html-formatted text. rich text format, notesrichtext class provides limited access working rich text , best done using third party tools midas rich text api.


Comments

Popular posts from this blog

Spring Boot + JPA + Hibernate: Unable to locate persister -

go - Golang: panic: runtime error: invalid memory address or nil pointer dereference using bufio.Scanner -

c - double free or corruption (fasttop) -