使用jmai如何删除指定的邮件？

[Englishgenius]

如题，使用jmail接收到邮件后，如何删除？最好给出代码（C#）

[Englishgenius]

hehe

[comeon_data]

在邮件列表前加复选框，再在邮件列表下添加一个按纽，当点击删除按纽的时候，向服务器发送删除命令，这个POP3协议上有的，你在看看。

[goody9807]

#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 = "[e-mail]"
ms.FromName = "zzq"
ms.AddRecipient("[e-mail],cn", "zzq", "[e-mail],cn")
ms.AddRecipient("[e-mail]")
' 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 外部邮件主体保存
///
/// 外部邮件主体保存
///
/// Mail类

[goody9807]

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)
--END

SET NOCOUNT OFF
GO

[Englishgenius]

还有马？

[Englishgenius]

有删除邮件的例子吗？？

[Englishgenius]

以上是接受邮件

[ny_nicholas]

學習，幫頂

[ny_nicholas]

up

[Englishgenius]

问题解决了，还是要谢谢大家，结贴！