home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / coldfus / coldfusi.exe / data1.cab / Examples / email / viewmsg.cfm < prev    next >
Encoding:
Text File  |  1998-10-08  |  3.3 KB  |  93 lines
  1. <CFINCLUDE TEMPLATE="_header.cfm">
  2.  
  3. <!--- Create main temp directory if it doesn't already exist --->
  4. <CFSET TempDir = GetTempDirectory() & "CrazyCab\">
  5. <CFTRY>
  6.     <CFDIRECTORY ACTION="CREATE" DIRECTORY="#TempDir#">
  7.     <CFCATCH TYPE="ANY">
  8.     </CFCATCH>
  9. </CFTRY>
  10.  
  11. <!--- Create inbound temp directory if it doesn't already exist --->
  12. <CFSET AttachDir = TempDir & "inbound\">
  13. <CFTRY>
  14.     <CFDIRECTORY ACTION="CREATE" DIRECTORY="#AttachDir#">
  15.     <CFCATCH TYPE="ANY">
  16.     </CFCATCH>
  17. </CFTRY>
  18.  
  19. <CFPOP ACTION="GETALL"
  20.        NAME="Message"
  21.        MESSAGENUMBER="#URL.Msg#"
  22.        SERVER="#Session.POPserver#"
  23.        USERNAME="#Session.Username#"
  24.        PASSWORD="#Session.Password#"
  25.        ATTACHMENTPATH="#AttachDir#">
  26.  
  27. <CFSET Body = Message.Body>
  28. <CF_Wrap VARIABLE="Body" WIDTH=50>
  29.  
  30. <table border="0" cellspacing="0" cellpadding="0">
  31. <CFOUTPUT>
  32. <tr>
  33.     <td bgcolor="cc9900" valign="top" rowspan=2 width="55"><FONT FACE="Helvetica" SIZE="-1" color="FFffcc"><B><a href="messagelist.cfm"><img src="images/back.gif" width=46 height=36 border=0 alt=""></a></td>
  34.     <td bgcolor="cc9900" height=5 colspan=3><img src="images/curve3.gif" width=1 height=1 border=0 alt=""></td>
  35.     <td valign="top" rowspan=2><img src="images/curve3.gif" width=36 height=36 border=0 alt=""></td>
  36. </tr>
  37. <TR>
  38.     <TD valign=top bgcolor="cc9900"><FONT FACE="Helvetica" SIZE="-1" color="FFffcc"><B><a href="compose.cfm"><img src="images/compose.gif" width=29 height=25 border=0 alt="" align="left">Compose</a>  </TD>
  39.     <TD valign=top bgcolor="cc9900"><FONT FACE="Helvetica" SIZE="-1" color="FFffcc"><B><a href="reply.cfm?Msg=#URL.Msg#"><img src="images/reply.gif" width=36 height=26 border=0 alt="" align="left">Reply</a>  </TD>
  40.     <TD valign=top bgcolor="cc9900"><FONT FACE="Helvetica" SIZE="-1" color="FFffcc"><B><a href="forward.cfm?Msg=#URL.Msg#"><img src="images/forward.gif" width=35 height=25 border=0 alt="" align="left">Forward</a></TD>
  41. </TR>
  42. </CFOUTPUT>
  43. </TABLE>
  44. <table border="0" cellspacing="2" cellpadding="25" align="CENTER" bgcolor="#660000">
  45. <TR>
  46.     <TD width=400 nowrap bgcolor="FFffcc">
  47.  
  48.     <FONT COLOR="#000000">
  49.  
  50.     <CFIF IsDefined("URL.FullHeaders")>
  51.  
  52.         <CFOUTPUT>#HTMLCodeFormat(Message.Header)#</CFOUTPUT>
  53.  
  54.     <CFELSE>
  55.  
  56.         <CFOUTPUT QUERY="Message">
  57.  
  58.         <FONT FACE="Helvetica" SIZE="-1" COLOR="##000000">
  59.         <P><B>Date:</B> #Date#<BR>
  60.         <B>From:</B> #HTMLEditFormat(From)#<BR>
  61.         <B>To:</B> #HTMLEditFormat(To)#<BR>
  62.         <B>cc:</B> #HTMLEditFormat(cc)#<BR>
  63.         <B>Subject:</B> #HTMLEditFormat(Subject)#<BR>
  64.         <FONT SIZE="1"><A HREF="viewmsg.cfm?Msg=#URL.Msg#&FullHeaders=On">Click here for full headers</A></FONT></P>
  65.         </FONT>
  66.  
  67.         </CFOUTPUT>
  68.  
  69.     </CFIF>
  70.  
  71.     <CFOUTPUT>
  72.     <PRE>--------</PRE>
  73.     #HTMLCodeFormat(Body)#
  74.     </CFOUTPUT>
  75.  
  76.     <CFIF Message.Attachments NEQ "">
  77.     <FONT FACE="Helvetica" SIZE="-1"><B>Attached:</B>
  78.     <CFLOOP FROM="1" TO="#ListLen(Message.Attachments,'    ')#" INDEX="CurrItem">
  79.         <CFSET FileName = "#AttachDir##URLEncodedFormat(GetFileFromPath(ListGetAt(Message.AttachmentFiles, CurrItem, '    ')))#">
  80.         <CFSET FileName = Replace(FileName, "%2E", ".", "ALL")>
  81.         <CFOUTPUT>
  82.             <A HREF="getfile.cfm/#GetFileFromPath(Filename)#?Filename=#URLEncodedFormat(Filename)#">#ListGetAt(Message.Attachments, CurrItem, "    ")#</A>
  83.         </CFOUTPUT>
  84.     </CFLOOP>
  85.     </FONT>
  86.     </CFIF>
  87.     </FONT>
  88.  
  89.     </TD>
  90. </TR>
  91. </TABLE>
  92.  
  93. <CFINCLUDE TEMPLATE="_footer.cfm">