[COLOR=#008000]'Affichage du mail dans Lotus Notes[/COLOR]
[COLOR=#0000ff]Set[/COLOR] workspace = CreateObject("[COLOR=#8b0000]Notes.NotesUIWorkspace[/COLOR]")
[COLOR=#0000ff]Call[/COLOR] workspace.EditDocument([COLOR=#0000ff]True[/COLOR], beDoc).FieldSetText("[COLOR=#8b0000]Body[/COLOR]", body)