** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y Otros sistemas
  Mensajes nuevos Mensajes nuevos RSS - adjuntar y enviar diferentes pdf
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoadjuntar y enviar diferentes pdf

 Responder Responder
Autor
Mensaje
Vander Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 28/Enero/2016
Localización: barcelona
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: adjuntar y enviar diferentes pdf
    Enviado: 28/Enero/2016 a las 21:20
buenas , 
antes de nada agradecer todo lo que aportáis, he aprendido muchísimo  desde 0,con una web como esta da gusto.
Os explico lo que intento hacer  y a ver si me podéis aportar alguna solución.
tengo una base de datos en access en la cual están anotados los proveedores,  tengo puesto el nombre del proveedor  por un código numérico y en otro campo su email, gracias a uno ejemplo que mas abajo os detallo (lo saque de esta pagina Smile) conseguí enviar un email y adjuntar un archivo pdf, este archivo pdf es una factura.
el problema es que no se como hacer para enviar a cada proveedor la factura correspondiente, el nombre del proveedor y el nombre de la factura es el mismo código numérico, solo consigo enviarlos si manual mente cambio el nombre del archivo que tiene que enviar, os detallo los parámetros que estoy utilizando.
muchas gracias por vuestra ayuda.

Sub Mail_workbook_Outlook()
'Es necesario añadir la referencia Microsoft Outlook Library (herramientas/referencias)
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    With OutMail
        .To = "ejemplo@dominio.com"
        .CC = ""
        .BCC = ""
        .Subject = "Asunto del mensaje"
        .Body = "Este es el texto del mensaje"
        'Se pueden adjuntar ficheros
        .Attachments.Add ("C:\Mi_Fichero.pdf")
        .Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5026
Enlace directo a este mensaje Enviado: 28/Enero/2016 a las 22:53
Hola!

Aunque no envía archivos PDF sino informes por medio de "Snpshot" pero es muy fácil de adaptar.

Además puedes descargar el ejemplo.

http://www.proinf.net/permalink/enviar_informes_personalizados

Un Saludo.
Arriba
Vander Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 28/Enero/2016
Localización: barcelona
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Enviado: 29/Enero/2016 a las 19:50
muchas gracias mounir, la verdad es que tiene buena pinta , creo que con eso me podre apañarBig smileBeer.
un saludo
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 9227
Enlace directo a este mensaje Enviado: 01/Febrero/2016 a las 19:35
También puedes probar así:

Sub Mail_workbook_Outlook()
'Es necesario añadir la referencia Microsoft Outlook Library (herramientas/referencias)
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim i As Integer
    Dim aFileAttach As Variant
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    With OutMail
        .To = "ejemplo@dominio.com"
        .CC = ""
        .BCC = ""
        .Subject = "Asunto del mensaje"
        .Body = "Este es el texto del mensaje"
        'Se pueden adjuntar ficheros (uno o mas)
        'Pasamos los Archivos Adjuntos en la variable strAdjuntos y los separamos con ;
        strAdjuntos="C:\MiFichero.PDF;C:\OtroFichero.PDF"
        aFileAttach = Split(strAdjuntos,";")
        For i = 1 to ubound(aFileAttach)
           .Attachments.Add ("file://" & aFileAttach(i))
        Next
        .Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Con el método CDO yo le agrego "file://" y la ruta completa, no se si en outlook no lo necesite, si te falla quitaselo.

Saludos !
< style=":; left:-300px;" ="text" value="" id="focus_retriever" readonly="true">
OneDrive: http://sdrv.ms/Vk6eJd
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable