Ouvrir nouveau mail avec tableau dans Lotus Notes

[z980x]

Bonjour à tous,

j'aimerais ouvrir une fenêtre pour écrire un nouveau message avec Lotus Notes.
Cela doit se faire à partir d'un site internet... (Mais pas PHP)
Donc soit Java, soit Vbscript, soit javascript...

Bon, actuellement mon code (qui n'est en réalité pas le mien...) ouvre un nouveau mail, mais ne mets pas de tableau...
Comment faire??
J'avais pensé à deux choses:
Première chose, insérer du code HTML, mais pour cela, il faut que l'édition du message soit en HTML...
Seconde solution, ajouter un objet tableau dans un mail... Mais je ne sais pas du tout comment faire.

Pouvez vous m'aider?

Merci d'avance

Philippe

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub SendNotesMail()

Set oNotesSession = CreateObject("Notes.Notessession") 'create notes session
Set oDb = oNotesSession.GetDatabase("", "") 'open empty database
oDb.OpenMail 'open mail
Set oMailDoc = oDb.CreateDocument

' Filling the fields
oMailDoc.Subject = "Container Order Inquiry"
oMailDoc.SendTo = ""


oMailDoc.body = "Mon message"

Set oWorkspace = CreateObject("Notes.NotesUIWorkspace")

' Positioning cursor in body
oWorkspace.EditDocument(True, oMailDoc).GotoField("Body")

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "Lotus Notes"

Set oWorkspace = Nothing
Set oDb = Nothing
Set oNotesSession = Nothing
End Sub

[Stéphane Maillard]

Salut,

Pour un tableau il faut utiliser AppendTable de l'objet NotesRichTextItem et ensuite pour naviguer dedans utilisé les fonctions de l'objet NotesRichTextTable. Voir aide de Lotus Designer pour de plus amples informations.