MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 2015, 17: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
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  rubenscouto em Sex 16 Jan 2015, 09:14

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

      Data/hora atual: Qua 13 Dez 2017, 18:44