¡ Hola¡
Tengo un formulario que envia de una manera tosca los datos que un usuario/a a rellenado en un formulario . Quiero mejorar esos datos con codigo HTML (negrita , colores etc)
Esta es parte del codigo que funciona
' atencion codigo para enviar correo de texto enriquecido
Set doc = New NotesDocument(db) ' documento de correo
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AppendText(" Datos recibos por el ")
Call rtitem.Addnewline(2)
richStyle.Bold = True
richStyle.NotesColor = COLOR_RED
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText ("http://www.tuweb.org/" )
richStyle.Bold = False
richStyle.NotesColor = COLOR_BLACK
richStyle.NotesFont = FONT_COURIER
richStyle.FontSize = 16
Call rtitem.AppendStyle(richStyle)
Call rtitem.Addnewline(2)
Call rtitem.AppendText(respuesta)
'Call rtitem.AppendText("[<b>Fecha de Creación: </b>]"+Cstr(doc.Created)+"")
For x=1 To 22
If doc.HasItem( cmpFormulario(x)) Then
Set nitem=doc.GetFirstItem( cmpFormulario(x))
Call rtitem.AppendText(UCase(cmpFormulario(x))+":<b> ")
richStyle.Bold = True
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText(nitem.text)
richStyle.Bold = False
Call rtitem.AppendStyle(richStyle)
Call rtitem.Addnewline(1)
End If
Next
Call rtitem.Addnewline(2)
Call rtitem.AppendText( "")
Call rtitem.Addnewline(2)
doc.form="Memo"
doc.subject="Estos son los datos: "+ datosFormulario(1)+" "+datosFormulario(2)+" de presentación "
doc.Body=respuesta
doc.SendTo=email
Call doc.Send(False,datosFormulario(11))
Pero no consigo encajar un salto de linea <br> , lo meta donde lo meta , lo interpreta como texto , lo he puesto entre corchetes , he puesto en el codigo
richStyle.PassThruHTML = True
Pero no hay manera coge el tamaño de letra , el color rojo , pero un <br> o un <b>, por ningun lado.
Tiene que haber una forma de formatear los datos que se envian a un usuario desde un formulario hecho en notes .
Gracias de antemano por cualquier respuesta.
Un saludo