MIra, yo tengo este codigo que anda PERFECTO, el formulario me llega al mail, anda todo bien.
Código:
Dim strTo, strSubject, strBody
Dim objCDOMail
strTo = "[email protected]"
strSubject = "Contacto IPSE Salud Mental"
strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Email: " & Request.Form("email")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & Request.Form("mensaje")
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("email")
objCDOMail.To = "[email protected]"
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
Ahora, lo que yo quiero hize es añadir mas cosas, es decir, agregar "direccion", "codigo del producto", etc. como veras en este codigo (que es el que no anda)
Código:
Dim strTo, strSubject, strBody
Dim objCDOMail
strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"
strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = strSubject
objMessage.Sender = "[email protected]"
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
set objmessage=nothing
No se que es lo que pasa!! lo unico que hize fue agregar campos mas para el formulario...
Los codigos son iguales, a ecepcion que agregue mas campos, se entiende?
Por que el primero anda PERFECTO y el segundo no?
Muchas gracias!!!