有人开发过邮件系统吗？就要象HOTMAIL类似的那种。

Question

就是通过程序实现在浏览器里面调用POP 和STMP 发送接收邮件。就和HOTMAIL一样的东西啊。这个.NET做的话复杂吧？

Answer 1

用jmail控件吧，很好用的！在asp.net中也很方便！

Answer 2

呵呵.. 没有见过.. 你可以到 www.asp.net 看看。

Answer 3

jmail控件哪里有的下载？

Answer 4

我做过用jmail组件写的邮件客户端系统。
Dim ms As New jmail.Message
        ms.Subject = txtSubject.Text
        ms.Body = txtBody.Text
        ' ms.ContentType = "text/html"
        '如果不设置这个东西附件就不会内嵌在邮件中，高。
        ms.From = "[email protected]"
        ms.AddRecipient(txtTo.Text)
        ms.MailServerUserName = "zzq9624"
        ms.MailServerPassWord = "dddd"
        ms.ContentTransferEncoding = "base64"
        ms.Encoding = "gb2312"
        ' ms.ISOEncodeHeaders = True
        ' ms.MimeVersion = "1.0"        Dim mytype As String        ' mytype = txtPath.PostedFile.ContentType.ToString
        ms.Charset = "iso-8859-1"
        '  ms.AddAttachment(txtPath.PostedFile.FileName, True, mytype)        Try
            ms.Send("smtp.163.com")
            Response.Redirect("postsuccess.aspx?mailto=" + txtTo.Text)
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try    End Sub
Function GETDATA()        POP3.Timeout = 500
        POP3.Connect("zzq9624", "ndddd", "pop.163.com")
        If POP3.Count > 0 Then
            lblCount.Text = String.Format("你的邮箱里共有{0}封邮件", POP3.Count)
            Dim k As Integer            Dim mytable As New DataTable("tblMail")
            mytable.Columns.Add("id", GetType(Object))
            mytable.Columns.Add("发件人", GetType(String))
            mytable.Columns.Add("主题", GetType(String))
            mytable.Columns.Add("日期", GetType(Date))
            mytable.Columns.Add("大小", GetType(Int32))
            mytable.Columns.Add("附件", GetType(String))
            Dim myrow As DataRow
            For k = 1 To POP3.Count
                msg = POP3.Messages.Item(k)                '    getAttachments()
                myrow = mytable.NewRow
                myrow("发件人") = msg.From
                myrow("主题") = msg.Subject
                myrow("日期") = msg.Date
                '    myrow("大小") = msg.Size
                myrow("id") = msg.Envelope
                '   myrow("附件") = getAttachments(msg)
                mytable.Rows.Add(myrow)
            Next
            dgdMail.DataSource = mytable.DefaultView
            dgdMail.DataBind()        End If    End Function    Function getAttachments(ByVal msg As jmail.Message) As String        Dim Attachments As jmail.Attachments = msg.Attachments
        Dim separator As String = ", "        Dim i As Integer        If Attachments.Count = 0 Then
            Exit Function
        End If
        For i = 0 To Attachments.Count - 1            If i = Attachments.Count - 1 Then                separator = ""            End If            Dim at As jmail.Attachment            at = Attachments(i)            at.SaveToFile(Server.MapPath("attachments\") & at.Name)            getAttachments = getAttachments & "<a href=""attachments/" & at.Name & """>" & at.Name & "(" & at.Size & " bytes)" & "</a>" & separator        Next    End Function