|
Responder
|
| Autor | |
pascual14
Colaborador
Unido: 30/Junio/2014 Localización: Soria Estado: Sin conexión Puntos: 570 |
Tema: Error al enviar PDF desde informeEnviado: 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.
|
|
![]() |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador
Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428 |
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.
|
|
![]() |
|
dokk
Asiduo
Unido: 15/Mayo/2020 Localización: Hendaye Estado: Sin conexión Puntos: 201 |
Enviado: 06/Agosto/2024 a las 07:57 |
|
Por si le sirve a alguien. 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 |
|
![]() |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador
Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428 |
Enviado: 06/Agosto/2024 a las 08:48 |
|
Gracias dokk, siempre es bueno saberlo.
|
|
![]() |
|
pascual14
Colaborador
Unido: 30/Junio/2014 Localización: Soria Estado: Sin conexión Puntos: 570 |
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.
|
|
![]() |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador
Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428 |
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. |
|
![]() |
|
joanka
Habitual
Unido: 07/Abril/2021 Localización: Lleida Estado: Sin conexión Puntos: 144 |
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
|
|
![]() |
|
pascual14
Colaborador
Unido: 30/Junio/2014 Localización: Soria Estado: Sin conexión Puntos: 570 |
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
|
|
![]() |
|
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador
Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2095 |
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 |
|
![]() |
|
pascual14
Colaborador
Unido: 30/Junio/2014 Localización: Soria Estado: Sin conexión Puntos: 570 |
Enviado: 11/Agosto/2024 a las 10:16 |
|
Hola Ximo, directo a que te refieres? con CDO?
|
|
![]() |
|
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador
Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2095 |
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 |
|
![]() |
|
pascual14
Colaborador
Unido: 30/Junio/2014 Localización: Soria Estado: Sin conexión Puntos: 570 |
Enviado: 29/Agosto/2024 a las 14:24 |
|
gracias, podeis cerrar el hilo por favor.
|
|
![]() |
|
Responder
|
|
|
Tweet
|
| Ir al foro | Permisos de foro ![]() Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |