[Resolvido]Usando o Outlook para enviar anexos diretamente do Access 2003

Pessoal, uso o codigo abaixo para enviar meus arquivos .pdf diretamente do Access 2003 pelo Outlook 2003.
Preciso mudar o codigo para que ao inves de enviar a mensagem automaticamente, o codigo abra meu Outlook em uma nova mensagem já com o arquivo anexado.

Private Sub Command20_Click()

Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = Me.Email_Address
.Subject = Me.Mess_Subject
.HTMLBody = Me.Mess_Text
If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.Add (Me.Mail_Attachment_Path)
End If
'.DeleteAfterSubmit = True 'This would let Outlook send th note without storing it in your sent bin
.Send
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
Resume Error_out
Error_out:
End Sub

Se alguem tiver uma luz, fico muito grato.

Abs

Ola bom dia;

Substitua o .Send por .Display

JPaulo, bom dia, obrigado pela resposta, entretanto tentei contornar um problema dessa forma e ainda não consegui.
A questão é que mesmo abrindo meu Outlook o corpo da mensagem nova nao carrega minha assinatura padrão.
Alguma dica?
Valeu

Segundo eu percebi a sua duvida nada fala na assinatura;

"Preciso mudar o codigo para que ao inves de enviar a mensagem automaticamente, o codigo abra meu Outlook em uma nova mensagem já com o arquivo anexado."

Verdade (rsss) acredito que agora a duvida é outra.
Farei um novo topico.
Abs