uemailmessage.html

关于利用DELPHI来进行企业级方案解决的著作的附书源码

<!-- #include file="Top.html" -->

<P>
<%
  // 检查是否成功下载邮件
  if (EmailMessage.StartMessage.Value)
  {
%>
<table width="100%">
<tr>
  <td bgcolor="#DCDCDC"><b>来自:</b> <%=EmailMessage.MessageFromName.DisplayText%>
    <a href="mailto:<%=EmailMessage.MessageFromEmail.DisplayText%>"
      ><%=EmailMessage.MessageFromEmail.DisplayText%></a>
  </td>
  <td bgcolor="#DCDCDC"><b>日期:</b> <%=EmailMessage.MessageDate.DisplayText%></td>
</tr>
<tr>
  <td bgcolor="#DCDCDC" colspan="2"><b>主题:</b> <%=EmailMessage.MessageSubject.DisplayText%></td>
</tr>
<tr>
  <td colspan="2">
<pre>
<%=EmailMessage.MessageBody.DisplayText%>
</pre>
  </td>
</tr>

</table>
<%
  }
  else
    Response.Write('没有邮件或下载失败<br>');

  errors = new Enumerator(EmailMessage.Errors)
  if (!errors.atEnd())
   Response.Write('<p>The following error(s) happened:');
  for (; !errors.atEnd(); errors.moveNext())
    Response.Write("<li>" + errors.item().Message)    
%>


<!-- #include file="Bottom.html" -->