MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    código para gravação de relatório no corpo do e-mail

    Compartilhe

    Geraldo Costa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 24/06/2013

    código para gravação de relatório no corpo do e-mail

    Mensagem  Geraldo Costa em Qui 15 Jan - 15:00

    Através do código abaixo, envio o relatório: “Distribuição de ESERT4H” no corpo do e-mail,  alguém saberia como eu poderia adicionar mais um relatório no mesmo corpo do e-mail?

    DoCmd.OutputTo acOutputReport, "Distribuição de ESERT4H", "HTML(*.html)", "D:\Access\temp\Distribuição de ESERT4H.html", False, "", 0, acExportQualityScreen

    Dim Out As Outlook.Application
    Dim NS As Outlook.NameSpace
    Dim Folder As MAPIFolder
    Dim Mens As MailItem
    Dim objOutlookRec As Outlook.Recipient

    Set Out = New Outlook.Application
    Set NS = Out.GetNamespace("MAPI")
    Set Folder = NS.GetDefaultFolder(olFolderInbox)
    Set Mens = Folder.Items.Add

    With Mens

    Set objOutlookRec = .Recipients.Add("glcosta")

    .BCC = ""

    .Body = ""

    .BodyFormat = olFormatHTML
    .HTMLBody = fncLerArquivo("D:\Access\temp\Distribuição de ESERT4H.html")

    .Send

    End With

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 547
    Registrado : 02/10/2011

    Re: código para gravação de relatório no corpo do e-mail

    Mensagem  rubenscouto em Sex 16 Jan - 7:14

    tem como você postar parte do bd? estou precisando de um código deste tipo mesmo!!!1

      Data/hora atual: Sab 3 Dez - 17:40