Michael, sorry but I coun't made work the code you send me the 24th, It is to
complex and I'm not that expert in VB.   Do you have an easier idea so I can
get in VB all the context in  a folder and send them by mail.   The trigger
bottom is in an acces menu, that is where I have to place the code.  Please,
help me to find out the answer becouse I have expended two weeks looking for
it.  Thanks a lot.

the code i have know is this
Sub Mail_workbooks_Outlook()
   Dim OutApp As Object
   Dim OutMail As Object
   Set OutApp = CreateObject("Outlook.Application")
   Set OutMail = OutApp.CreateItem(0)
   With OutMail
       .To = "sistema@via-ex.com"
       .CC = "schuq@via-ex.com"
       .BCC = "maria@ene.com"
       .Subject = "Trasnmision"
       .Body = "Adjunto envío de datos de NOTAS "
       '.Attachments.Add ("Z:\ViaEx\*.*")
       .display   'or use .Display
   End With
   Set OutMail = Nothing
   Set OutApp = Nothing
End Sub