Criar modulo para envio de tabelas e consultas para vários destinatários

O que eu pretendo é criar um modulo automático de forma a enviar varias tabela e consultas para vários destinarios. Com o código que o Mestre JPaulo disponibilizou não estou a conseguir adicionar mais anexos e não estou a conseguir colocar o código a funcionar num modulo. As minhas desculpas mas ainda estou muito verdinho em VBA.
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access
Obrigado

Alguma ajuda para este meu problema. O que eu pretendo, e nao estou a conseguir, é enviar um mail com 1 consulta e 1 tabela anexada. docmd.sendobject so permite enviar um anexo eu preciso de enviar mais ficheiros anexados 2 ou 3 (tabelas ou consultas. A minha ideia é chamar este procedimento num formulario oculto no temporizador(if time #16:00:00" call funcao()) que envia 1 mail com as consultas/tabelas anexadas.

Alguma ajuda seria bem-vinda.

Obrigado