none
Enviar múltiples ficheros en un correo a través del Outlook RRS feed

  • Pregunta

  • Hola, actualmente estoy utilizando este código para enviar tres correos con un sólo fichero, pero me interesa poder enviar un correo con esos tres ficheros, como lo hago:

    Option Compare Database

    Public Sub EmailMasivo(NombreInforme, destinatario, Asunto, Optional Cuerpo, Optional CC, Optional CCO)
    DoCmd.SendObject acSendReport, NombreInforme, "PDF", destinatario, CC, CCO, Asunto, Cuerpo, False
    End Sub

    Private Sub Comando31_Click()
    Dim NombreInforme As String
    Dim destinatario As String
    Dim Asunto As String
    Dim Cuerpo As String
    'Rendimientos_Resumen
    NombreInforme = "RENDIMIENTOS_resumen"
    destinatario = "xxxxx@xxxx.ES"
    CC = ""
    CC0 = ""
    Asunto = "RESUMEN DE RENDIMIENTOS WITRON"
    Cuerpo = ""
    EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
    'Incidencias_Resumen
    NombreInforme = "Incidencias_Resumen"
    destinatario = "xxxx@xxxx.ES"
    CC = ""
    CC0 = ""
    Asunto = "RESUMEN DE INCIDENCIAS WITRON"
    Cuerpo = ""
    EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
    'Combis_Resumen
    NombreInforme = "Combi_Resumen"
    destinatario = "xxxxx@xxxx.ES"
    CC = ""
    CC0 = ""
    Asunto = "Resumen de Roturas y Caidas de Productos"
    Cuerpo = ""
    EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC
    End Sub

    Gracias de antemano.

    • Cambiado Joyce_AC martes, 11 de julio de 2017 17:58
    martes, 11 de julio de 2017 8:27