Email with Attachments

[Ollie]

Code: Select all  Expand view

IF FILE( DEFPATH() + cFile )
      DEFINE MAIL oMail SUBJECT cSubject ;
             TEXT cBody ;
             TO cName , cEmail ;
             FILES DEFPATH() + cFile, cFilename ;
             FROM USER
      ACTIVATE MAIL oMail
ELSE
      ? DEFPATH() + cFile+" not found"
ENDIF


Can I use this command (or class) with arrays aFile instead of cFile and cFilename and aRecipients instead of cName and cEmail.

I need to send multiple emails and/or files to my procedure.

[NK]

Code: Select all  Expand view

IF FILE( DEFPATH() + cFile )
      DEFINE MAIL oMail SUBJECT cSubject ;
             TEXT cBody ;
             TO cName , cEmail ;
             FILES DEFPATH() + cFile, cFilename ;
             FROM USER
      ACTIVATE MAIL oMail
ELSE
      ? DEFPATH() + cFile+" not found"
ENDIF


Can I use this command (or class) with arrays aFile instead of cFile and cFilename and aRecipients instead of cName and cEmail.

I need to send multiple emails and/or files to my procedure.

Hello Ollie,

use this sample:

Code: Select all  Expand view

     aadd(aFiles,{file_with_path, only_filename})
     aadd(aFiles,{file_with_path, only_filename})
     aadd(aFiles,{file_with_path, only_filename})
REM Example: aadd(aFiles,{"C:\TEMP\FILE1.ZIP", "FILE1.ZIP"})
REM Example: aadd(aFiles,{"C:\TEMP\FILE2.ZIP", "FILE2.ZIP"})
      IF Len( aFiles ) > 0
         oMail:aFiles := aFiles
      ENDIF
      ACTIVATE MAIL oMail


Regards, Norbert