** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Error al enviar PDF desde informe
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoError al enviar PDF desde informe

 Responder Responder
Autor
Mensaje
pascual14 Ver desplegable
Colaborador
Colaborador


Unido: 30/Junio/2014
Localización: Soria
Estado: Sin conexión
Puntos: 570
Enlace directo a este mensaje Tema: Error al enviar PDF desde informe
    Enviado: 05/Agosto/2024 a las 20:00
Hola amigos, a ver si alguien le ha pasado lo mismo que a mi. tengo access 2019 y una aplicación donde visualizamos las facturas y pulsando el botón de enviar por correo electrónico de los reports access que tiene access en su ribbon enviamos por pdf y por mail una factura. Funcionaba perfectamente hasta hace un mes que de repente dejó de funcionar. Ahora al pulsar el botón no hace nada, directamente se bloquea access y de vez en cuando sale un error de outlook (aplicación de escritorio) que dice que no se ha podido abrir. ¿alguien sabe que se peude hacer aquí? he reinstalado office pero sigue igual. Gracias por la ayuda. 
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 14428
Enlace directo a este mensaje Enviado: 05/Agosto/2024 a las 20:12
¿El nuevo Outlook 'web' del office 365?

Si es este, es incompatible con VBA, tendrías que reinstalar el Outlook clásico o utilizar CDO.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
dokk Ver desplegable
Asiduo
Asiduo


Unido: 15/Mayo/2020
Localización: Hendaye
Estado: Sin conexión
Puntos: 201
Enlace directo a este mensaje Enviado: 06/Agosto/2024 a las 07:57
Por si le sirve a alguien.

Tengo un par de equipos que usan VBA en Outlook para archivar y procesar archivos Excel que llegan periódicamente y para evitar tentaciones de que alguien toque el slider que dice "Prueba el nuevo Outlook", lo he quitado de la siguiente forma:

En el editor de registro (Windows+R → regedit), ir a HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Options\General
Crear una entrada DWORD llamada HideNewOutlookToggle
Asignar el valor 1 a la entrada.
Abrir y cerrar Outlook.


Albert Hostein
Aprendiendo cayendo
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 14428
Enlace directo a este mensaje Enviado: 06/Agosto/2024 a las 08:48
Gracias dokk, siempre es bueno saberlo.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
pascual14 Ver desplegable
Colaborador
Colaborador


Unido: 30/Junio/2014
Localización: Soria
Estado: Sin conexión
Puntos: 570
Enlace directo a este mensaje Enviado: 06/Agosto/2024 a las 12:40
Hola, gracias por la ayuda. Es una cosa muy rara. ya había quitado el nuevo outlook y el antivirus está bien, es el nod32. La cosa es que a veces funciona pero la mayoría no. He actualizado a office 2021 y hace lo mismo, no llega a abrir el outlook, sale un mensaje en la barra de tareas diciendo que otra aplicación está usando outlook y se bloquea. ya no sé que hacerle.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 14428
Enlace directo a este mensaje Enviado: 06/Agosto/2024 a las 12:45
¿Has limpiado primero el office antes de instalar el nuevo? hay una herramienta de Microsoft para ello.

Antes de hacer el proceso ¿compruebas que no haya ninguna instancia de Outlook abierta? ... mira segundo plano con el administrador de tareas.



Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
joanka Ver desplegable
Habitual
Habitual


Unido: 07/Abril/2021
Localización: Lleida
Estado: Sin conexión
Puntos: 144
Enlace directo a este mensaje Enviado: 06/Agosto/2024 a las 13:57
Hola,

Para versiones mas nuevas de office tuve que cambiar el codigo para enviar mails con adjuntos:

Crea un módulo:

Option Compare Database

Private Declare PtrSafe Function FindWindow Lib "user32" _
                Alias "FindWindowA" _
                (ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long

Function IsAppOpen(ClassName As String) As Boolean
    If FindWindow(ClassName, vbNullString) Then
        IsAppOpen = True
    End If
End Function

Luego en el formulario:

Dim Filepath As String
Dim oOutlook As Object
Dim oEmailItem As Object

On Error Resume Next

DoCmd.Hourglass True

err.Clear

Filepath = "C:\archivo.pdf" 'Ubicación donde tengas el adjunto a enviar
        
        If oOutlook Is Nothing Then
        Set oOutlook = GetObject(, "Outlook.Application")
        Set oOutlook = CreateObject("Outlook.Application")  'New Outlook.Application
        Set oEmailItem = oOutlook.CreateItem(olMailItem)
        End If
        
If IsAppOpen("rctrl_renwnd32") Then
              
        With oEmailItem
            .To = "email@email"
            .cc = "email2@email"
            .Subject = "Envío de archivo"
            .Attachments.Add Filepath           
            .display
            
        End With
 DoCmd.Hourglass False 

        Set oEmailItem = Nothing
        Set oOutlook = Nothing

Else

Shell "Outlook", vbNormalNoFocus

With oEmailItem
            .To = "email@email"
            .cc = "email2@email2"
            .Subject = "Envío de archivo"
            .Attachments.Add Filepath           
            .display
            
        End With

 DoCmd.Hourglass False
 

        Set oEmailItem = Nothing
        Set oOutlook = Nothing

End If

End Sub
Arriba
pascual14 Ver desplegable
Colaborador
Colaborador


Unido: 30/Junio/2014
Localización: Soria
Estado: Sin conexión
Puntos: 570
Enlace directo a este mensaje Enviado: 09/Agosto/2024 a las 11:56
Hola, al final he tenido que desarrollar el proceso de envio pro CDO porque algo había raro en el enlace entre access y outlook a pesar que habia quitado el nuevo algo se habrá quedado...no se...
Alguien envia correos con datos del servidor de hotmail.com y que funcione? me refiero a servidor SMTP, puerto, etc. Gracias 
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2095
Enlace directo a este mensaje Enviado: 10/Agosto/2024 a las 17:54
Hola,
Te deja mandar los correos por CDO, yo lo utilizaba y algo paso con gmail y tuve que desistir, no me importo porque eran tres facturas al mes pero el caso es que directo era mejor y como más guay.


Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
pascual14 Ver desplegable
Colaborador
Colaborador


Unido: 30/Junio/2014
Localización: Soria
Estado: Sin conexión
Puntos: 570
Enlace directo a este mensaje Enviado: 11/Agosto/2024 a las 10:16
Hola Ximo, directo a que te refieres? con CDO?
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2095
Enlace directo a este mensaje Enviado: 16/Agosto/2024 a las 18:15
Hola,
pues mediante un botón de comando creaba el pdf de la factura y lo envía al remitente (previamente tengo en un campo el correo del cliente obviamente) pero desafortunadamente gmail hizo cambios y esto ya no me era posible, la verdad para tres facturas no investigue demasiado.

saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
pascual14 Ver desplegable
Colaborador
Colaborador


Unido: 30/Junio/2014
Localización: Soria
Estado: Sin conexión
Puntos: 570
Enlace directo a este mensaje Enviado: 29/Agosto/2024 a las 14:24
gracias, podeis cerrar el hilo por favor. 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable