Como puedo enviar un mail desde mi pagina ASP ??

axion2000
20 de Junio del 2003
Tengo win98 con wps y dreamweaver mx...
genero un formulario....
paso los datos a la proxima pagina
pero como envio esos datos a un mail ??
Gracias...


prokofiev2003
20 de Junio del 2003
Tienes que echar código papa. Usa ASPMail.
Este script lo hice hace poco...

DIM ObjDic, ObjMail
SET ObjDic=Server.CreateObject("Scripting.Dictionary")

FOR EACH Item IN Request.Form
IF Request.Form(Item).Count THEN
FOR internalLoop= 1 TO Request.Form(Item).Count
IF INSTR(Item, "check")>0 THEN
ObjDic.Add Trim(Request.Form(Item)(internalLoop)), Item
ELSE
ObjDic.Add Item, Trim(Request.Form(Item)(internalLoop))
END IF
NEXT
ELSE
ObjDic.Add Item, TRIM(Request.Form(Item))
END IF
NEXT

ObjDic.Item("MSG")=ObjDic.Item("MSG")&"Subject" &VbCrLf&"--------------------------------------------------------"&VbCrLf
ObjDic.Item("MSG")=ObjDic.Item("MSG")&"1. - NOMBRE: "&ObjDic.Item("fnombre")&VbCrLf&VbCrLf
ObjDic.Item("MSG")=ObjDic.Item("MSG")&"2. - APELLIDO: "&ObjDic.Item("fapellido")&VbCrLf&VbCrLf
ObjDic.Item("MSG")=ObjDic.Item("MSG")&"3. - EDAD: "&ObjDic.Item("edad")&VbCrLf&VbCrLf
ObjDic.Item("MSG")=ObjDic.Item("MSG")&"4. - EMAIL : "&ObjDic.Item("femail")&VbCrLf&VbCrLf
ObjDic.Item("MSG")=ObjDic.Item("MSG")&"5. - CEDULA : "&ObjDic.Item("fcedula")&VbCrLf&VbCrLf
ObjDic.Item("MSG")=ObjDic.Item("MSG")&"6. - TELEFONO : "&ObjDic.Item("ftelefono")&VbCrLf&VbCrLf
ObjDic.Item("MSG")=ObjDic.Item("MSG")&"7. - DIRECCION : "&ObjDic.Item("fdireccion")&VbCrLf&VbCrLf

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
IF ISOBJECT(Mailer) THEN
Mailer.FromName = "Nombre del remitente"
Mailer.FromAddress= "direccion del remitente"
Mailer.RemoteHost = "smtp del remitente"
Mailer.AddRecipient "destinatario", "direccion del destinatario"
Mailer.Subject = "Asunto"
Mailer.BodyText = ObjDic.Item("MSG")

IF Mailer.SendMail THEN
ObjDic.Item("xxx")=ObjDic.Item("xxx")&"<br>&nbsp;<br>Su email ya fue enviado..."
ELSE
ObjDic.Item("xxx")=ObjDic.Item("xxx")&"<br>&nbsp;<br>Error en el envio del EMail, el error fue: " & Mailer.Response
END IF
ELSE
ObjDic.Item("xxx")=ObjDic.Item("xxx")&"<br>&nbsp;<br>Error !, No se creó el Objeto para Mail"
END IF

Response.Redirect "pagina de agradecimiento o lo que sea"
Response.Flush
<textarea cols='100%' rows='80%'><%=ObjDic.Item("xxx")%></textarea>
<%Response.End%>

Espero que te ayude
caracas - venezuela
%>