' Run this from Cmd as    wscript xxxxxx.vbs   for dialog messages
' or                      cscript xxxx.vbs     for console messages

set shell = CreateObject("WScript.Shell")

for each filename in WScript.arguments
  'Process each command-line filename

  set pw = shell.Exec("c:\printwiz27\mapisend.exe /q /ebee@anzio.com /ssubject /u " + filename)

  do while pw.status = 0
'    WScript.echo "MapiSend processing, processid is ", pw.processid	       ' current process id
    WScript.sleep 100
  loop

  WScript.echo "MapiSend complete for file " + filename
  WScript.echo "  return code", pw.exitcode            ' PW Halt Code
  'WScript.echo "  program status code ", pw.status    ' PW status (0-running, 1-terminated)

next