Excel - enviar mail LotusNotes

Hola!!

A ver si me podeis ayudar con este problema. Tengo que enviar unos csv´s por email mediante excel. Lo tengo hecho para que mande un csv cada vez, es decir, que cada vez quiero enviar un archivo se me crea un mail nuevo.Lo que yo quiero es poder enviar más de un archivo en un mismo correo, he encontrado este código que permite elegir más de un archivo pero luego no se como utilizarlo. El resultado del código es que me envia el libro entero.

Sub NombreArchivo()

Dim Archivo As Variant
Dim Archivos As Variant
Dim Mensaje As String

Archivos = Application.GetOpenFilename(Title:="Seleccione el archivo a adjuntar", MultiSelect:=True)

If IsArray(Archivos) Then

For Each Archivo In Archivos

Mensaje = Mensaje & Archivo & vbLf

Next Archivo

MsgBox "Se seleccionaron los archivos: " & vbLf & Mensaje

Else

MsgBox "No se seleccionó ningún archivo."

End If

End Sub

Muchas Gracias!!!
Saludos.