Error al mandar correo

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -3344,7 +3344,7 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
     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()
             Para = If(Para IsNot Nothing, Para, "")
             Asunto = If(Asunto IsNot Nothing, Asunto, "")
@@ -3377,6 +3377,10 @@ Partial Class Bancos_PagoElectronicoGrupos
                 objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
                 objIE.Dispose()
             End If
+        Catch ex As Exception
+            OnError("Ocurrio un error al enviar el correo", ex)
+        End Try
+
     End Sub