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

Error al mandar correo

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-06-23 17:37:57 -07:00
parent e8ceae054c
commit 0c5fcc1e83
1 changed files with 33 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -3344,7 +3344,7 @@ Partial Class Bancos_PagoElectronicoGrupos
End Sub End Sub
Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte()) Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())
Try
Dim Mail As New ClsSisMail() Dim Mail As New ClsSisMail()
Para = If(Para IsNot Nothing, Para, "") Para = If(Para IsNot Nothing, Para, "")
Asunto = If(Asunto IsNot Nothing, Asunto, "") Asunto = If(Asunto IsNot Nothing, Asunto, "")
@@ -3377,6 +3377,10 @@ Partial Class Bancos_PagoElectronicoGrupos
objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
objIE.Dispose() objIE.Dispose()
End If End If
Catch ex As Exception
OnError("Ocurrio un error al enviar el correo", ex)
End Try
End Sub End Sub