On m'a demandé de faire un petite application web pour pouvoir envoier une carte de voeux .A la fermeture de mon masque web j'appele cet agent:
- Code : Tout sélectionner
Sub Initialize
On Error Goto Boom
Dim s As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docdest As NotesDocument
Dim mail As NotesDocument
Dim view As Notesview
Dim destinataire As String
Dim urldoc As String
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Dim itemauteur As NotesItem
Dim itemlecteur As NotesItem
Dim itemcontent As Variant
Dim pourqui As String
Dim ccqui As String
Dim contenu As String
Dim test As Variant
Dim bob As String
Set s = New NotesSession
Set db = s.currentDatabase
Set doc = s.DocumentContext
Set itemcontent=doc.GetFirstItem("Comment")
contenu=itemcontent.GetFormattedText(False,0)
Set mail=db.CreateDocument()
mail.form = "memo"
Set body = mail.CreateMIMEEntity
Set stream = s.CreateStream
bob=|<html>
<body>
<div style="width: 650px; height:300px; border:1px solid #EA670F ;margin:0; padding:0;">
<img src="http://novimage.unblog.fr/files/2008/11/flyerrectov7.jpg" style="position: relative;left:0;top:0;witdh:400px; height:300px">
<p style="width: 250px;height:150px;top:270px;color:#EA670F;left:350px;margin:0;position:absolute">
|& replaceAll(contenu) &|</p></div>
</body>
</html>|
Call EnvoyerMessage(doc.Sujet(0) , doc.PourQui(0), bob)
Exit Sub
Boom:
Msgbox Now+" formsavetest2: ERREUR "+Error +"("+ Cstr(Err) +") ligne "+ Cstr(Erl)
Exit Sub
End Sub
Lorsque j'ouvre le mail coté web ça l'air de fonctionnée c'est à dire mon text est bien placé suivant la position fait par le css de la balise <p>
PAr contre qu'on on l'ouvre avec le client Notes ça ne focntionne plus
Mon texte est en dessous de mon image.
Comment faire pour que le css soit valide coté web et coté Notes
MErci Encore
Nowlan
