Envio de correo en un hilo aparte

asmx/WSApp.asmx

@@ -748,6 +748,8 @@ Public Class WSApp
                                             Exit For
                                         End If
                                     End If
+                                ElseIf CveTipoPS = 1 Then
+                                    Continuar = True
                                 End If
                             Else
                                 Continuar = False
@@ -773,22 +775,15 @@ Public Class WSApp
                             'Dim Correo As String = "japmx95@gmail.com"
                             Dim SerieFolio As String = Factura.SerieFolio
                             Dim DireccionEnvio As String = ""
-                            Dim ObjClientes As New ClsClientes
+                            Using ObjClientes As New ClsClientes
                                 If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
                                     If ObjClientes.DtResultados.Rows.Count > 0 Then
                                         DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
                                     End If
                                 End If
-                            ObjClientes.Dispose()
-                            Dim Body = GeneraCorreoRemision(Retorno.CveVenta, SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Observaciones, DateTime.Now)
+                            End Using
                             Factura.Dispose()
-                            Try
-                                Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", SerieFolio)
-                                Dim Mail As New ClsSisMail()
-                                Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, Body)
-                            Catch ex As Exception
-                                OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
-                            End Try
+                            EnviarCorreo(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)
                         Else
                             Factura.Dispose()
                         End If
@@ -807,6 +802,25 @@ Public Class WSApp
 
         Return JsonConvert.SerializeObject(Retorno)
     End Function
+    Private Sub EnviarCorreo(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
+        Try
+            Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual))
+            Hilo.Start()
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar el correo de facturación", ex)
+        End Try
+    End Sub
+    Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
+        Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now)
+        Factura.Dispose()
+        Try
+            Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio)
+            Dim Mail As New ClsSisMail()
+            Mail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Body)
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
+        End Try
+    End Sub
     <WebMethod()>
     Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String
         Dim Retorno = New Modelos.Factura.MMensajeFactura()