Ashx/SIGWeb.ashx

@@ -111,6 +111,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     context.Response.Write(ValidaCURP(context.Request("Curp").ToString()))
                 Case "sendMail"
                     context.Response.Write(sendMail(context))
+                Case "sendMailEMD"
+                    context.Response.Write(sendMailEMD(context))
                 Case "sendMailLPM"
                     context.Response.Write(sendMailLPM(context))
                 Case "getSATColomias"
@@ -169,6 +171,41 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
         Return retorno
     End Function
+
+    Private Function sendMailEMD(context As HttpContext) As String
+        Dim retorno As String = "true"
+        Dim nombre As String = ""
+        Dim correo As String = ""
+        Dim Phone As String = ""
+        Dim cuerpo As String = ""
+        Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() +
+        If Not IsNothing(obj) Then
+            nombre = obj.ToString()
+        End If
+        obj = context.Request("Correo")
+        If Not IsNothing(obj) Then
+            correo = obj.ToString()
+        End If
+        obj = context.Request("Phone")
+        If Not IsNothing(obj) Then
+            Phone = obj.ToString()
+        End If
+        obj = context.Request("Cuerpo")
+        If Not IsNothing(obj) Then
+            cuerpo = obj.ToString().Replace("< ", "<")
+        End If
+        Dim Body As String = String.Format("Solicitó : {0}<br/>Correo : {1}<br/>Telefono : {2}<br/><br/>{3}", nombre, correo, Phone, cuerpo)
+        Dim para As String = "paola@adssistemas.mx;caudillo.90d@gmail.com;"
+        'para = ""
+        Dim Mail As New ClsSisMail()
+        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
+            retorno = "true"
+        Else
+            retorno = "false"
+        End If
+        Return retorno
+    End Function
+
     Private Function sendMail(context As HttpContext) As String
         Dim retorno As String = "true"
         Dim nombre As String = ""