...
...
*--- "ThisForm.oMensajes" = MAPI_Messages object in your form
*--- Ex: 3 files attachment
DIMENSION laAdjuntos(3)
laAdjuntos(1) = "C:\AUTOEXEC.BAT"    && Ruta completa
laAdjuntos(2) = "C:\CONFIG.SYS"
laAdjuntos(3) = "BOOT.INI"
lnCant = ALEN(laAdjuntos)

*--- File type = 0
THISFORM.oMensajes.AttachmentType = 0
THISFORM.oMensajes.MsgNoteText = THISFORM.oMensajes.MsgNoteText ;
  + SPACE(lnCant*2)
FOR lnI = 1 TO lnCant
  THISFORM.oMensajes.AttachmentIndex = lnI-1
  THISFORM.oMensajes.AttachmentPathName = laAdjuntos(lnI)
  THISFORM.oMensajes.AttachmentPosition = LEN(THISFORM.oMensajes.MsgNoteText) ;
    - lnCant*2 + lnI*2 - 1
ENDFOR
...
...