Coldfusion Mail Inbox Script Using cfpop
This script will show you how to read emails from a mail server, this script could be used for a web mail client.
First of all we need to create a connection to the mail server using the cfpop tag
<cfpop action="GETHEADERONLY"
server="#ServerName#"
name="GetMessages"
username="#Username#"
password="#Password#">
server="#ServerName#"
name="GetMessages"
username="#Username#"
password="#Password#">
Now we have created the connection to the server and got the messages we can go about outputting them. This method is that same as you would with any query.
<cfif qGetMessages.RecordCount>
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" colspan="3" bgcolor="#000080">
<font size="2" face="Verdana" color="white"><strong>My Inbox</strong></font>
</td>
</tr>
<tr bgcolor="#efefef">
<td width="10%"><font size="2" face="Verdana"><strong>ID</strong></font></td>
<td width="40%"><font size="2" face="Verdana"><strong>FROM</strong></font></td>
<td width="50%"><font size="2" face="Verdana"><strong>SUBJECT</strong></font></td>
</tr>
<cfoutput query="GetMessages">
<tr>
<td><font size="2" face="Verdana">#GetMessages.Currentrow#</font></td>
<td><font size="2" face="Verdana">#GetMessages.from#</font></td>
<td><font size="2" face="Verdana">#GetMessages.subject#</font></td>
</tr>
</cfoutput>
</table>
<cfelse>
<font size="2" face="Verdana">Your inbox is empty</font>
</cfif>
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" colspan="3" bgcolor="#000080">
<font size="2" face="Verdana" color="white"><strong>My Inbox</strong></font>
</td>
</tr>
<tr bgcolor="#efefef">
<td width="10%"><font size="2" face="Verdana"><strong>ID</strong></font></td>
<td width="40%"><font size="2" face="Verdana"><strong>FROM</strong></font></td>
<td width="50%"><font size="2" face="Verdana"><strong>SUBJECT</strong></font></td>
</tr>
<cfoutput query="GetMessages">
<tr>
<td><font size="2" face="Verdana">#GetMessages.Currentrow#</font></td>
<td><font size="2" face="Verdana">#GetMessages.from#</font></td>
<td><font size="2" face="Verdana">#GetMessages.subject#</font></td>
</tr>
</cfoutput>
</table>
<cfelse>
<font size="2" face="Verdana">Your inbox is empty</font>
</cfif>
So there we have a very simple script to display the contents of your inbox. I will soon be writing a script to show the email itself.
Enjoy
There are no comments for this entry.
[Add Comment]