Page 1 sur 1

Format CSS Client Notes -Urgent

MessagePublié: 07 Déc 2009 à 12:31
par nowlan
Bonjour

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

MessagePublié: 07 Déc 2009 à 12:34
par Michael DELIQUE
salut

tu as regarder si dans ton document site, onglet mail le format des mail etait mime ?.

Ps, j'aime bcp ta maniere de géré les erreurs !

MessagePublié: 07 Déc 2009 à 13:07
par nowlan
Le format de mon document de site est correcte

MAis en fait c'est un application domino web qui envoi le message

Nowlan

MessagePublié: 07 Déc 2009 à 13:21
par abertisch
ah si notes était un client mail.... :roll:

Il ne comprends pas le css et c'est cela ton problème :lol:

Passe en tableau html et tu devrais pouvoir régler ton problème.

MessagePublié: 07 Déc 2009 à 13:55
par nowlan
Merci pour la réponse

Mais, en fait le but c'est jsute afficher un image et ecrire quelque part dans l'image

Si vous pouvez me donner un exemple en tableau html Je veux bien

MErci

Nowlan

MessagePublié: 07 Déc 2009 à 13:56
par Michael DELIQUE
tout sur les tableaux en HTML => http://fr.selfhtml.org/navigation/html.htm#tableaux

en clicquant sur description tu aurra du code

MessagePublié: 07 Déc 2009 à 14:36
par abertisch
nowlan a écrit:Merci pour la réponse

Mais, en fait le but c'est jsute afficher un image et ecrire quelque part dans l'image

Si vous pouvez me donner un exemple en tableau html Je veux bien

MErci

Nowlan


Ah c'est de la veille école :lol: :lol:

Code : Tout sélectionner
<html>
<body>
<table>
<tr><td>
<img>
</td></tr>
<tr><td>
<p>
|& replaceAll(contenu) &|</p>
</td></tr>
</table>
</body>
</html>