Foros del Web » Programando para Internet » ASP Clásico »

Como insertar en un envio de e-mail valores cambiables

Estas en el tema de Como insertar en un envio de e-mail valores cambiables en el foro de ASP Clásico en Foros del Web. Bueno el tema es así tengo que insertar en el envio de un e-mail Valores de un formulario que pueden ESTAR o NO ejemplo: el ...
  #1 (permalink)  
Antiguo 28/08/2004, 15:00
Avatar de AJVEvoluzione  
Fecha de Ingreso: agosto-2004
Ubicación: Buenos Aires
Mensajes: 195
Antigüedad: 19 años, 9 meses
Puntos: 1
Pregunta Como insertar en un envio de e-mail valores cambiables

Bueno el tema es así tengo que insertar en el envio de un e-mail Valores de un formulario que pueden ESTAR o NO ejemplo:
el codigo en Perl sería algo asi:
print MAIL "$QUANTITY_1 \$$PRICE_1 $ID_1 - $NAME_1 $ADDTLINFO_1 \n";
if( $NAME_2 ) {print MAIL "$QUANTITY_2 \$$PRICE_2 $ID_2 - $NAME_2 $ADDTLINFO_2 \n";}
if( $NAME_3 ) {print MAIL "$QUANTITY_3 \$$PRICE_3 $ID_3 - $NAME_3 $ADDTLINFO_3 \n";}

osea (if) si hay NAME_2 colocar los valores QUANTITY_2, PRICE_2, ID_2, etc. ...
y si hay NAME_3 colocar los valores QUANTITY_3, PRICE_3, ID_3, etc.

no se como escribir los valores en el formulario de envio de un e-mail caundo pueden o no estar los datos. lo que tengo es esto:

Código:
sub envio_mail

Dim ft,xf,xname,x,aname,a,zname,z,dmensaje,d,l,l2,l3,l4,l5,r1,shname,shi,tname,t,stname,st,n1,Q1,p1,i1,ip
ft=Day(Now())&"/"&Month(Now())&"/"&Year(Now())
xf = "Fecha: "
n1= Request.Form("NAME_1")
Q1= Request.Form("QUANTITY_1")
p1= Request.Form("PRICE_1")
i1=Request.Form("ID_1")
xname = "Nombre: "
x= Request.Form("b_first")
aname = "Apellido: "
a= Request.Form("b_last")
zname = "E-mail: "
z= Request.Form("b_email")
dmensaje = "Comentarios: "
d= Request.Form("comment")
l = "==================================================================="
l2 = "-------------------------------------------------------------------"
l3 = "-------------------------------------------------------------------"
l4 = "-------------------------------------------------------------------"
r1 = "Cantidad        Precio     Producto ID      Nombre del Producto"
shname = "GASTOS DE ENVÍO: "
shi= Request.Form("SHIPPING")
tname = "TOTAL: "
t= Request.Form("TOTAL")
stname = "SUBTOTAL: "
st= Request.Form("SUBTOTAL")
ip=CStr(Request.servervariables("remote_host"))

Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "[email protected]"
ObjMail.From = "-Mi web|-<[email protected]>"
ObjMail.Subject = "Nueva Orden Online"
ObjMail.Body = xf & ft & vbcrlf&_
xname & x & vbcrlf&_
aname & a & vbcrlf&_
zname & z & vbcrlf&_
l & vbcrlf&_
r1 & vbcrlf&_
l2 & vbcrlf&_
n1 & Q1 & p1 & i1 & vbcrlf&_
l3 & vbcrlf&_
shname & shi & vbcrlf&_
stname & st & vbcrlf&_
tname & t & vbcrlf&_
l4 & vbcrlf&_
dmensaje & d & vbcrlf&_
ip

ObjMail.Send
Set ObjMail = Nothing
Response.Redirect "http://www.miweb/ok.htm"

end sub 'envio_mail
Como hago para insertar las otras lineas de productos en el mail si estan o no?, porque cuando no estan me da error. saludos
  #2 (permalink)  
Antiguo 29/08/2004, 09:49
 
Fecha de Ingreso: marzo-2004
Ubicación: San José, Costa Rica
Mensajes: 234
Antigüedad: 20 años, 2 meses
Puntos: 0
Saludos,

Porque para crear el body no usas una sintaxis del tipo:...

body = "Hola"
body = body & " Que tal"

If Not (Name2 = "") Then
body = body & "Mi nombre es " & Name2
End If

body = body & "Adios"

Y después le pasas la variable ya concatenada al objeto que envía el correo.
  #3 (permalink)  
Antiguo 29/08/2004, 15:12
Avatar de AJVEvoluzione  
Fecha de Ingreso: agosto-2004
Ubicación: Buenos Aires
Mensajes: 195
Antigüedad: 19 años, 9 meses
Puntos: 1
Dame un ejemplo mas completo porque no entendí
  #4 (permalink)  
Antiguo 30/08/2004, 10:37
 
Fecha de Ingreso: marzo-2004
Ubicación: San José, Costa Rica
Mensajes: 234
Antigüedad: 20 años, 2 meses
Puntos: 0
Bueno este es un ejemplo completo y funcional(real...)....

'-------------------------------------------------------------------------------------
Function Envio_Info

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.com"
Mail.From = Request.Form("Email")
Mail.IsHTML = True
Mail.FromName = Request.Form("First_name") & " " & Request.Form("Last_name")


Mail.AddAddress "[email protected]","The Alta Hotel Web Reservation"
Mail.Subject = "Reservation Request"


Body = "----------------- THE ALTA HOTEL WEB RESERVATION --------------<br><br><br>"

Body = Body & "----------------- Personal Information --------------<br>"
Body = Body & "<strong>Title: </strong>" & Request.Form("Title") & "<br>"
Body = Body & "<strong>First Name: </strong>" & Request.Form("First_Name") & "<br>"
Body = Body & "<strong>Last Name: </strong>" & Request.Form("Last_Name") & "<br>"
Body = Body & "<strong>Phone: </strong>" & Request.Form("Phone") & "<br>"
Body = Body & "<strong>Fax: </strong>" & Request.Form("Fax") & "<br>"
Body = Body & "<strong>E-Mail: </strong>" & Request.Form("Email") & "<br><br>" & chr(13) & chr(10)

Body = Body & "----------------- Arrival Information --------------<br>"
Body = Body & "<strong>Arrival Date: </strong>" & Request.Form("Arrival_Day") & " - " & Request.Form("Arrival_Month") & " - " & Request.Form("Arrival_Year") & "<br>"
Body = Body & "<strong>Arrival Time: </strong>" & Request.Form("Arrival_Time") & "<br>"
Body = Body & "<strong>Airline and Flight Number: </strong>" & Request.Form("Arrival_Airline") & "<br><br>" & chr(13) & chr(10)

Body = Body & "----------------- Departure Information --------------<br>"
Body = Body & "<strong>Departure Date: </strong>" & Request.Form("Departure_Day") & " - " & Request.Form("Departure_Month") & " - " & Request.Form("Departure_Year") & "<br>"
Body = Body & "<strong>Departure Time: </strong>" & Request.Form("Departure_Time") & "<br>"
Body = Body & "<strong>Airline and Flight Number: </strong>" & Request.Form("Departure_Airline") & "<br><br>" & chr(13) & chr(10)

Body = Body & "------------------ Reservation Details ---------------<br>"
Body = Body & "<strong>Type of Room: </strong>" & Request.Form("Type_of_Room") & "<br>"
Body = Body & "<strong>Bed Type: </strong>" & Request.Form("Bed_Type") & "<br>"
Body = Body & "<strong>Number of Rooms: </strong>" & Request.Form("Number_of_Rooms") & "<br>"
Body = Body & "<strong>Number of Adults: </strong>" & Request.Form("Number_of_Adults") & "<br>"
Body = Body & "<strong>Number of Children: </strong>" & Request.Form("Number_of_Children") & "<br><br>" & chr(13) & chr(10)

Body = Body & "----------------- Credit Card Information --------------<br>"
Body = Body & "<strong>Credit Card Type: </strong>" & Request.Form("Credit_Card_Type") & "<br>"
Body = Body & "<strong>Credit Card Number: </strong>" & Request.Form("Credit_Card_Number") & "<br>"
Body = Body & "<strong>Expiration Date: </strong>" & Request.Form("Expiration_Date") & "<br><br>" & chr(13) & chr(10)

IF NOT (Request.Form("Party") = "") Then

Body = Body & "----------------- Restaurante La Luz Reservation --------------<br>"
Body = Body & "<strong>Date: </strong>" & Request.Form("Restaurant_Day") & " - " & Request.Form("Restaurant_Month") & " - " & Request.Form("Restaurant_Year") & "<br>"
Body = Body & "<strong>Time: </strong>" & Request.Form("Restaurant_Time") & "<br>"
Body = Body & "<strong>Party of: </strong>" & Request.Form("Party") & "<br>"
Body = Body & "<strong>Smoking Preference: </strong>" & Request.Form("Smoking") & "<br><br>" & chr(13) & chr(10)

END IF

Body = Body & "------ I want to receive additional informationa about --------<br>"
Body = Body & "<strong>Tours available from the Hotel: </strong>" & Request.Form("Information_Tours") & "<br>"
Body = Body & "<strong>Car Rental: </strong>" & Request.Form("Information_Cars") & "<br>"
Body = Body & "<strong>Ground Transfers: </strong>" & Request.Form("Information_Transfers") & "<br><br><br>" & chr(13) & chr(10)

Body = Body & "----------------- THE ALTA HOTEL WEB RESERVATION --------------<br>"

Mail.Body = Body


On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description & "<br>"
End If

SET Mail = Nothing

End Function

------------------------------------

El punto es que crees el body primero ya que así lo puedes hacer tan dinámico como quieras y despues lo pasas al objeto...
  #5 (permalink)  
Antiguo 30/08/2004, 22:17
Avatar de AJVEvoluzione  
Fecha de Ingreso: agosto-2004
Ubicación: Buenos Aires
Mensajes: 195
Antigüedad: 19 años, 9 meses
Puntos: 1
MILLLLLLLLLLLLL gracias! me sirvio mucho !
gracias!
gracias!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:44.