** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Acces no envía a Outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAcces no envía a Outlook

 Responder Responder Página  12>
Autor
Mensaje
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 883
Enlace directo a este mensaje Tema: Acces no envía a Outlook
    Enviado: 12/Enero/2018 a las 18:11
Buenas.
Tengo el siguiente código para enviar por Outlook un formulario:

Function Outlook_CartaPDF()
DoCmd.SendObject acSendForm, "F_Carta", "PDFFormat(*.pdf)", "", "", "", "Fichero en PDF", "", True, ""
End Function

Mi Pc tiene Windows 7 y Office 2010, y funciona correctamente. Ahora en el portatil con Windows 10 y Office 2010, cuando ejecuto el código se ve como genera la carta, pero luego Access dice:

"Microsoft Access no puede enviar este mensaje de correo electrónico."

¿Dónde está el fallo?

Gracias.
Arriba
acilu55 Ver desplegable
Habitual
Habitual


Unido: 27/Septiembre/2011
Estado: Sin conexión
Puntos: 76
Enlace directo a este mensaje Enviado: 12/Enero/2018 a las 18:21
comprueba si te falta alguna referencia. Al cambiar de ordenadores suele ser frecuente
Gracias a todos de antemano
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 883
Enlace directo a este mensaje Enviado: 12/Enero/2018 a las 18:36
Gracias.
He comprobado tanto en Outlook como en Access del PC y portatil, y está todo igual. Si te refieres a eso.
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 883
Enlace directo a este mensaje Enviado: 12/Enero/2018 a las 19:04
Perdón he leido en una web algo como:

"Es necesario añadir la referencia Microsoft Outlook Library (herramientas/referencias)"

He ido a Visual Basic, Herramientas\Referencias, pero donde está esta librería?
Gracias.
Arriba
acilu55 Ver desplegable
Habitual
Habitual


Unido: 27/Septiembre/2011
Estado: Sin conexión
Puntos: 76
Enlace directo a este mensaje Enviado: 12/Enero/2018 a las 19:59
abre un módulo cualquiera y en el boton de herramientas apracen las referencias. mira si pone FALTA: en alguna
Gracias a todos de antemano
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1107
Enlace directo a este mensaje Enviado: 12/Enero/2018 a las 20:50
Depende de la version tendra un numero diferente, 2003 es 11 por ejemplo
https://www.datanumen.com/blogs/wp-content/uploads/2017/06/enable-outlook-object-in-excel.jpg




Editado por rokoko - 12/Enero/2018 a las 20:52
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 883
Enlace directo a este mensaje Enviado: 12/Enero/2018 a las 20:55
Gracias.
He abierto herramientas\referencias y en opción pone FALTA, además los dos ordenadores (pc y portátil) tienen las mismas librerías activas.
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1107
Enlace directo a este mensaje Enviado: 12/Enero/2018 a las 22:42
Y no te sale mas abajo?? cuando pone falta suele ser que has bajado a una version inferior de access, en algun momento a estado activa y al bajar de version no la reconoce, sin embargo al reves si.
Arriba
ceac Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 05/Octubre/2007
Localización: Colombia
Estado: Sin conexión
Puntos: 1418
Enlace directo a este mensaje Enviado: 13/Enero/2018 a las 00:18
Prueba Outlook primero independiente de Access.
Envía otra cosa que no sea el formulario.

Edito: Para descartar problemas en ambos.




Editado por ceac - 13/Enero/2018 a las 02:50
«Todos morimos, pero sólo unos pocos viven de verdad» Mel Gibson - Corazón Valiente

Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1107
Enlace directo a este mensaje Enviado: 13/Enero/2018 a las 10:20
Lo he probado y me ha funcionado, pero creo que algo tienes mal en el codigo tambien.

me funciona si

DoCmd.SendObject acSendForm, informePruebaEnvio, acFormatPDF, "xxxx@yahoo.es", "", "", "Asunto pdf", "Cuerpo mensaje", False, ""   'False o true, para enviar directo o se abra outlook

Lo que si me ocurre es que si tengo True el mensaje se queda en la bandeja de salida del outlook y hasta que no lo habres no lo envia.

Este es el codigo que utilizo yo en access 2003 y si que lo envia

'TIENE QUE ESTAR ACTIVADA LA REFERENCIA A MICROSOFT OUTLOOK 11 OBJECT LIBRARY si utilizas version 2003 de access

                'Dim OutApp As .Application                           'Esta linea tiene que estar anulada, no se porque pero funciona....
                 Dim OutMail As Outlook.MailItem
                 Set OutApp = CreateObject("Outlook.Application")
                 Set OutMail = OutApp.CreateItem(olMailItem)
                 With OutMail
                  .To = "xxxx@yahoo.es
                  .CC = ""
                  .BCC = ""
                  .Subject = "Asunto mensaje"
                  .Body = "Cuerpo del mensaje"
                  .Attachments.Add varAdjunto  'varAdjunto es la variable con la ruta del archivo
                  .Send    'Si lo activamos nos manda el mail automatico situaldolo en la bandeja salida
                  '.Display  ' nos hace que salga la aplicacion Outlook para editar mensaje

                  End With
                  Set OutMail = Nothing
                  Set OutApp = Nothing



Editado por rokoko - 13/Enero/2018 a las 10:21
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 883
Enlace directo a este mensaje Enviado: 13/Enero/2018 a las 10:33
Perdón arriba donde puse:
"He abierto herramientas\referencias y en opción pone FALTA", me equivoque, quería decir que no pone FALTA en ninguna opción.

Esa librería que indica rokoko (Microsoft Outlook 14.0 Object Library) también la activé pero nada.


Editado por Nomada - 13/Enero/2018 a las 10:35
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1107
Enlace directo a este mensaje Enviado: 13/Enero/2018 a las 10:48
Pues ni idea que puede pasar.....
Parece que el problema este en windows 10 por lo que dices, algun firewall??

Si en un pc te funciona y en otro no teniendo la libreria activa y outlook inslaladoy mismo access tiene que ser algo de windows 10...
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 883
Enlace directo a este mensaje Enviado: 13/Enero/2018 a las 12:14
rokoko he probado tu segundo código (el más extenso), y la línea:
Dim OutMail As Outlook.MailItem

me da error de compilación:
No se ha definido el tipo definido por el usuario

a qué se refiere?

Por cierto, la línea que dice ".Attachments.Add varAdjunto", me gustaría que mandara el formulario que tengo en pantalla


Editado por Nomada - 13/Enero/2018 a las 12:15
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1107
Enlace directo a este mensaje Enviado: 13/Enero/2018 a las 12:36
Ese error suele ser la referencia....pero entiedo que la tienes activa. Prueba a habilitar la primera línea de código.
Lo del formulario, digamos que con este código tendrías que guardar antes el formulario en PDF en una carpeta, access 2010 lo hace fácil también y luego adjuntarlo. Lo bueno de access 2010 es que te permite hacerlo todo con una sola línea de código, sigue investigando dónde está el fallo, porque tiene funcionar
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 883
Enlace directo a este mensaje Enviado: 13/Enero/2018 a las 13:23
Entonces con este segundo código, necesariamente tengo que generar el fichero PDF para luego mandarlo. No me convence mucho. Tendré que seguir con el primero, y averiguar cual es el problema real.

Gracias y un saludo.
Arriba
 Responder Responder Página  12>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable