.NET下利用JMAIL组件来设计像163那样网页形式的邮件管理系

Question

看来没人回答我，我想把下面的代码改为引用jmail组件怎么改？？
Dim objPOP3
Dim strBodyTxtURL
Dim strBodyHtmlURL
Dim strAttachURL
Dim strAttachFileName
Dim nAttachCount
Dim nMailCount
Dim nCurMail
Dim i
Dim strBody
Dim strFrom
Dim strSubject
Dim strDate
Dim strTo
Dim strCc
Dim arrString
Dim strUID
Dim lSize
Dim strEmailURL
Dim strHeaderURL
Dim strAttachForward

strAttachForward = ""
Set objPOP3= CreateObject("CMailCOM.POP3.1")
objPOP3.Login Session("User"), Session("Pass")
Session("LoginSuccess") = objPOP3.LoginSuccess If Session("LoginSuccess") = 1 Then  objPOP3.GetMailData Request("indexOfMail")
If Left(objPOP3.LastResponse, 4) = "-ERR" Then
Response.Write objPOP3.LastResponse
'Response.Redirect "finbox.asp"
Response.End
End If
if not IsNumeric(Request("MailCount")) then response.Redirect "finbox.asp"
nMailCount = CInt(Request("MailCount"))
if not IsNumeric(Request("indexOfMail")) then response.Redirect "finbox.asp"
nCurMail = CInt(Request("indexOfMail")) strBody = objPOP3.Body
strFrom = objPOP3.From
strTo = objPOP3.To
strCc = objPOP3.Cc
strSubject = objPOP3.Subject
strDate = objPOP3.Date
strUID = objPOP3.UID
lSize = objPOP3.Size
strEmailURL = objPOP3.EmailURL
strBodyHtmlURL = objPOP3.BodyHtmlURL
strHeaderURL = objPOP3.HeaderURL strBody = Autolink(strBody)
strBody = Replace(strBody, vbNewLine, "<Br>")
strSubject = HTMLEncode(strSubject)
'strFrom = HTMLEncode(strFrom)
strTo = HTMLEncode(strTo)
strCc = HTMLEncode(strCc)
strBodyTxtURL = objPOP3.BodyTxtURL
If Len(strBodyTxtURL) > 0 Then
strBodyTxtURL = strBodyTxtURL 
End If strBodyHtmlURL = objPOP3.BodyHtmlURL
If Len(strBodyHtmlURL) > 0 Then
strBodyHtmlURL =  strBodyHtmlURL 
End If nAttachCount = objPOP3.AttachCount
%>