Chapter 9 PowerDynamo Mail Support

A simple mail application

In this section you will create a simple mail application which may be used to send and view mail for a number of users. To use this simple application, you must have access to a POP3 mail server and a SMTP host.

Create the following templates in your PowerDynamo Web site:

mailMain.stm

<HTML>
<TITLE>mailMain.stm</TITLE>
<BODY>
<H1>Dynamo 3.5 Mail</H1>
<a href=mailComp.stm>Compose a piece of mail</a><BR>
<a href=mailListMain.stm>List mail in the mail box</a>
</BODY>
</HTML>

Notes

This is the starting page for the application. To access it from a browser the URL would look something like http://localhost/Site/mailmain.stm.
Links to other parts of the mail application allow the user to decide whether to compose a new mail piece or view existing mail pieces.

mailComp.stm

<HTML>
<TITLE>mailcomp.stm</TITLE>
<BODY>
<h1>Sending an email
<form action=mailSend.stm>
    <table>
        <tr><th align=left>From:</th>
            <td><input type=input name=from size=30 maxlength=30 value=elmo@sybase.com></td></tr>
        <tr><th align=left>To:</th>
            <td><input type=input name=to size=30 maxlength=30 value=george@mailsrv.sybase.com></td></tr>
        <tr><th align=left>Host:</th>
            <td><input type=input name=host size=30 maxlength=40 value=boot.sample.com></td></tr>
        <tr><th align=left>Subject:</th>
            <td><input type=input name=subject size=50 maxlength=60 value='testing stuff'></td></tr>
        <tr><th align=left>Body:</th>
            <td><textarea name=body rows=5 cols=50> Enter your message here...             </textarea></td></tr>        
    </table>
    <input type=submit value=Send>
    <input type=submit value=Cancel>
    
</form>
</BODY>
</HTML>

Notes

This page enables a mail piece to be composed and sent.
Ensure that a valid host has been specified either in the template you create, or via Sybase Central.

For more information on setting the host see the "smtpHost property" in PowerDynamo Reference.

For more information on the outgoing mail, see "The mail piece object (outgoing)" in PowerDynamo Reference.

mailSend.stm

<HTML>
<TITLE>mailsend.stm</TITLE>
<BODY>
<H1>Dynamo 3.5 Mail</H1>
<!--script
    var parm = document.value;
    if (parm.action="Send") {
        var mp = new MailPiece();
        mp.subject = parm.subject;
        mp.from = parm.from;
        mp.body = parm.body;
        mp.smtpHost=parm.host;
        mp.AddRecipient( parm.to, "to" );
        if ( !mp.Send() ) {        
            document.writeln( mp.GetErrorCode() );
            document.writeln( mp.GetErrorInfo() );
        } else {
            document.writeln("Sent!");
        }
    }
-->
<a href="mailMain.stm">click here to return to the mail menu</a>
</BODY>
</HTML>

Notes

This file sends the mail piece and checks for errors.

For more information on error checking, see "The mail piece object (outgoing)" in PowerDynamo Reference.

mailListMain.stm

<HTML>
<TITLE>mailListMain.stm</TITLE>
<BODY>
<H1>Dynamo 3.5 display of mail in the mailbox</H1>
    <form action='mailList.stm' method=post>
        <table>
            <tr><th align=left>Mail Server:</th>
                <td><input type=text name=mailServer size=30 value=mailsrv.sybase.com></td></tr>
            <tr><th align=left>User Name:</th>
                <td><input type=text name=username size=30 value=george></td></tr>
            <tr><th align=left>Password:</th>
                <td><input type=password name=passwd size=30 value=dynamo></td></tr>
        </table>
        <input type=submit name=action value=Logon>
     </form>

</BODY>
</HTML>

Notes

This page requests the name of the mail server that is to be used as well as the user name and password for the mail pieces that are to be viewed.
Only the mail that has been sent to the user name provided will display.

mailList.stm

<HTML>
<TITLE>mailList.stm</TITLE>
<BODY>
<H1>Dynamo 3.5 Mail</H1>
<!--script
    var parm = document.value;
    var mlist = new MailList (parm.mailServer, parm.username, parm.passwd, parm.username+'@'+parm.mailServer, false);
 
    if (mlist.GetErrorCode()>899) {
        document.writeln(mlist.GetErrorCode());
        document.writeln(mlist.GetErrorInfo());
    } else {
        var num = mlist.count
        document.WriteLn("There are " + num + " messages in the mail box<br>");
        document.writeln("\n&
            <table border>\n&
              <tr><th>From</th><th>Subject</th><th>Body</th></tr>");
                
        for (i in mlist) {
            mlist[i].Retrieve();
            document.writeln("\n&
                <tr><td>"+mlist[i].from+"</td>\n&
                    <td>"+mlist[i].subject+"</td>\n&
                    <td>"+mlist[i].body+"</td></tr>");
        }
        document.writeln("\n&
            </table>");
        
    }
    mlist.Disconnect();      
-->
<BR>
<a href=mailMain.stm>Return to the main menu</a>
</BODY>
</HTML>

Notes

This page displays all the mail messages that have been sent to the user (specified in mailListMain.stm).

For information on the incoming mail piece and its methods see "The mail piece object (incoming)" in PowerDynamo Reference.

Once you have created these files, you can start your mail application by opening mainMail.stm in a browser.