Enviar anexos via outlook

Olá

Estou tentando anexar mais de um arquivo para enviar em um mesmo e-mail via outlook mais não estou conseguindo. Podem me ajudar?

Já vi alguns exemplos aqui na página, mais procuro algo mais simples.

Nesse exemplo a seguir até consigo o que desejo, porém os anexos vão em e-mail diferentes.

Desde já agradeço.
---------------------------------------------------------------------------------------------------------------------
Dim MSG As String

MSG = MsgBox("Deseja enviar os arquivos via e-mail agora?", vbYesNo, "Pickmap Mov!")

If MSG = vbYes Then


DoCmd.SendObject acQuery, ("Movimentacao_Rebal"), acFormatXLSX, "e-mail@xxx.com", "", , "Exportacao-Movimentacao_Rebal", "Seguem Anexos - Arquivos "
DoCmd.SendObject acQuery, ("Mov Geral"), acFormatXLSX, "e-mail@xxx.com", "", , "Exportacao_Mov", "*** Envio de e-mail é automático! ***"

MsgBox "E-mail enviado com sucesso!!", vbInformation, "Arquivo Mov!"

Else

MsgBox "Envio Cancelada!", vbCritical, "Arquivo Mov"

End If
----------------------------------------------------------------------------------------------------

Olá Israel,

Não faltam exemplos no fórum, efetue uma "busca".

Veja este por exemplo
https://www.maximoaccess.com/t29252-resolvidoanexar-arquivos-email

Abraço