Capcha and JMail

alby

If blnCAPTCHAcodeCorrect = True Then

Dim Jmail

Set JMail = Server.CreateObject("JMail.SMTPMail")

'Pongo a true para que no me haga una exepcion si hay un error
JMail.Silent = true

'Habilito el Log
JMail.Logging = true

' This is my local SMTP server
JMail.ServerAddress = "mail.midominio.com"

' This is me....
JMail.Sender = Request.Form("email")
JMail.Subject = Request.Form("subject")
JMail.SenderName = Request.Form("Nombre")

' Obtengo las Direcciones de Destino
Dim Direcciones, I
Direcciones = split(Request.Form("recipient"), ";")
For I = LBound(Direcciones) To UBound(Direcciones)
  JMail.AddRecipient(CStr(Direcciones(I)))
Next
JMail.AddRecipientBCC("xxx@xxx.com")

JMail.Priority = 3

'Priority 1 = Alta
'Priority 3 = Normal
'Priority 5 = Baja

JMail.body = Request.Form("Mensaje") & vbcrlf
JMail.appendtext("Nombre: " & Request.Form("Nombre") & vbcrlf )
JMail.appendtext("Email: " & Request.Form("email") & vbcrlf )
JMail.appendtext("Telefono: " & Request.Form("Telefono") & vbcrlf )
JMail.appendtext("Comentarios: " & Request.Form("Comentarios") & vbcrlf )
JMail.appendtext(vbcrlf)

'Response.Write(JMail.ServerAddress)

' Enviar...

  JMail.Execute
 
  Response.Write("El mensaje ha sido enviado, le contestaremos a la brevedad")
Else

 Response.Write("ERROR! Usted no ha escrito el código correctamente, por favor vuelva hacia atrás y escriba un nuevo código, si no lo ve claramente haga click sobre mostrar nuevo código")
End If

%>