diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 121b91ca6..ed4a6ef7b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16426,7 +16426,9 @@ Partial Class Ventas
 
             Try
                 ' BytesPdfCotizacion(CveVenta)
-                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, CorreoContactoCRM:=CorreoContactoCRM))
+                Dim capturedContext = HttpContext.Current
+                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, CorreoContactoCRM:=CorreoContactoCRM,
+                                                                         EsHilo:=True, Contexto:=capturedContext))
                 Hilo.Start()
             Catch ex As Exception
                 OnError("Ocurrió error al mandar Mail", ex)
@@ -16473,7 +16475,9 @@ Partial Class Ventas
 
             Try
                 ' BytesPdfCotizacion(CveVenta)
-                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto))
+                Dim capturedContext = HttpContext.Current
+                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto,
+                                                                         EsHilo:=True, Contexto:=capturedContext))
                 Hilo.Start()
             Catch ex As Exception
                 OnError("Ocurrió error al mandar Mail", ex)
@@ -21922,7 +21926,13 @@ Partial Class Ventas
 #End Region
 
 #Region "  MANDA CORREO  "
-    Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String, Optional CorreoContactoCRM As String = "")
+    Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String, Optional CorreoContactoCRM As String = "",
+                            Optional EsHilo As Boolean = False, Optional Contexto As HttpContext = Nothing)
+
+        If EsHilo Then
+            HttpContext.Current = Contexto
+            HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
+        End If
 
         Dim ObjMail As New ClsSisMail()
         Dim ResultadoMail As Integer = 0