envia el email correctamente, pero: cómo hago para que llegue tipo HTML????

[ajmataurus]

este es el FORM que captura los datos de la persona:
preinscripcion.htm

Código:

<form action="mail.asp" name="form1" method="post" >
<input name="txtNombres" type="text" class="unnamed1" id="txtNombres" size="28" maxlength="25">
<input name="txtApellidos" type="text" class="unnamed1" id="txtApellidos" size="28" maxlength="50">
<input name="txtDireccion" type="text" class="unnamed1" id="txtDireccion" size="28" maxlength="100">
<select name="distrito" size="1" class="unnamed1" id="distrito">
                  <option>Chilca</option>
                  <option>El Tambo</option>
                  <option>Huancayo</option>
</select>
<input name="telefono" type="text" class="unnamed1" id="telefono" size="10" maxlength="7">
<input name="txtemail" type="text" class="unnamed1" id="txtemail" size="28" maxlength="30">
<input type="submit" name="Submit" value="Enviar">
<input type="reset" name="Submit2" value="Limpiar">
<input type="button" name="Submit3" value="Salir"></td>
</form>

______
Bueno y este es el código que captura los datos y envía a la dirección email, pero el detalle es que quiero que se envìen los datos como: Nombres, Apellidos, Dirección, Teléfono, distrito: osea algo así como un formatito HTML y que pueda ser vistoso no??

mail.asp

Código:

<%
nombres=request.form("txtNombres")
apellidos=request.form("txtApellidos")
direccion=request.form("txtdireccion")
distrito=request.form("distrito")
telefono=request.form("telefono")
email=request.form("txtemail")
Set oMail = Server.CreateObject("CDO.Message")

'reemplazar aqui las variables principales
para = "[email protected]"
de = "[email protected]"
asunto = "CNCF"
mensaje = "este es un mensaje de prueba"
oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.TextBody = mensaje

oMail.Send 

Set oMail = Nothing
%>

»entonces como ustedes veràn captura todos los datos pero en la variable mensaje quisiera que see algo así el resultado y mejor si tuviera las opciones de etiquetas de HTML:
El siguiente mensaje ha sido enviado por ---------(nombres) ---------(apellidos) que vive en la dirección: --------(direccion) del distrito de ---------(distrito) etc. etc.
alguna sugerencia?????

[Morgui]

Hola ajmataurus, para escribir el mensaje de la forma que dices debes construir la cadena intercalando los valores recogidos en el formulario, por ejemplo así:

mensaje = "El siguiente mensaje ha sido enviado por "&request.form("txtNombres")& " " &request.form("txtApellidos")& ", que vive en la dirección: "&request.form("txtdireccion")&" del distrito de " & request.form("distrito")

Y para dar formato html al cuerpo del mensaje debes poner debajo de:

oMail.TextBody = mensaje

el siguiente código:

oMail.IsHTML = True

así ya admite html. Ahora debes montar el mensaje con las etiquetas, por ejemplo:

mensaje = "El siguiente mensaje ha sido enviado por <b>"&request.form("txtNombres")& "</b> " &request.form("txtApellidos")& ", que vive en la dirección: "&request.form("txtdireccion")&" del distrito de " & request.form("distrito")

para poner el nombre en negrita

Espero que te sirva

[ajmataurus]

Hola Morgui
Gracias por el dato.
pero tengo un problemilla con el oMail.IsHTML=True
sale un error en la pagina:
Hay un problema con la página solicitada y no puede ser mostrada..
.....y.....
HTTP 500 - Error interno del servidor
Internet Explorer
el problema es esa propiedad o falta algo al codigo????? o es mi IIS????
gracias

[Morgui]

Hola de nuevo, mira, puedes modificar la configuración del navegador para que te muestre un mensaje que describa el error de forma más precisa.

Debes hacer esto:te vas a herramientas/opciones de internet/opciones avanzadas y la opcion que dice "Mostrar errores descrptivos http" debe estar desmarcada.

Vuelve a ejecutar la página y te mostrará otro error, copialo y pegalo aquí para poder verlo a ver si te podemos ayudar

[El_Metallick]

en las faqs postie u8n tema sobre envio de mail quiza ahi esta la solucion... saludos

[ajmataurus]

Este es el mensaje
Error de Microsoft VBScript en tiempo de ejecución error '800a01b6'

El objeto no acepta esta propiedad o método: 'oMail.IsHTML'

[Myakire]

Si quieres que llegue en HTML, no uses oMail.TextBody, sino oMail.HTMLBody

Tambien puedes especificar (aunque no necesario si usas HTMLBody) el formato:
oMail.MailFormat = 0
oMail.BodyFormat = 0

Googleando: http://www.15seconds.com/issue/980429.htm

[El_Metallick]

en vez del oMail.TextBody prueba con el oMail.HTMLBody = mesaje.... ahi deveria funcionar... .lo del oMail.IsHTML = True borralo oso al parecer es de otro componente... saludos

----- Editado -----
Se me adelanto el master Myakire... pero weno la idea es esa

[ajmataurus]

gracias a ambos, sale bien, todo perfecto.
una pregunta mas y listo, cómo puedo hacer para que envíe a dos o más personas??????.
graciass

[mmowoa]

Iniciado por ajmataurus

gracias a ambos, sale bien, todo perfecto.
una pregunta mas y listo, cómo puedo hacer para que envíe a dos o más personas??????.
graciass

simplemente los separás por punto y coma:

Código:

oMail.To = "[email protected]; [email protected];"

y así todas las veces q quieras

[Jonatatan]

Voy a aprovechar este post ya q el problema es con el envio del mail, yo tengo el mismo codigo pero cuando me envia el email me ocurre este error:

Errore: The "SendUsing" configuration value is invalid.

ah.... puedes cambiar el formato del cuerpo colocando oMail.HTMLBody , no lo he probado pero deberia funcionar porq es una propiedad del objeto y es exactamente lo q buscas.

Pienso q debe haber algun problema con las direcciones de email pero ni idea con este error, Aqui les envio el para q vean, ahora aqui arriba el codigo de envio y mas abajo el codigo completo, el cuerpo del mensaje es muy largo pero igual deberia funcionar, tambien he predisposicionado las direcciones de email y nada, bueno quien me pueda ayudar se lo agradezco:


Dim Mail
set Mail = Server.CreateObject("CDO.Message")
Mail.From = da
Mail.To = per
Mail.Subject = curr
Mail.TextBody = cuerpo

On Error Resume Next
Mail.Send

if Err <> 0 Then
Response.Write ( "Errore: " & Err.Description )
else
Response.Write ( "Mail Inviato." )
end if


<html>
<body>
<%
da= "[email protected]"
per= "[email protected]"
curr = "CURRICULUM VITAE"

nom = request.form("nome")
cog = request.form("cognome")
luo = request.form("luogo_nascita")
dat = request.form("data_nascita")
cit = request.form("citta")
cap = request.form("cap")
pro = request.form("provinicia")
via = request.form("va")
tel1 = request.form("telefono1")
tel2 = request.form("telefono2")
'da = request.form("email")
tito = request.form("titolo")
dima = request.form("check_diploma_mat")
matu = request.form("maturita")
vmat = request.form("voto_maturita")
dmat = request.form("data_maturita")
diun = request.form("check_diploma_uni")
univ = request.form("universita")
vuni = request.form("voto_universita")
duni = request.form("data_universita")
dila = request.form("check_laurea")
laur = request.form("laurea")
vlau = request.form("voto_laurea")
dlau = request.form("data_laurea")
altr = request.form("altro")
forma= request.form("formazione")
espe = request.form("esperienza_pofesionali")
cinf = request.form("conoscenze_informatiche")
lin1 = request.form("lingua1")
lli1 = request.form("livello_lingua1")
lin2 = request.form("lingua2")
lli2 = request.form("livello_lingua2")
alin = request.form("altre_lingue")
lali = request.form("livello_altre")


cuerpo = "CURRICULUM VITAE" & VBNEWLINE & VBNEWLINE

'cuerpo = cuerpo & "http://ntgedweb1/normeuni/uni.tif " &VBNEWLINE
if (nom<>"") then
cuerpo = cuerpo & "Nome: " & nom & VBNEWLINE
end if
if (cog<>"") then
cuerpo = cuerpo & "Cognome: " & cog & VBNEWLINE
end if
if (luo<>"") then
cuerpo = cuerpo & "Luogo di Nascita: " & luo & VBNEWLINE
end if
if (dat<>"") then
cuerpo = cuerpo & "Data di Nascita: " & dat & VBNEWLINE
end if
if (cit<>"") then
cuerpo = cuerpo & "Residente a: " & cit & VBNEWLINE
end if
if (cap<>"") then
cuerpo = cuerpo & "CAP: " & cap & VBNEWLINE
end if
if (pro<>"") then
cuerpo = cuerpo & "Provincia: " & pro & VBNEWLINE
end if
if (via<>"") then
cuerpo = cuerpo & "Via: " & via & VBNEWLINE
end if
cuerpo = cuerpo & "Recapiti Telefonoci: " & VBNEWLINE
if (tel1<>"") then
cuerpo = cuerpo & "Telefono 1: " & tel1 & VBNEWLINE
end if
if (tel2<>"") then
cuerpo = cuerpo & "Telefono 2: " & tel2 & VBNEWLINE
end if
if (tito<>"") then
cuerpo = cuerpo & "Titolo di Studio: " & tito & VBNEWLINE
end if
'if (dima<>"") then
cuerpo = cuerpo & "Diploma: " & dima & VBNEWLINE
cuerpo = cuerpo & "Maturità: " & matu & VBNEWLINE
cuerpo = cuerpo & "Voto: " & vmat & VBNEWLINE
cuerpo = cuerpo & "Data Diploma: " & dmat & VBNEWLINE
'end if

'if (diun<>"") then
cuerpo = cuerpo & "Diploma Universitario: " & diun & VBNEWLINE
cuerpo = cuerpo & "Diploma: " & univ & VBNEWLINE
cuerpo = cuerpo & "Voto: " & vuni & VBNEWLINE
cuerpo = cuerpo & "Data Diploma: " & duni & VBNEWLINE
'end if

'if (diun<>"") then
cuerpo = cuerpo & "Laurea: " & dila & VBNEWLINE
cuerpo = cuerpo & "Laurea: " & laur & VBNEWLINE
cuerpo = cuerpo & "Voto: " & vlau & VBNEWLINE
cuerpo = cuerpo & "Data Laurea: " & dlau & VBNEWLINE
'end if

if (altr<>"") then
cuerpo = cuerpo & "Altro: " & altr & VBNEWLINE
end if
if (forma<>"") then
cuerpo = cuerpo & "Formazione: " & VBNEWLINE
cuerpo = cuerpo & forma & VBNEWLINE
end if
if (espe<>"") then
cuerpo = cuerpo & "Esperienze Profesionali: " & VBNEWLINE
cuerpo = cuerpo & espe & VBNEWLINE
end if
if (cinf<>"") then
cuerpo = cuerpo & "Conoscenze Informatiche: " & VBNEWLINE
cuerpo = cuerpo & cinf & VBNEWLINE
end if
cuerpo = cuerpo & "Lingue: " & VBNEWLINE
if (lin1<>"") then
cuerpo = cuerpo & "Lingua N° 1: " & lin1 & VBNEWLINE
cuerpo = cuerpo & "Livello: " & lli1 & VBNEWLINE
end if
if (lin2<>"") then
cuerpo = cuerpo & "Lingua N° 2: " & lin2 & VBNEWLINE
cuerpo = cuerpo & "Livello: " & lli2 & VBNEWLINE
end if
if (alin<>"") then
cuerpo = cuerpo & "Altre: " & alin & VBNEWLINE
cuerpo = cuerpo & "Livello: " & lali & VBNEWLINE
end if

Dim Mail
set Mail = Server.CreateObject("CDO.Message")
Mail.From = da
Mail.To = per
Mail.Subject = curr
Mail.TextBody = cuerpo

On Error Resume Next
Mail.Send

if Err <> 0 Then
Response.Write ( "Errore: " & Err.Description )
else
Response.Write ( "Mail Inviato." )
end if

%>
<p>
<br>
<a href=curriculum.html>Ritorna</a>
<p>
</body>
</html>

[Morgui]

Cierto, oMail.IsHTML = True es para el componente Persits.MailSender. Me salté la linea Set oMail = Server.CreateObject("CDO.Message")

Disculpad el error

[El_Metallick]

Jonatatan como te comentaron en el post que abriste con el tema es mas bien configuracion del servidor de corro mas que de ASP... fijate bien en como lo tienes configurado