Export/Import mail to MS Word

HCL Domino Domino Forum
1

1.how to export lotus notes mail to ms word with an attachment

2.how to import that mail in lotus notes

thanks for help

2

Subject: Export/Import mail to MS Word

Try using Lotus script NotesRichText… classes on the Lotus Notes side and VBS classes on the MS Word side by OLE.I thing, there is no native way to export/import richtext from/to Lotus Notes.

3

Subject: RE: Export/Import mail to MS Word

hi,i try below to extract selected document in ms word but there richtext not extract in word

Dim session As New NotesSession

Dim db As NotesDatabase

Dim dc As NotesDocumentCollection

Dim doc As NotesDocument

Dim fileNamePrefix As String



Set db = session.CurrentDatabase

Set dc = db.UnprocessedDocuments

Set doc = dc.GetFirstDocument





Set oWord = CreateObject("Word.Application")

oWord.Visible = True

Set oDocument = oWord.Documents.Add()



Set range = oWord.Selection.Range

Set table1 = oWord.selection.Tables.Add(range,5,2)

table1.Borders.Enable = False 

oDocument.Tables(1).Cell(1, 1).Range.InsertBefore (doc.From(0)) 

oDocument.Tables(1).Cell(2, 1).Range.InsertBefore (doc.PostedDate(0)) 

oDocument.Tables(1).Cell(1, 2).Range.InsertBefore (doc.EnterSendTo(0)) 

oDocument.Tables(1).Cell(2, 2).Range.InsertBefore (doc.EnterCopyTo(0)) 

oDocument.Tables(1).Cell(3, 2).Range.InsertBefore (doc.EnterBlindCopyTo(0)) 

oDocument.Tables(1).Cell(5, 2).Range.InsertBefore (doc.Subject(0)) 



For x= 1 To 5

	oWord.Selection.MoveDown

Next

With oWord.Selection

	.MoveDown

	.InsertParagraph

End With 



Set MyRange = table1.Range

With MyRange

	.Collapse 0

	.Move(1)

	.Select

End With

Set table2 = oDocument.Tables.Add(MyRange, 1, 1)

table2.Borders.Enable = False 

table2.Cell(1, 1).Range.InsertBefore (doc.Body(0))
4

Subject: Export/Import mail to MS Word

If a third party product is acceptable, we handle export to and import from MS Word with our Midas Rich Text LSX and have a lot of features to help you get the exact results you want. It is a third party product, so it will cost something, but you may find it worth the money.