[Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

Boa tarde tudo bem eu to terminando minha lista de preços e gostaria de adicionar essa função pra que fique 100%

o intuito dessa lista é ser enviada por email, eu deixei isso por ultimo justamente pq sabia que teria dificuldade....

eu vi esse codigo mas não sei o que pode ser não da certo..


Private Sub Comando697_Click()
Dim strArquivo  As String
Dim strLocal    As String
Dim objOut      As Object
Dim objmail     As Object
Dim objAnexo    As Object
Const olMailItem = 0
Const olByValue = 1


'---------------------------------------------
'Carregando a coleção do Outlook
'Similar ao abrir o Outlook
'---------------------------------------------
Set objOut = CreateObject("Outlook.application")

'------------------------------------------------------------
'Abrindo o formulário de email para inserir os itens de email
'Similar ao clicar no botão NOVO do Outlook
'------------------------------------------------------------
Set objmail = objOut.CreateItem(olMailItem)

'------------------------------------------------------------
'Abrindo a opção anexo
'Similar ao clicar no botão ANEXO do Outlook
'------------------------------------------------------------
Set objAnexo = objmail.Attachments

'---------------------------------------------------------------------------------
'Indico o nome do arquivo pdf e o local que será gravado
'O local que escolhi para gravar os arquivos de pdf gerados
'é na pasta enviados, aonde se encontra o aplicativo.
'Neste exemplo, gero os nomes dos arquivos, aproveitando o número exclusivo
'do cliente.  Então os arquivos vão ficar com o aspecto: rlt1.pdf, rlt2.pdf, ...
'É claro que vc poderá gerar o nome que achar mais conveniente.
'---------------------------------------------------------------------------------
strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo

'Salvando alterações no registro
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord

'----------------------------------------------------------------------------
'Abre o relatório filtrado e oculto de acordo com o cliente selecionado.
'----------------------------------------------------------------------------
DoCmd.OpenReport "Oficio Normal1", acViewPreview, , "[001] = " & [001], acHidden

'----------------------------------------------------------------------------------------
'gero o pdf do relatório através do comando outputto.
'o mecanismo do Access reconhece que o relatório solicitado pelo outputto já está aberto
'e então o outputto usará o relatório já aberto e filtrado.
'-----------------------------------------------------------------------------------------
DoCmd.OutputTo acOutputReport, "Oficio Normal1", acFormatPDF, strLocal
Dim numCop As Integer
  numCop = InputBox("Informe a quantidade de cópias: ", "IMPRIMIR") 'Valor este que pode ser obtido por outro meios
  DoCmd.PrintOut acPrintAll, , , acHigh, numCop 'Linha simplificada para a impressão

'-------------------------------------------
'fecha o relatório clientes que está oculto
'-------------------------------------------
DoCmd.Close acReport, "Oficio Normal1"

'--------------------------------------------------------
'adiciona o arquivo pdf no anexo
'-------------------------------------------------------
objAnexo.Add strLocal, olByValue, 1

'-----------------------------------------------------------------
'Mostra a tela de sáida de email que abrimos
'-----------------------------------------------------------------
objmail.Display


'-------------------------------------------------------
'Tudo já foi entregue ao outlook, então podemos esvaziar
'a memoria do computador usada pelas variáveis
'-------------------------------------------------------
Set objAnexo = Nothing
Set objmail = Nothing
Set objOut = Nothing
End Sub

Caro Maia Filho!

O Próprio Access (bem como todos os produtos Microsoft); tem essa opção.  

Mas para o usuário final, é importante, sim deixar o mais simples possível.  

Fiz dois exemplos para te ajudar a caminhar nesse mundão do Access!!!  

Peço-te, por favor, sem jamais eu faltar com respeito à minha colocação, junto a Você: "Observe os relacionamentos entre as Tabelas e as Cardinalidades".    

Aqui no Fórum temos MESTRES       que cederam EXCELENTES      conteúdos a esse respeito.            



Nosso Forte e cordial abraço,
Guilherme Pereira

bom dia tudo bem ? não é isso que queria fazer, eu gostaria mesmo é de apertar em um botão e simplesmente ele enviar para o anexo do Outlook, pra pessoa que está gerando essa lista não ter tanto trabalho de salvar e depois anexar pra enviar ....

Caro Mizael!!  

Por favor, veja a regra que foi utilizada na tabela Cliente; seguindo o modelo, pode usar para quaisquer formulários!



Meu forte e fraterno abraço!
Guilherme Pereira

amado eu consegui fazer, porém não consigo colocar Email para quem está enviando e nem o assunto

deveria ser algo do DoCmd.SendObject mas não consigo conciliar um com o outro


da uma olhadinha...
veja se consegue quebrar essa pra mim....

Caro Mizael!


Estamos puxando cordas para lados opostos!


Por favor, veja que a Equipe do Fórum se uniu para resolver o problema apresentado; e na mensagem anterior, pedimos a observância no tratamento dos dados; infelizmente, estes se encontram dispersos e a Regra de Negócio (Relacionamento das tabelas) não foi feita. (

Por favor, canalize suas energias em primeiro resolver a Questão das Tabelas relacionadas (Nomes, PK, FK e outros). Por ora, deixe a parte de layout de lado  pois temos Mestres aqui no Fórum que perguntaram se não o alertamos a este respeito (e olha que os caras são feras).


Fique Seguro, Tranquilo e Muito à vontade, que SIM, NÃO O DEIXAREMOS NA ESTRADA! Mas pedimos que reorganize o seu sistema para podermos te ajudar.


IMPORTANTE: APLIQUE O MODELO QUE ENVIAMOS A RESPEITO DO OUTLOOK, QUE ELE RESPONDE ÀS NUANCES EM QUESTÃO!


[url=]

Caro Mizael, estamos disponibilizando estas duas RARAS BIBLIOTECAS EXEMPLOS!


Inclusive, quaisquer uma destas, podem perfeitamente serem transformadas no seu Sistema; e as relações já estão feitas!


Fique Muito à Vontade para nos consultar; à qualquer momento, e queremos ver esse Sistema tinindo, viu???!!



Nosso Sempre Fraterno e Cordial abraço,
Guilherme