Enviar e-mail access pelo outlook 2010

Senhores

Uso esse codigo para enviar e-mail com anexo, copiado daqui e desde já agradeço e parabenizo pelo ótimo trabalho e divulgação de conhecimentos de todos.
Gostaria entretanto, de implementar o e-mail que abriu do Outlook, com o preenchimento do endereço do cliente colhido do campo email do formulario, e que gerasse o assunto e breve dizeres no corpo do e-mail, tipo, "Segue orçamento em anexo". Tem como fazer isso? Para mim está sendo impossivel!

Código utilizado:

Private Sub PDFEmail_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
If IsNull(Me!Código) Then Exit Sub
'---------------------------------------------
'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 = "Orçamento" & Me!Código & ".pdf"
strLocal = CurrentProject.Path & "\Enviados\" & 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 "OrçamentoAvulso", acViewPreview, , "Código = " & Me!Código, 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, "OrçamentoAvulso", acFormatPDF, strLocal
'-------------------------------------------
'fecha o relatório clientes que está oculto
'-------------------------------------------
DoCmd.Close acReport, "OrçamentoAvulso"
'--------------------------------------------------------
'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

Muito agradecido

Veja aqui: http://www.4shared.com/folder/U9j-FA5L/_online.html um exemplo para enviar e-mail, talvez lhe ajude.

Na verdade, gostaria de somar mais implementos nesse código, que me preenchesse o e-mail do destinatário, o assunto e dizeres no corpo da mensagem do outlook.
Originalmente, quando clico no botão enviar, ele salva o relatório em pdf e abre a mensagem do outlook sem esses preenchimentos que gostaria de obter.
Não sei se é possivel, mas seria assim:
1. Converte o relatorio em pdf e abre a janela de mensagem do outlook
2. Copia o endereço de e-mail do cliente e transfere para o campo e-mail da mesangem do outlook
3. Escreve o assunto, tipo "Orçamento"
4. No corpo da mensagem do outlook, escreve: "Segue orçamento em anexo."

Tem uma imagem do meu BD que uso aqui na empresa

Agradeço desde ja.