请问要做一个邮件系统该怎么做？

Question

http://www.lumisoft.ee/lsWWW/ENG/index_eng.aspx?type=products
----------------------------------------------------------------------
欢迎试用ASP.NET大文件上传组件(AspnetUpload 1.1 Release & 无刷新进度条)
http://www.cnblogs.com/bestcomy/archive/2004/06/09/14267.aspx
http://bestcomy.europe.webmatrixhosting.net
----------------------------------------------------------------------

Answer 1

#region 接收外部邮件  public void ReceiveMails(string Username,int OrderID)
  {
   jmail.Message Msg=new jmail.Message();
   jmail.POP3 jpop = new jmail.POP3();
   if(OrderID!=0)
   {
    SqlDataReader dataReader = this.ExtGetSetting(Username,OrderID);
    if(dataReader.Read())
    {
     if(dataReader["PopServer"].ToString()!=""&&dataReader["PopUsername"].ToString()!="")
     {
      jpop.Connect(dataReader["PopUsername"].ToString(),dataReader["PopPassword"].ToString(),dataReader["PopServer"].ToString(),Int32.Parse(dataReader["PopPort"].ToString()));
      for(int i=1;i<=jpop.Count;i++)
      {
       Msg = jpop.Messages[i];
       this.SaveExtMail(Msg,Username,dataReader["Email"].ToString(),jpop.GetMessageUID(i));
       
      }
      jpop.Disconnect();
     }
    }
   }
   
  }  #endregion
    }
#region 获取设置的内容 
  /// 
  /// 获取设置的内容 
  /// 
  public SqlDataReader ExtGetSetting(string Username,int OrderID) 
  {
   // create data object and params
   SqlDataReader dataReader = null;
   Database data = new Database();
   SqlParameter[] prams = {
            data.MakeInParam("@Username",      SqlDbType.NVarChar, 20, Username),
            data.MakeInParam("@OrderID",      SqlDbType.Int, 1, OrderID)
           };
   
   
   try 
   {
    // run the stored procedure
    data.RunProc("SP_MailExtGetSet",prams,out dataReader);
    return dataReader;
   }
   catch (Exception ex) 
   {
    Error.Log(ex.ToString());
    throw new Exception("获取设置的内容出错!",ex);
   }
  }
  #endregion存储过程:CREATE PROCEDURE SP_MailExtGetSet
 (
  @Username      [nvarchar](50),
  @OrderId  [int]
 
)
AS 
  
SELECT *  FROM  TabExtMailSetting WHERE Username=@Username and OrderID=@OrderID
GO
Sub sendmail()        Try            Dim ms As New jmail.MessageClass
            ms.Subject = "i want a test"
            ms.Body = "this is mybody"
            ms.Silent = True
            ms.Charset = "gb2312"
            ms.From = "[email protected]"
            ms.FromName = "zzq"
            ms.AddRecipient("[email protected],cn", "zzq", "[email protected],cn")
            ms.AddRecipient("[email protected]")
            '  ms.Encoding = "base64"
            ms.MailServerUserName = "zzq9624"
            ms.MailServerPassWord = "ssss"            ms.Priority = 3
            ms.Send("smtp.163.com", False)
            '  ms.AddAttachment(txtPath.PostedFile.FileName, True, "text/html")
            ms = Nothing
            Response.Write("ok")
        Catch ex As Exception
            Response.Write("NO" & ex.Message & ex.Source)
        End Try
#region 外部邮件主体保存

Answer 2

/// 外部邮件主体保存
/// 
/// Mail类
public void SaveExtMail(jmail.Message JMsg,string Username,string Email,string MessageID) 
{  // create data object and params
Database data = new Database(); 
SqlParameter[] prams = {
 data.MakeInParam("@MailID",  SqlDbType.NVarChar , 100, MessageID),
 data.MakeInParam("@Username",  SqlDbType.NVarChar, 300, Username),
 data.MakeInParam("@Email",  SqlDbType.NVarChar, 100,Email),
 data.MakeInParam("@ReadFlag",  SqlDbType.Bit,1, 0),
 data.MakeInParam("@FolderID",  SqlDbType.Int, 20, 1),
 data.MakeInParam("@HeadersText",  SqlDbType.NVarChar, 1000, JMsg.Headers .ToString()),
 data.MakeInParam("@Subject",  SqlDbType.NVarChar, 100, JMsg.Subject.ToString()),
 data.MakeInParam("@TextContent",  SqlDbType.NVarChar , 3000, JMsg.Text.ToString()),
 data.MakeInParam("@HtmlContent",  SqlDbType.NVarChar, 3000, ""),
 data.MakeInParam("@FromName",  SqlDbType.NVarChar, 300, ""),
 data.MakeInParam("@FromEmail",  SqlDbType.NVarChar, 200, ""),
 data.MakeInParam("@CcTo",  SqlDbType.NVarChar, 200,""),
 data.MakeInParam("@BccTo",  SqlDbType.NVarChar, 200, ""),
 data.MakeInParam("@Replyto",  SqlDbType.NVarChar, 200, ""),
 data.MakeInParam("@SendDate",  SqlDbType.DateTime, 30, DateTime.Parse(JMsg.Date.ToString())),
 data.MakeInParam("@BodySize",  SqlDbType.NVarChar , 20, ""),
 data.MakeInParam("@Size",  SqlDbType.Int, 5,12)
 
};
try 
{
data.RunProc("SP_MailExtMailAdd", prams);
data = null;
}
catch (Exception ex) 
{
Error.Log(ex.ToString());
throw new Exception("外部邮件保存出错!",ex);
}}
#endregion
CREATE PROCEDURE [SP_MailExtMailAdd]
(@MailID [nvarchar](50),
@Username [nvarchar](20),
@Email [nvarchar](128),
@ReadFlag [bit],
@FolderID [int],
@HeadersText [text],
@Subject [varchar](200),
@TextContent [text],
@HtmlContent [text],
@FromName [varchar](50),
@FromEmail [varchar](128),
@CcTo [varchar](200),
@BccTo [varchar](200),
@Replyto [varchar](100),
@SendDate [datetime],
@BodySize [varchar](50),
@Size [int])AS 
SET NOCOUNT ON
--判断是否已经接收过了
--IF NOT EXISTS (SELECT 1 FROM TabExtMailList WHERE MailID =@MailID )
--BEGIN
INSERT INTO [UDS].[dbo].[TabExtMailList] 
( [MailID],
   [Username],
   [Email],
   [ReadFlag],
   [FolderID], 
   [HeadersText],
   [Subject],
   [TextContent],
                [HtmlContent],
  [FromName],
  [FromEmail],
  [CcTo],
  [BccTo],
  [Replyto],
  [SendDate],
  [BodySize],
  [Size]) VALUES 
( @MailID,
@Username,
@Email,
@ReadFlag,
@FolderID,
@HeadersText,
@Subject,
@TextContent,
@HtmlContent,
@FromName,
@FromEmail,
@CcTo,
@BccTo,
@Replyto,
@SendDate,
@BodySize,
@Size)
--ENDSET NOCOUNT OFF
GO
 

Answer 3

认同goody9807的！
星星可真耀眼啊！