SACAR EN EMAIL EL TEXTO EN NEGRITA

Miguel.

Lo único que te falta en el código es el formato del MENSAJE, para lo
cual debe ser BodyFormat = Valor(0: HTML, 1: TEXTO)

Ejemplo

Set objMail = CreateObject("CDONTS.NewMail")
objMail.To =
objMail.From =
objMail.Body = VariableDelContenidoDelMail
objMail.BodyFormat = 0
objMail.Send
Set objMail = Nothing


Saludos


Que la fuerza este contigo,- Hero.


"Miguel Angel" escribió en el mensaje
news:2155101c45aae$2cb4c3f0$
Buenos días tengo el siguiente problemilla, como podría
pasar los datos que recibo del formulario al email en
negrita: pongo este código y me falla en: "No coinciden
los tipos"
CODIGO:
***********LO QUE QUIERO SACAR EN EL MAIL EN NEGRITA SON
LOS DATOS COMO NOMBRE,APELIDOS, ETC... MUCHAS GRACIAS DE
ANTEMANO...
<%
'DECLARAMOS LAS VARIABLES
Dim
aNombre,Nombre,aApellidos,Apellidos,aEdad,Edad,aDireccion,D
ireccion,aCodPostal,CodPostal,aPoblacion,Poblacion,aProvinc
ia,Provincia,aTelefono,Telefono,aEMail,EMail,aTitulacion,Ti
tulacion,aCNHConocido,CNHConocido,aOtra,Otra,aPresencial,Pr
esencial,aDistancia,Distancia,aOnLine,OnLine,aMaster,aMGMed
ioambiente,MGMedioambiente,aMRICExterior,MRICExterior,aMBBM
Financieros,MBBMFinancieros,aMGRHumanos,MGRHumanos,aMGICMTS
Prevencion,MGICMTSPrevencion,aMPRLSeguridad,MPRLSeguridad,a
MPRLErgonomia,MPRLErgonomia,aMPRLHIndustrial,MPRLHIndustria
l,aMPRL3Especialidades,MPRL3Especialidades,aMBAOLine,MBAOLi
ne,aMBADGestion,MBADGestion,aMGIntegrada,MGIntegrada,aMGSCa
lidad,MGSCalidad,aMGMAmbiente,MGMAmbiente,aMDRHumanos,MDRHu
manos,aCSGDEmpresas,CSGDEmpresas,aCGSCalidad,CGSCalidad,aCG
SMediombientales,CGSMediombientales,aEHIndustrial,EHIndustr
ial,aEEPAplicada,EEPAplicada,aComentarios,Comentarios,aInte
resado,aEspacio,aTitulo,aTitulo1

'///////////////////////////////////////
'FUNCIÓN PARA ENVIAR EL TEXTO EN NEGRITA'
'Sub negrita(aNombre)
'Response.Write "<B>"&aNombre&"</B>"
'End Sub
'///////////////////////////////////////////-->

aEspacio
= "_______________________________________________________
"
aTitulo = "*******FORMACIÓN PRESENCIAL*******"
aTitulo1 = "*******FORMACIÓN ON LINE*******"
aNombre = "NOMBRE:"
'aNombre = negrita(aNombre)
Nombre = Request.Form("Nombre")
aApellidos = "APELLIDOS:"
Apellidos = Request.Form("Apellidos")
aEdad = "EDAD:"
Edad = Request.Form("Edad")
aDireccion = "DIRECCIÓN:"
Direccion = Request.Form("Direccion")
aCodPostal = "CÓDIGO POSTAL:"
CodPostal = Request.Form("CodPostal")
aPoblacion = "POBLACIÓN:"
Poblacion = Request.Form("Poblacion")
aProvincia = "PROVINCIA:"
Provincia = Request.Form("Provincia")
aTelefono = "TELÉFONO:"
Telefono = Request.Form("Telefono")
aEMail = "E-MAIL:"
EMail = Request.Form("EMail")
aTitulacion = "TITULACIÓN:"
Titulacion = Request.Form("Titulacion")
aCNHConocido = "¿CÓMO NOS HA CONOCIDO?:"
CNHConocido = Request.Form("CNHConocido")
aOtra = "OTRA:"
Otra = Request.Form("Otra")
aInteresado = "INTERESADO EN:"
aPresencial = ""
Presencial = Request.Form("Presencial")
aDistancia = ""
Distancia = Request.Form("Distancia")
aOnLine = ""
OnLine = Request.Form("OnLine")
aMaster = "RELACIÓN DE MASTER A ENVIAR
INFORMACIÓN:"
aMGMedioambiente = "
"
MGMedioambiente = Request.Form("MGMedioambiente")
aMRICExterior = "
"
MRICExterior = Request.Form("MRICExterior")
aMBBMFinancieros = "
"
MBBMFinancieros = Request.Form("MBBMFinancieros")
aMGRHumanos = ""
MGRHumanos = Request.Form("MGRHumanos")
aMGICMTSPrevencion = "-
MGICMTSPrevencion = Request.Form
("MGICMTSPrevencion")
aMPRLSeguridad = "--
-"
MPRLSeguridad = Request.Form("MPRLSeguridad")
aMPRLErgonomia = "--
-"
MPRLErgonomia = Request.Form("MPRLErgonomia")
aMPRLHIndustrial = "
"
MPRLHIndustrial = Request.Form("MPRLHIndustrial")
aMPRL3Especialidades = "--
-"
MPRL3Especialidades = Request.Form
("MPRL3Especialidades")
aMBAOLine = ""
MBAOLine = Request.Form("MBAOLine")
aMBADGestion = ""
MBADGestion = Request.Form("MBADGestion")
aMGIntegrada = ""
MGIntegrada = Request.Form("MGIntegrada")
aMGSCalidad = ""
MGSCalidad = Request.Form("MGSCalidad")
aMGMAmbiente = "
:"
MGMAmbiente = Request.Form("MGMAmbiente")
aMDRHumanos = ""
MDRHumanos = Request.Form("MDRHumanos")
aCSGDEmpresas = "
"
CSGDEmpresas = Request.Form("CSGDEmpresas")
aCGSCalidad = ""
CGSCalidad = Request.Form("CGSCalidad")
aCGSMediombientales = "
"
CGSMediombientales = Request.Form
("CGSMediombientales")
aEHIndustrial = "
"
EHIndustrial = Request.Form("EHIndustrial")
aEEPAplicada = ""
EEPAplicada = Request.Form("EEPAplicada")
aComentarios = "COMENTARIOS:"
Comentarios = Request.Form("Comentarios")



'GRABAMOS EL FORMULARIO EN LA TABLA "FormularioA"
DE LA BASE DE DATOS "BBDDFormularios"
txtsql = "INSERT INTO FormularioA
(Nombre,Apellidos,Edad,Direccion,CodPostal,Poblacion,Provin
cia,Telefono,EMail,Titulacion,CNHConocido,Otra,Presencial,D
istancia,OnLine,MGMedioambiente,MRICExterior,MBBMFinanciero
s,MGRHumanos,MGICMTSPrevencion,MPRLSeguridad,MPRLErgonomia,
MPRLHIndustrial,MPRL3Especialidades,MBAOLine,MBADGestion,MG
Integrada,MGSCalidad,MGMAmbiente,MDRHumanos,CSGDEmpresas,CG
SCalidad,CGSMediombientales,EHIndustrial,EEPAplicada,Coment
arios) VALUES ('"
txtsql = txtsql & Nombre & "','" & Apellidos
& "','" & Edad & "','" & Direccion & "','" & CodPostal
& "','"
txtsql = txtsql & Poblacion & "','" & Provincia
& "','" & Telefono & "','" & EMail & "','" & Titulacion
& "','" & CNHConocido & "','" & Otra & "','" & Presencial
& "','"
txtsql = txtsql & Distancia & "','" & OnLine
& "','" & MGMedioambiente & "','" & MRICExterior & "','"
& MBBMFinancieros & "','" & MGRHumanos & "','" &
MGICMTSPrevencion & "','"
txtsql = txtsql & MPRLSeguridad & "','" &
MPRLErgonomia & "','" & MPRLHIndustrial & "','" &
MPRL3Especialidades & "','" & MBAOLine & "','" &
MBADGestion & "','" & MGIntegrada & "','"
txtsql = txtsql & MGSCalidad & "','" &
MGMAmbiente & "','" & MDRHumanos & "','" & CSGDEmpresas
& "','" & CGSCalidad & "','" & CGSMediombientales & "','"
& EHIndustrial & "','" & EEPAplicada & "','" & Comentarios
& "')"
'Response.Write txtsql
Set registros = SQL.Execute(txtsql)
'



Dim ObjMail
Set ObjMail = Server.CreateObject
("CDONTS.NewMail")

ObjMail.To = ""
ObjMail.From = ""
ObjMail.Subject = "Formulario desde Web -
ciaformacion.com"



ObjMail.Body = aNombre & vbCrLf& _
Nombre & vbCrLf& _
aEspacio & vbCrLf& _
aApellidos & vbCrLf& _
Apellidos & vbCrLf& _
aEspacio & vbCrLf& _
aEdad & vbCrLf& _
Edad & vbCrLf& _
aEspacio & vbCrLf& _
aDireccion & vbCrLf& _
Direccion & vbCrLf& _
aEspacio & vbCrLf& _
aCodPostal & vbCrLf& _
CodPostal & vbCrLf& _
aEspacio & vbCrLf& _
aPoblacion & vbCrLf& _
Poblacion & vbCrLf& _
aEspacio & vbCrLf& _
aProvincia & vbCrLf& _
Provincia & vbCrLf& _
aEspacio & vbCrLf& _
aTelefono & vbCrLf& _
Telefono & vbCrLf& _
aEspacio & vbCrLf& _
aEMail & vbCrLf& _
EMail & vbCrLf& _
aEspacio & vbCrLf& _
aTitulacion & vbCrLf& _
Titulacion & vbCrLf& _
aEspacio & vbCrLf& _
aCNHConocido & vbCrLf& _
CNHConocido & vbCrLf& _
aEspacio & vbCrLf& _
aOtra & vbCrLf& _
Otra & vbCrLf& _
aEspacio & vbCrLf& _
aInteresado & vbCrLf& _
aPresencial & vbCrLf& _
Presencial & vbCrLf& _
aEspacio & vbCrLf& _
aDistancia & vbCrLf& _
Distancia & vbCrLf& _
aEspacio & vbCrLf& _
aOnLine & vbCrLf& _
OnLine & vbCrLf& _
aEspacio & vbCrLf& _
aMaster & vbCrLf& _
aEspacio & vbCrLf& _
aTitulo & vbCrLf& _
aMGMedioambiente & vbCrLf& _
MGMedioambiente & vbCrLf& _
aMRICExterior & vbCrLf& _
MRICExterior & vbCrLf& _
aMBBMFinancieros & vbCrLf& _
MBBMFinancieros & vbCrLf& _
aMGRHumanos & vbCrLf& _
MGRHumanos & vbCrLf& _
aMGICMTSPrevencion & vbCrLf& _
MGICMTSPrevencion & vbCrLf& _
aTitulo1 & vbCrLf& _
aMPRLSeguridad & vbCrLf& _
MPRLSeguridad & vbCrLf& _
aMPRLErgonomia & vbCrLf& _
MPRLErgonomia & vbCrLf& _
aMPRLHIndustrial & vbCrLf& _
MPRLHIndustrial & vbCrLf& _
aMPRL3Especialidades & vbCrLf& _
MPRL3Especialidades & vbCrLf& _
aMBAOLine & vbCrLf& _
MBAOLine & vbCrLf& _
aMBADGestion & vbCrLf& _
MBADGestion & vbCrLf& _
aMGIntegrada & vbCrLf& _
MGIntegrada & vbCrLf& _
aMGSCalidad & vbCrLf& _
MGSCalidad & vbCrLf& _
aMGMAmbiente & vbCrLf& _
MGMAmbiente & vbCrLf& _
aMDRHumanos & vbCrLf& _
MDRHumanos & vbCrLf& _
aCSGDEmpresas & vbCrLf& _
CSGDEmpresas & vbCrLf& _
aCGSCalidad & vbCrLf& _
CGSCalidad & vbCrLf& _
aCGSMediombientales & vbCrLf& _
CGSMediombientales & vbCrLf& _
aEHIndustrial & vbCrLf& _
EHIndustrial & vbCrLf& _
aEEPAplicada & vbCrLf& _
EEPAplicada & vbCrLf& _
aEspacio & vbCrLf& _
aComentarios & vbCrLf& _
Comentarios


ObjMail.Send
Set ObjMail = Nothing

'REDIRECCIONAMOS A UNA PÁGINA DE
CONFIRMACIÓN DE ENVIO

Response.Redirect "http://www.ciaformacion.com/grac
ias.htm"

%>