DominoArea.org [Archive]

par **Fournery** » 16 Jan 2004 à 16:28

Bonjour,En lotus script je créé un doc. Je créé un richtextitemj'y met plein de HTMLmais quand je regarde le document sur IE, l'HTML sort comme du text.Comment faire pour qu'il soit interpréter en tant que code HTML?cdt,[%sig%]

par **_ledude_** » 16 Jan 2004 à 16:31

Bonjour,tu dois mettre ton code entre crochets[<html>...</html>]@+Dude

par **Fournery** » 16 Jan 2004 à 16:40

Si je suit ce que tu dits j'ai mis un un crochet avant ma table et un sur mon fin de table en bas.C'est comme ca? Set dMemo = db.CreateDocument() dMemo.Form = "FaxMemo" 'A qui envoie-t-on le mail sendTo = Trim(doc.FAXtel(0)) dMemo.SendTo = sendTo dMemo.Subject = doc.Reference(0) Set rtitem = dMemo.CreateRichTextItem("Body") Call rtitem.AppendText({[<table width=100% border="0">}) Call rtitem.AppendText({<tr valign="top"><td width="20%">}) Set item = doc.GetFirstItem("Ste") If Not(Isempty(item)) Then sVar = Cstr(item.Values(0)) If Not(sVar = "") Then Call rtitem.AppendText( sVar ) End If End If Call rtitem.AddNewLine( 1 ) Set item = doc.GetFirstItem("Adresse") If Not(Isempty(item)) Then sVar = Cstr(item.Values(0)) If Not(sVar = "") Then Call rtitem.AppendText( sVar ) End If End If Call rtitem.AddNewLine( 1 ) Set item = doc.GetFirstItem("Ville") If Not(Isempty(item)) Then sVar = Cstr(item.Values(0)) If Not(sVar = "") Then Call rtitem.AppendText( sVar ) End If End If Call rtitem.AppendText({</td><td width="60%">}) '--------------------INSERT IMAGE Logo Call rtitem.AppendText({<img src="/DEV/BQAGRO.NSF/953df7d72eb7af8880256c9b0036d669/$Body/0.B20?OpenElement&FieldElemFormat=gif" name="Logo">}) Call rtitem.AppendText({</td><td width="20%">}) Set item = doc.GetFirstItem("VisaEmail") If Not(Isempty(item)) Then sVar = Cstr(item.Values(0)) If Not(sVar = "") Then Call rtitem.AppendText( sVar ) End If End If Call rtitem.AddNewLine( 1 ) Set item = doc.GetFirstItem("VisaTel") If Not(Isempty(item)) Then sVar = Cstr(item.Values(0)) If Not(sVar = "") Then Call rtitem.AppendText( sVar ) End If End If Call rtitem.AddNewLine( 1 ) Set item = doc.GetFirstItem("VisaFax") If Not(Isempty(item)) Then sVar = Cstr(item.Values(0)) If Not(sVar = "") Then Call rtitem.AppendText( sVar ) End If End If Call rtitem.AppendText({</td><tr>}) Call rtitem.AppendText({</table>]})[%sig%]

par **_ledude_** » 16 Jan 2004 à 17:03

Tout à fait.

par **Fournery** » 16 Jan 2004 à 17:05

Et bien quand cela arrive sur ma messagerie Free, j'ai mon html comme du texte et il n'est pas interprété.Je ne comprend pas pourquoi?merci de prendre du temps sur ce probleme.[%sig%]

par **_ledude_** » 16 Jan 2004 à 17:22

Effectivement, jamais essayé d'envoyer un mail formaté html comme ça.Dans ce cas, essaie la propriété PassThruHtml de la class NotesRichTextStyle.Vas voir dans l'aide Designer, tout est indiqué.Si j'ai un peu de temps, j'essaierai de t'envoyer un exemple de code.Dude

par **_ledude_** » 16 Jan 2004 à 17:29

Juste oublié de te préciser que dans ce cas tu dois retirer les crochets.

par **oguruma** » 16 Jan 2004 à 18:05

ou tu peux créer un style nommé HTLM et appliqué ce style sur la zone désiréemais je préfère le passthru comme _ledude_

DominoArea.org [Archive]

Mettre du html en LS

Mettre du html en LS

Re: Mettre du html en LS

Re: Mettre du html en LS

Re: Mettre du html en LS

Re: Mettre du html en LS

Re: Mettre du html en LS

Re: Mettre du html en LS

Re: Mettre du html en LS