diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb
index cd917fcd3..52277aec9 100644
--- a/PortalCliente/PortalCliente.aspx.vb
+++ b/PortalCliente/PortalCliente.aspx.vb
@@ -1974,7 +1974,7 @@ Partial Class Ventas_PortalCliente
     Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, EnviarFactura As Boolean, ObjFactura As Modelos.Factura)
 
         Dim ObjMail As New ClsSisMail()
-        Dim ObjVentas As New ClsVentas
+        Dim ObjVentas As New ClsVentas(UsuarioActual:=UsuarioActual)
 
         Dim ArchivoPDF As String = ""
         Dim ArchivoPDFBytes As Byte() = Nothing