exportation message Lotus vers Word

[AB]

Comment exporter un message (envoyé ou en arrivé) vers Word, avec ses pièces jointes et son en-tête, comme cela peut se faire dans outlook ?D'avance merci.

[AdminExpert]

tiens sur le site openntf.org (qui est une de mes sources d'info)voiciun exemple de code LShttp://www.openntf.org/Projects/codeb ... 000CC184il n'est pas compliqué si tu connais bien le LS tu devrais pouvoir l'adapter à ton application.

[AdminExpert]

Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim item As NotesItem Dim wApp As Variant Dim wDoc As Variant Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document Set wApp = CreateObject("Word.Application") wApp.Visible = True wApp.Documents.Add Set wDoc = wApp.ActiveWindow Forall i In doc.Items Set item=doc.GetFirstItem( i.Name ) Call wApp.Selection.TypeText(i.Name) Call wApp.Selection.Typeparagraph Call wApp.Selection.TypeText(item.Text) Call wApp.Selection.Typeparagraph Call wApp.Selection.Typeparagraph End Forall End Sub

[AdminExpert]

recherche le mot word, ms word dans http://www-10.lotus.com/ldd/46dom.nsf

[AdminExpert]

recherche le mot word, ms word dans http://www-10.lotus.com/ldd/46dom.nsf