[Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010?

Boa tarde,
Converti uma macro para vba e gostaria de juntar mais anexos num só e-mail. Tem como, usando este comando "docmd.sendObject"?
Obrigado


Macro convertida para vba (access 2010)
Function sendmail()
On Error GoTo sendmail_Err

DoCmd.SendObject acQuery, "ar", "Excel97-Excel2003Workbook(*.xls)", "isso@querias.tu", "", "Assunto:xpto", "", False, ""

sendmail_Exit:
Exit Function

sendmail_Err: MsgBox Error$
Resume sendmail_Exit

End Function

Código: Email Varios Destinatarios

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Obrigado JPaulo. Andei à procura deste codigo no forum mas nos sitios errados.
Grande abraço e muito obrigado

JPaulo so mais uma duvida,
Nesta linha como adiccionar mais do que um ficheiro

Set rst = CurrentDb.OpenRecordset("tblteste")

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.