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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager