Enviar e-mail

Boa Tarde,

Tenho varios arquivos salvos em uma unica pasta, que o que diferencia um do outro, é tão somente o numero do cliente..
Exemplo: 4044.orcamento.xls
4054.orcamento.xls
4066.orcamento.xls

Preciso atraves do ACCESS, encaminhar esses orcamentos, "sendo um arquivo anexo", para o cliente e mais dois destinatarios em copia, os quais tenho salvo em uma consulta, conforme abaixo:
Campo1 = CodCliente
Campo2 = NomeCliente
Cammpo3 = Email (já esta concatenado, ou seja, cliente e os demais que receberão "em copia" em um unico campo)

Preciso ainda, ter um texto padrão para enviar no corpo do e-mail, sendo variavel somente o nome do cliente.
Algume pode me ajudar.?

Obrigada
Carolina

Fala Carolina....

A princípio, vc pode usar essa estrutura....

1 - Carregar a referência do outlook no access, depende da versão do seu office (acredito que seja por isso, a pergunta do Avelino)
Procure por "Microsoft Outlook XX.0 Object Library" ~~> XX.0 é a versão do seu office

2 - Carregar as variáveis:
Dim itemMail As Outlook.MailItem
Dim aplOl As New Outlook.Application

3 - Usar como base:
'Instancia um novo e-mail.
Set itemMail = aplOl.CreateItem(olMailItem)

With itemMail
'insere o destinatário do e-mail.
.To = "Endereço de E-Mail"

'Insere o assunto do e-mail.
.Subject = "Assunto do E-Mail"

'Seleciona o formato do corpo do e-mail.
.BodyFormat = olFormatHTML (Este é o formato em HTML)

'Referencía que o corpo tem conteúdo HTML.
'.HTMLBody = "HTML Content" (Recebe o corpo do E-Mail em formato HTML)

'Insere o corpo do e-mail.
.HTMLBody = "" Conteúdo do corpo em HTML ""

'Endereço completo do arquivo a ser anexo.
.Attachments.Add ("C:\Teste.pdf")

'Abre o e-mail formatado.
.Display (Mostra o E-Mail antes do envio - Envio Manual)

'Envia o e-mail formatado.
'.Send (Envia o E-Mail automaticamente - Sem preview)
End With



Espero que ajude em algo......

Esperamos instruções melhores do mestre Avelino!!!!!

Abraço a todos!!!!