<% ' Envio de correo usando ASPEmail en formato Texto. ' Operaciones Triara - JCMN Dim message br = vbCrLf 'Salto de Linea If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") 'Enter valid SMTP host ==> smtp.triara.com, No mover IP Mail.Host = "200.57.129.7" 'Authentification (No usar la de webmaster por seguridad) Mail.Username = "rmosqueira@bemonitor.com.mx" Mail.Password = "rm430822" Mail.From = "rmosqueira@bemonitor.com.mx" ' Mail.Host = "200.57.129.3" 'Authentification (No usar la de webmaster por seguridad) ' Mail.Username = "rmosqueira@bemonitor.com.mx" ' Mail.Password = "rm430822" ' Mail.From = "rmosqueira@bemonitor.com.mx" Mail.FromName = "Nueva Funcionalidad" ' Mail.AddAddress Request("To") 'Viene de la forma HTML 'Se pude enviar a N destinatarios Mail.AddAddress "rmosqueira@bemonitor.com.mx" ' Mail.AddAddress "nautilo@besoft.com.mx" ' Mail.AddAddress "franco@besoft.com.mx" ' message subject Mail.Subject = "Mejoras a Bemonitor" 'message body 'Creamos la variable message con todos los datos message = "-------------------------------------------------------------------------------------------------------------------------" + br message = message + "Mejoras y nueva funcionalidad a Bemonitor" message = message + "-------------------------------------------------------------------------------------------------------------------------" + br + br message = message + "Fecha: " + FormatDateTime(Date) + br + br message = message + "Email: " + Request("to") + br + br message = message + "Nombre: " + Request("Nombre") + br + br message = message + "Requerimiento 1: " + Request("Req1") + br + br message = message + "Requerimiento 2: " + Request("Req2") + br + br message = message + "Requerimiento 3: " + Request("Req3") + br + br message = message + "Requerimiento 4: " + Request("Req4") + br + br Mail.Body = message On Error Resume Next Mail.Send ' If Err <> 0 Then ' Response.Write "Error encontrado: " & Err.Description ' Else ' Response.buffer=true Response.redirect "updateexpert.asp" ' End If End If %>

bemonitor

   ADMINISTRACION EQUIPOS   | TOOLS PARA WINDOWS   | SEGURIDAD PERIMETRAL   | RESPALDOS
    BEMONITOR     UPDATEEXPERT     SPYWARE DOCTOR     GENIE BACKUP    BACKUP FOR WORKGROUPS     OPEN FILE MANAGER     DISKEEPER  
 
     
    Agradecemos el tiempo que nos brinda en darnos a conocer las mejoras o la nueva funcionalidad que seria bueno agregar a Bemonitor, tus comentarios serán tomados en cuenta para las nuevas versiones de la aplicación.
 
Nombre:  
 
 

Mejoras sugeridas:
(Por favor enumérelas en orden de importancia)

 
     
   
 
 

 

 
 

México D.F.
(55) 1042-5449

Monterrey:
(81) 8031-1187

 

Comentarios o Dudas

 Envíanos un mail