diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb
index 8af718431..93b917727 100644
--- a/RH/MiPerfil.aspx.vb
+++ b/RH/MiPerfil.aspx.vb
@@ -1119,11 +1119,12 @@ Partial Class RH_MiPerfil
                     continuar = False
                 End If
             End If
+            Dim CorreoSupervisor As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, DdlSupervisor.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
             objRH.Dispose()
             If continuar Then
                 CargaVacaciones()
                 CargaVacacionesResumenPeriodoActual()
-                VacacionesMandaCorreoSupervisor("Vacaciones " & UsuarioActual.Nombre, "antonio.gonzalez@adssistemas.mx", VacSupervisorNombre, NombreCompleto, fInicio, fFin, "vacaciones")
+                VacacionesMandaCorreoSupervisor("Vacaciones " & UsuarioActual.Nombre, CorreoSupervisor, VacSupervisorNombre, NombreCompleto, fInicio, fFin, "vacaciones")
                 RegistraScript("$('#ModalAddVacaciones').modal('hide');")
             End If
         Else
@@ -1208,7 +1209,8 @@ Partial Class RH_MiPerfil
             Else
                 Alert("Permiso agregado Actualizado correctamente")
             End If
-            VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, "antonio.gonzalez@adssistemas.mx", VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text, TxtFechaFinPer.Text, "permiso")
+            Dim CorreoSupervisor As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, DdlSupervisor.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
+            VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, CorreoSupervisor, VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text, TxtFechaFinPer.Text, "permiso")
             RegistraScript("$('#DvPermisos').modal('hide');")
 
         End If