[Resolvido]Gerar PDF e Enviar por Email

Bom dia a todos..

sera que alguem pode me dar uma dica...

gero um relatorio que quebro por codigo de cliente...

preciso salvar cada quebra ( paginas referente a cada cliente ) em pdf e envia-lo como anexo de acordo com o e-mail ( outlook) de cada cliente.

e quando enviar preciso que grave em uma tabelas a data de envio de cada um

por favor me deem algumas dicas..

muito obrigado

spccastilho@gmail.com

Boa tarde!

segue abaixo um código que uso aqui na empresa para gerar os relatorios de varios fornecedores diferentes, ou seja cada fornecedor em uma pagina. No seu caso é Cliente.

Código:


Private Sub processarPDF()
'descobre quantos fornecedores tem na tbl fornec_pdf
Dim linha
Dim strSql2 As String
Dim rst2 As DAO.Recordset
strSql2 = "SELECT count(tbl_financeiro_devolucoes_lista_fornec_pdf.id_fornec) FROM tbl_financeiro_devolucoes_lista_fornec_pdf"
Set rst2 = CurrentDb.OpenRecordset(strSql2)
linha = rst2(0) ' marcador de registro

Dim contar 'iniciar um marco 0 para entrar no loop, enquanto for menor que linha o contar não sai do loop
Dim strSql As String
Dim rst As DAO.Recordset
strSql = "SELECT tbl_financeiro_devolucoes_lista_fornec_pdf.id_fornec FROM tbl_financeiro_devolucoes_lista_fornec_pdf"
Set rst = CurrentDb.OpenRecordset(strSql)
contar = 0 ' iniciar o loop
    Do While contar < linha
    'inicia a geração dos arquivos em pdf
    Txt_Fornec = rst(0)
    strPlanilha = "C:\FINANCEIRO\DEVOLUCAO\" & "NOTAS-DEV" & rst(0) & ".pdf"
    DoCmd.OutputTo acOutputReport, "con_financeiro_painel_Rel_Dev", acFormatPDF, strPlanilha
    rst.MoveNext ' pula para proximo fornec
    contar = contar + 1 ' adiciona proximo fornec
    Loop
    'fim a geração dos arquivos em pdf
rst2.Close
rst.Close  'fecha as tabelas
Shell "explorer /select," & strPlanilha & "", vbNormalFocus 'aqui ele abre o diretorio com os arquivos gerados
'fim do codigo
End Sub




se preferir codigo abaixo envia direto em pdf por e-mail.

Código:



'descobre quantos fornecedores tem na tbl fornec_pdf
Dim linha
Dim strSql2 As String
Dim rst2 As DAO.Recordset
strSql2 = "SELECT count(tbl_financeiro_devolucoes_lista_fornec_pdf.id_fornec) FROM tbl_financeiro_devolucoes_lista_fornec_pdf"
Set rst2 = CurrentDb.OpenRecordset(strSql2)
linha = rst2(0) ' marcador de registro

Dim contar 'iniciar um marco 0 para entrar no loop, enquanto for menor que linha o contar não sai do loop
Dim strSql As String
Dim rst As DAO.Recordset
strSql = "SELECT tbl_financeiro_devolucoes_lista_fornec_pdf.id_fornec FROM tbl_financeiro_devolucoes_lista_fornec_pdf"
Set rst = CurrentDb.OpenRecordset(strSql)
contar = 0 ' iniciar o loop
    Do While contar < linha
    'inicia a geração dos arquivos em pdf
    Txt_Fornec = rst(0)
    DoCmd.SendObject acSendReport, "seurelatorio", acFormatPDF, "emaildestino", "seuemail", "", "assunto", "mensagem", 0
    rst.MoveNext ' pula para proximo fornec
    contar = contar + 1 ' adiciona proximo fornec
    Loop
    'fim a geração dos arquivos em pdf
rst2.Close
rst.Close  'fecha as tabelas
Shell "explorer /select," & strPlanilha & "", vbNormalFocus 'aqui ele abre o diretorio com os arquivos gerados
'fim do codigo
End Sub



Espero ter ajudado.

Sucesso!

Muito Obrigado , Danilo..

ajudou e muito.. abraços

Olá Danilo

Pesquisando no fórum, encontrei esse tópico e como nosso amigo
não deu ele como resolvido, aproveito para perguntar:

Você escreveu:

"se preferir código abaixo envia direto em pdf por e-mail."

Mas repetiu o  mesmo código na segunda caixa.

E o código que envia o PDF por email?

[ ]'s

Olá meu amigo bom dia!

desculpe eu não destaquei no codigo onde inicia o envio por e-mail mas segue abaixo:

Código:


DoCmd.SendObject acSendReport, "seurelatorio", acFormatPDF, "emaildestino", "seuemail", "", "assunto", "mensagem", 0


Olá Danilo

Desculpas peço, eu , devo estar dormindo e não atentei para essa linha.

Obrigado pela rapidez da resposta.

Vou dar como resolvido esse tópico, já que até agora o autor dele não se manifestou.

[ ]'s

Danilo bom dia . estou tentando fazer a algumas semana, achei o seu , mas não consigo adaptar está dando errro um atars do outro , queria que so você para 1 pessoa so. ou se preferir colocar mas , poderia me enviar esse arquivo por gentileza?