Enviar e-mails para vários destinatários com anexos via CDO

Mais uma colaboração para os amigos deste Fórum:

O exemplo abaixo, feito em Access 2003 pode enviar e-mails para vários destinatários, com anexos de qualquer tipo, mp3, fotografias, vídeos, pdf, doc, etc.
Também é possível enviar Com cópia, Cc e com Cópia Oculta, Cco.
Apesar de possuir uma tabela com diversos destinatários já cadastrados (tecle nos comandos Para, Cc, ou Cco para anexar os destinatários pre-cadastrados) tambem possibilita que você digite e-mails avulsos ou não cadastrados.
Utiliza o sistema CDO, ou seja, não é preciso a utilização de qualquer aplicativo gerenciador de e-mails.
Contudo, você notará que dependendo da utilização que queira dar terá que adaptar as linhas de comando que geram os enunciados do corpo do e-mail, nada tão complicado que você não possa fazer, mesmo porque aqui neste Forum este assunto já foi exaustivamente discutido.

Observação importante:

Para que funcione de forma perfeita sugiro que crie uma pasta no diretório C:\Petrus e extraia o mdb para esta pasta.


Espero que gostem

Abraços, WSenna

Ótima contribuição.