<rsb:import lib="RSSBus.SmtpOps" />

<rsb:info title="Email List" description="Quickly compose an email message and have it send to an individual address or all addresses in a SharePoint list." >
  <input name="list" required="true" />
  <input name="mailserver" required="true" />
  <input name="from" default="rssbus@webpart.com" required="true" />
</rsb:info>

<!-- display input elements for recipient, subject, and message content -->
<table>
  <tr><td>To:</td>
    <td>
      <select name="recipient" style="width:200px">
        <option value="All Users">All Users</option>
      <!--display the list of addresses found in the list -->
      <rsb:call op="spListItems?list=[list]">
       <rsb:call op="spGetItem?list=[list]&id=[sp:id]">
          <option value="[sp:id]">[sp:full_name]</option>
       </rsb:call>
      </rsb:call>
      </select>
    </td>
  </tr>
  <tr><td>Subject:</td><td><input type="text" value="" style="width:200px" name="Subject" id="Subject" value="" /></td></tr>
  <tr><td>Message:</td><td></td></tr>
  <tr><td colspan="2"><textarea name="Message" rows="10" cols="71"></textarea></td></tr>
  <tr><td></td><td align="right"><input type="submit" /></td></tr>
</table>

<!-- when a message is submitted, send it with the smtpSendMessage operation -->
<rsb:equals attr="_request.request_method" value="POST">
<rsb:check attr="_request.form:Message">
<rsb:notequals attr="_request.form:Message" value="">

<rsb:equals attr="_request.form:recipient" value="All Users">

  <!-- send the message to all users -->
  <rsb:call op="spListItems?list=[list]">
    <rsb:call op="spGetItem?list=[list]&id=[sp:id]">
      <rsb:check attr="sp:e-mail_address">
        <!-- set the properties of the message -->
        <rsb:set attr="from" value="[from]" />
        <rsb:set attr="server" value="[mailserver]" />
        <rsb:set attr="subject" value="[_request.form:Subject]" />
        <rsb:set attr="html" value="[_request.form:Message]" />
        <rsb:set attr="to" value="[sp:e-mail_address]" />
        <rsb:call op="smtpSendMessage">
          Emailed [sp:full_name]: [smtp:messageid | def('Message Not Sent')].
        </rsb:call>
      <rsb:else>
        Skipped [sp:full_name]: No email address in this users entry.<br />
      </rsb:else>
      </rsb:check>
    </rsb:call>
  </rsb:call>

<rsb:else>

  <!-- send the message to one specific user -->
  <rsb:call op="spGetItem?list=[list]&id=[_request.form:recipient]">
    <rsb:check attr="sp:e-mail_address">
      <!-- set the properties of the message -->
      <rsb:set attr="from" value="[from]" />
      <rsb:set attr="server" value="[mailserver]" />
      <rsb:set attr="subject" value="[_request.form:Subject]" />
      <rsb:set attr="html" value="[_request.form:Message]" />
      <rsb:set attr="to" value="[sp:e-mail_address]" />
      <rsb:call op="smtpSendMessage">
        Emailed [sp:full_name]: [smtp:messageid | def('Message Not Sent')].
      </rsb:call>
    <rsb:else>
      Skipped [sp:full_name]: No email address in this users entry.<br />
    </rsb:else>
    </rsb:check>
  </rsb:call>

</rsb:else>
</rsb:equals>

</rsb:notequals>
</rsb:check>
</rsb:equals>