[Resolvido]Envio de Email

Pessoal,
Fiz a macro
EnviarObjeto

Tipo de Objeto : Relatório
Nome do Objeto: RelatórioPedido
Formato de Saida: Formato PDF (*.pdf)
Para: Destinatario
CC :Form![Pedido].[email] (Aqui queria por um campo do Formulário)
CCo :
Assunto:Pedido nr & Form![Pedido].[Código] (aqui queria que buscasse o valor do Formulário)
Texto da Mensagem: Segue Pedido do Cliente Form![Pedido].[NomeCliente] (aqui queria que buscasse o valor do Formulário)
Editar Mensagem: Não
Arquivo Modelo

Quando executo aparece uma mensagem "Destinatario(s) da mensagem desconhecido(s). Mensagem não Enviada."

como Proceder??

ACHEI A SOLUÇAO
Dim txtEmail, txtCodigo, txtNomeCliente As String
txtCodigo = Form_Pedido.Código
txtEmail = Form_Pedido.email
txtNomeCliente = Form_Pedido.NomeCliente
   DoCmd.SendObject acReport, "RelatórioPedido", "PDFFormat(*.pdf)", "XXXXXXXX@gmail.com", txtEmail, "", "Pedido nr" & txtCodigo, "Segue Pedido do Cliente " & txtNomeCliente, False, ""

Oi Salomão, achei prático e dinâmico. vc tem como disponibilizar um modelo do formulário funcionando em 2003?