AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-cambio de correo a adssistemas

Browse Source
This commit is contained in:
rmolina
2019-12-13 10:15:11 -07:00
parent d10e9bbba3
commit 509ffa70de
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AIMMGM/PopRegistro.aspx.vb
View File

@@ -457,9 +457,9 @@ Partial Class AIMMGM_Registro
Venta.Commit()
Alert("<br>Su Registro se ha realizado correctamente.<br><br> Se le estará enviando al correo proporcionado la información necesaria para el acceso de su portal.<br><br>", TipoMensaje.MsgInformacion, "tb_remove();")
'EnviaNotificacion(TmpDT, "nunezothon@yahoo.com.mx") '"rene.molina@adsistemas.mx") '
If TieneExcursion Then
EnviaNotificacion(TmpDT, "ppadilla@imdex-cascabel.com") '"rene.molina@adsistemas.mx") '
EnviaNotificacion(TmpDT, "ppadilla@imdex-cascabel.com")
End If
'ActivaPortal(CveCliente, TxtEmail.Text.Trim) '"rene.molina@adsistemas.mx") '
'envio de correo a la persona que controla el area, Aristeo,.. .

2
App_Code/modExtensiones.vb
View File

@@ -2955,7 +2955,7 @@ Namespace Extensiones
Dim ObjEmp As New ClsSisEmpresas
If ObjEmp.GetEmpresas(1, "-1", "-1", "-1", "-1") Then
If ObjMail.SendMail(ObjEmp.Empresa, "rene.molina@adsistemas.mx", "Error del Sistema", Mensaje) Then
If ObjMail.SendMail(ObjEmp.Empresa, "rene.molina@adssistemas.mx", "Error del Sistema", Mensaje) Then
End If