@verb #3512:"@qs*end @qm*mail @quicks*end @quickm*ail" any any any rxdo #55
@program #3512:"@qs*end @qm*mail @quicks*end @quickm*ail" any any any
"@qsend recipient [recipient2 recipient3 ...] [subject=<subject>]"
""
"Used to send a quick message to several recipients, without invoking mail editor."
if (!args)
  return player:tell("Usage: " + verb + " &lt;recipients&gt;")
endif
this:update_usage("@qsend", player)
subject = ""
for a in (args)
  if ((i = index(a, "=")) > 3 && index("subject", a[1..i - 1]) == 1)
    args = setremove(args, a)
    a[1..i] = ""
    subject = a
  endif
endfor
recipients = $mail_editor:parse_recipients({}, args)
player:tell("Sending mail to " + $string_utils:name_and_number_list(recipients) + ".")
!subject && (subject = $command_utils:read("a subject"))
player:tell("Enter a message:")
try
  message = $command_utils:read_lines()
except (E_INVARG)
  "Oh well..."
endtry
$mail_agent:send_message(player, recipients, subject, message)
player:tell("Mail sent to " + $string_utils:name_and_number_list(recipients) + ".")
"Last modified by Dax (#789) on Thu Nov  8 11:38:33 2001 MST."
.