... ... *--- "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 ... ...