Ver Mensaje Individual
  #4 (permalink)  
Antiguo 23/05/2003, 04:16
Avatar de Kunael
Kunael
 
Fecha de Ingreso: noviembre-2002
Ubicación: Barcelona
Mensajes: 164
Antigüedad: 22 años, 5 meses
Puntos: 0
Ok, gracias por la información. Me lo he estado mirando con más atención.

Qué os parece este código (teniendo en cuenta que procesa los datos recogidos en un formulario anterior)?

<%Option Explicit%>

<%
'declaración de variables
Dim aCampo(5)
Dim oMail
Dim sCuerpo

'recojer las variables del formulario
sCampo(0)=Request.Form("Nombre")
sCampo(1)=Request.Form("Empresa")
sCampo(2)=Request.Form("Direccion")
sCampo(3)=Request.Form("Telefono")
sCampo(4)=Request.Form("Email")
sCampo(5)=Request.Form("Mensaje")

'"maquetación" de todas las variables en un mismo string
sCuerpo= "&sCampo(0)&"&lt;BR&gt;"&sCampo(1)&"lt;BR&gt;"&sCa mpo(2)&"&lt;BR&gt;"&sCampo(3)&"&lt;BR&gt;"&sCampo( 4)&"&lt;BR&gt;"&Campo5&"

'inicialización del objeto y declaración de propiedades y valores
Set oMail= Server.CreateObject("CDONTS.Newmail")
oMail.From="[email protected]"
oMail.To="[email protected]"
oMail.Subject="sCuerpo"
oMail.Send

'cerramos el objeto
Set oMail=Nothing
%>

Nos vemos.
__________________
Comparte tu conocimiento