Table Of Contents

Index

MhsReadFile (FileName,Header,Message)

Example:

   var MailFiles Mail Headers X

   WholeFileNames
   ReadDirectory(MhsUserDirectory + '\MHS\*.',MailFiles)

   Loop MailFiles
      MhsReadFile(MailFiles[LoopIndex],Mail[LoopIndex],Headers[LoopIndex])
   EndLoop

   Loop Mail
      X = LoopIndex
      Loop Headers[X]
         Writeln Headers[X,LoopIndex]
      EndLoop

      Loop Mail[X]
         Writeln Mail[X,LoopIndex]
      EndLoop
   EndLoop

Table Of Contents

Index