Quiero mandar una mail con un body de varios renglones pero no se como poner el codigo...
Mail.Body = "este es el primero"
Mail.Body= " este es el segundo"
Algo asi
Gracias
| ||||
Muchas gracias..... Pero es algo diferente lo que quiero..... lo que pasa es que trate de hacerlo muy simple, realmente lo que quiero es lo siguiente: Hice una tienda con sivertienda..... y el codigo que uasa para enviar el pedido es de PersitsMailSender.... y yo lo quiero hacer con Cdonts..... Como puedo cambiar el codigo.... Este es el codigo que sale: <% Dim Producto, Cantidad, ProductoTotal, Total, Mail, index Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "" Mail.name= "[email protected]" Mail.From = "Cibertienda" Mail.AddAddress "[email protected]", "Cibertienda" Mail.Subject = "Cibertienda - Orden de Compra" Mail.Body = "Cibertienda v1.0 - Orden de Compra" For index = 1 to Request.Form.Count Producto = Request.Form("Producto" & index) Cantidad = Request.Form("Cantidad" & index) ProductoTotal = Request.Form("ProductoTotal" & index) Mail.Body = Mail.Body & "Producto" & index & ": " & Producto & VbCrLf Mail.Body = Mail.Body & "Cantidad" & index & ": " & Cantidad & VbCrLf Mail.Body = Mail.Body & "ProductoTotal" & index & ": " & ProductoTotal & VbCrLf & VbCrLf next Total = Request.Form("Total") Mail.Body = Mail.Body & "Total: " & Total & VbCrLf & VbCrLf Mail.Body = Mail.Body & "Datos Personales:" & VbCrLf Mail.Body = Mail.Body & "Nombre " & Request.Form("nombre") & VbCrLf Mail.Send Set mail = Nothing If Err <> 0 Then 'Response.Write Err.Description End If %> NOTA... el software de sivertienda tiene para generar este codigo para CDonts.... pero no me funciona GRACIAS
__________________ memosilva.com |