[Resolvido]Enviar por Email Relatório?

O nosso amigo Criquio resolveu um dos meus problemas com este código:

DoCmd.OpenReport "NomeDoRelatório", , , "ID=" & Me.ID que era para remover um critério e ir buscar automaticamente a chave primaria.

O problema é que tinha um botão (por meio de uma macro) para enviar um email com o mesmo critério e agora foi-se .alguém me pode dizer como faço o mesmo em vb como na macro.
Na macro tinha:

Abertura do Relatório
Formato = PDF
Assunto = Orçamento
Texto da Mensagem = Com os melhores Cumprimentos

e se não for pedir muito não é possível ir buscar o o email da pessoa a um campo que está designado a isso.
Obrigado a todos

Boa noite, no repositório temos exemplos de como eviar relatórios via cdosys

Cumprimentos.

Será que me poderias sugerir um porque como sou iniciante em VB um que fosse facil. Estou a trabalhar no Access 2010 64b.
Não é possível um botão abrir o relatório e pedir um critério???(mas sem por o critério no relatório)
Eu vi do Avelino Sampaio , mas não precisava ser tão avançado como ele tem, bastava ser como a macro enviar para um Gestor de email´s como o outlook,etc
Obrigado

Dupliquei o relatório e já deu para por o critério mas se houver alguém que saiba pôr a enviar por VB agradecia

Obrigado a todos que poderão ajudar.