Enviar 1 e-mail para vários clientes

Boa tarde Pessoal, não sei se estou postando no lugar certo;
Olha só, tenho um formulário e uma tabela onde está cadastrado todos os materiais de construção que atendo, são muitos (+- 500 ), para cada cadastro tem um endereço de e-mail, Quando tenho uma promoção, eu gostaria de juntar todos na no Cco do Outlook( cópia oculta para não deixar aquela lista enorme de e-mails ),para não precisar ficar passando para cada um separadamente, mas tem que ter ponto e virgula separando os e-mails.
Como faço isso

Desde já grande abraço a todos

Roxo

Como está enviando os emails atualmente? Por macro ou VBA? Detalhe o processo.

Boa tarde Criquio, obrigado pelo retorno
Eu ainda não tenho funcionando pelo sistema, atualmente eu vou no cadastro, controlC no endereço de email e vou no Outlook e controlV no Cco entende, é muito complicado, eu gostaria de automatizar isto.
No Formulário de Orçamentos eu utilizo VBA com o projeto do Avelino Sampaio para transformar em PDF e anexar o Orçamento no Outlook, mas neste caso é um orçamento para cada cliente.
O que preciso agora é juntar os endereços de e-mails de todos os materiais de construção, e colocar no Cco do Outlook. Para este caso ainda não tenho nada.

Valeu

Roxo

Estou tentando fazer isso funcionar, mas ainda estou longe de conseguir
Se alguem tiver uma dica, agradeço desde já

Roxo

Bom tarde1

Isto está feito para execel, mas com umas pequenas alterações tmabem da para acess


'Declaração de variáveis
Dim objOlAppApp As Outlook.Application 'Variável para manipulação do outlook
Dim objOlAppMsg As Outlook.MailItem 'Variável para nova mensagem
Dim objOlAppRecip As Outlook.Recipient 'Controle de destinatários
Dim objOlAppAnexo As Outlook.Attachment 'Controle de anexos

'Define os parâmetros e envia o e-mail
Set objOlAppApp = CreateObject("Outlook.Application")
Set objOlAppMsg = objOlAppApp.CreateItem(olMailItem)

'Configura e envia o e-mail
Set objOlAppRecip = objOlAppMsg.Recipients.Add("sdfsf@dgdfg.com.pt")
objOlAppRecip.Type = olTo

objOlAppMsg.Subject = "dfgdfgd. Requisição nº" & Range("F2").Value

objOlAppMsg.HTMLBody = vbNewLine & "Atentamente " & vbNewLine & _
"José Carlos"




objOlAppMsg.Attachments.Add "C:\ROTAS\7\REQUISICOES\" & Sheets("Programacao").Range("D11").Value & " " & _
Sheets("Programacao").Range("E11").Value & " " & Sheets("Programacao").Range("C2") & _
" REQ " & Sheets("Requisicao").Range("F2").Value & ".pdf"


objOlAppMsg.SEND

'Libera os objetos da memória
Set objOlAppApp = Nothing
Set objOlAppMsg = Nothing
Set objOlAppRecip = Nothing
Set objOlAppAnexo = Nothing