é isso mesmo que eu quero Silvio... só que não funcionou.
coloquei o código no evento ao clicar d um botão de comando.
quando eu clico, abre uma janela de diálogo "Enviar" com várias opções de formatos para eu selecionar.
já selecionei todas (e essa janela abre para cada registro) sem resultados.
depois, abre uma mensagem do VBA dizendo que o destinatário da mensagem não foi reconhecido. Não gera o pdf e mail...
fiz num banco zerado para teste e utilizei os mesmos nomes.
na tabela, utilizei as nomenclaturas do codigo, ou seja, o campo onde está informado o email destino foi nomeado "emaildestino" e assim por diante...
segue o código:
Private Sub processarPDF_Click()
'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
Início
L34NDR0 18/6/2015, 15:44
