Paste Lotus Notes email body to Word Document

Yash20 · Aug 5th 2016

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.

Code

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)

Display More

**Kenneth Hobson** · Aug 5th 2016

Re: Paste Lotus Notes email body to Word Document

Rather than TypeText and GetItemValue("Body") which are text governed, try a Copy/Paste or Copy/PasteSpecial. I would show code how to do that but I don't have Lotus Notes anymore.

Yash20 · Aug 5th 2016

Re: Paste Lotus Notes email body to Word Document

Thanks Kenneth for the response, I will try what u said and keep you posted!!!

Yash20 · Aug 5th 2016

Re: Paste Lotus Notes email body to Word Document

Sorry Kenneth, I'm unable to try the method which you suggested.

**Kenneth Hobson** · Aug 5th 2016

Re: Paste Lotus Notes email body to Word Document

Did you try CopyItem? e.g. http://searchdomino.techtarget…-one-rich-text-to-another

Then just do a standard Selection.Paste for Word.

This one might help as well. https://www.mindwatering.net/S…6aa3007bd073!OpenDocument

Yash20 · Aug 6th 2016

Re: Paste Lotus Notes email body to Word Document

Thanks Kenneth, but when I declare

Dim wsp As New NotesUIWorkspace
Dim curruidoc As NotesUIDocument
Dim currdoc As NotesDocument

This gives me an error, hence I'm unable to proceed further. Kindly provide me code which I can continue from where I have been stuck!!!

**Kenneth Hobson** · Aug 7th 2016

Re: Paste Lotus Notes email body to Word Document

Since you did not post all of your code and you don't understand why you had the error, I am guessing that you used late binding. #6 code used early binding. Some like to code using early binding and produce the final product with late binding. Early binding will usually enable Intellisense for that object which makes coding easier. Early binding means that you have to set a reference to a library object in Tools > References...

There may be two libraries needed. One of those will likely be Domino. A search for the Dim types may show you which objects to reference. If I find my old example files, I will see if I used objects for those types. I prefer early binding, usually.

Yash20 · Aug 8th 2016

Re: Paste Lotus Notes email body to Word Document

Hello Kenneth,

I have used early binding only, I have referenced 2 libraries Lotus Domino Objects and Lotus Notes Automation Classes.

But NotesUIWorkspace does not get instanciate, is there any other work around for this?

Yash20 · Aug 8th 2016

Re: Paste Lotus Notes email body to Word Document

I am unable to declare New NOTESUIWORKSPACE and also Dim doc As New NotesDocument(db).
Also I could not understand the statement all doc.ReplaceItemValue("Form", "MailAudit")

Yash20 · Aug 8th 2016

Re: Paste Lotus Notes email body to Word Document

Hello Kenneth,

The reason why I am trying to copy the entire content of email and pasting into word document is, I was unable to copy the hyperlink from the email body as it was in hotspot properties. Hence I thought I will copy the email body content into word document and from there I could retrieve only the entire hyperlink

**Kenneth Hobson** · Aug 8th 2016

Re: Paste Lotus Notes email body to Word Document

Lotus Notes Automation Classes is the reference to set. Remove New from your Dim. One can use New when you Set the object.

Code

Dim wsp As NotesUIWorkspace
Dim curruidoc As NotesUIDocument
Dim currdoc As NotesDocument

felim.morgan · Aug 8th 2016

Re: Paste Lotus Notes email body to Word Document

if you want to hyperlink, copy it, and paste as plain text in word. then highlight it and press enter. try it, see if it helps. I do that usually.

Yash20 · Aug 9th 2016

Re: Paste Lotus Notes email body to Word Document

Thanks felim for ur input but unfortunately it doesn't work that way.

Yash20 · Aug 9th 2016

Re: Paste Lotus Notes email body to Word Document

Thanks all for your response, its very unfortunate that nobody could provide the solution!!!

**cytop** · Aug 9th 2016

Re: Paste Lotus Notes email body to Word Document

Perhaps - but please still observe the board rules...

[indent]4b. Do not cross-post without supplying a link to the duplicate question on the other Forum.[/indent]

You have posted this elsewhere - please add links to that/those thread(s).

Yash20 · Aug 9th 2016

Re: Paste Lotus Notes email body to Word Document

Thanks cytop for the prompt response, I understand the rules and here is the link

http://stackoverflow.com/quest…#comment65056946_38827408

**cytop** · Aug 9th 2016

Re: Paste Lotus Notes email body to Word Document

Thank you for the link..

It's been over 10 years since I used Lotus Notes in anger (and I was usually angry when working with it) but I always had issues with formatted text and Microsoft products.

To add formatted text to a mail, Notes has the CREATERICHTEXTITEM method, as in

Code

Set oNotesField = oNotesDoc.CREATERICHTEXTITEM("Body")


With oNotesField
    .AppendText.... blah blah

Perhaps there's a corresponding GETRICHTEXTITEM method? (I would check but there's a limit to what I'll do ona phone).

That's totally ignoring any issues you might have connecting to Notes in the first place and even if there is a GETRICHTEXTITEM method, that Word can actually understand it...

**Kenneth Hobson** · Aug 9th 2016

Re: Paste Lotus Notes email body to Word Document

So, CopyItem() as I suggested did not work? Once copied to the clipboard, try a manual paste to see if it does what you want. TypeText() is likely just typing plain text.

Maybe try GetFormattedText()? See 5: https://www.ibm.com/support/kn…XT_ITEMS_LOTUSSCRIPT.html

Yash20 · Aug 23rd 2016

Re: Paste Lotus Notes email body to Word Document

Hello Kenneth,

I tried the link you have provided above but I get below error for the code

Set db = session.CurrentDatabase

Session has not been initialized

Kindly let me know wat is wrong here.

Yash20 · Aug 23rd 2016

Re: Paste Lotus Notes email body to Word Document

Hello Cytop,

Let me know if there is any progress?

Paste Lotus Notes email body to Word Document

Participate now!

Share

Users Viewing This Thread