vs.net做的电子邮件收发系统
我有分开的smtp邮件发送端和pop3邮件接收端,要求把两个项目合起来,做成一个比较完整的电子邮件收发系统,望高手指导!要求用vs.net2003做! --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 沙发给五画了。呵呵。下面用于一个小程序的发送邮件的代码。其实谷歌一下很多例子的。大同小异。Try--------------------编程问答-------------------- 高手,我已经在编译了,可是有错误不知道错在哪里,能帮我看看嘛? --------------------编程问答-------------------- 如果你真想作一个电子邮件收发系统,要从掌握邮件格式和Socket入手,微软提供的SMTP发邮件是个废品 --------------------编程问答-------------------- 微软提供的SMTP发邮件是个废品,再怎么废品还是可以用滴。
Dim MailFrom As MailAddress = New MailAddress(Me.TxtStrFrom.Text)
Dim MailTo As MailAddress = New MailAddress(Me.TxtStrMailTo.Text)
Dim message As MailMessage = New MailMessage(MailFrom, MailTo)
ShowMsg("正在發送郵件...")
message.Subject = Me.TxtStrSubject.Text
message.IsBodyHtml = False
message.Body = "GetMailBody()"
Dim c As SmtpClient
c = New SmtpClient(My.Settings.StrSMTPServer)
c.Credentials = New NetworkCredential(My.Settings.StrUserName, My.Settings.StrPassword)
message.Attachments.Clear()
If Me.LvAttachments.Items.Count > 0 Then
For Each item In Me.LvAttachments.Items
message.Attachments.Add(New Attachment(item.Name))
Next
End If
c.Send(message)
ShowMsg("郵件發送完畢。")
MessageBox.Show("郵件發送完畢。", "發送郵件", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
ShowMsg(ex.Message)
End Try
网上也有Socket发邮件的代码啊。复杂点,但效率、灵活性较高。
补充:.NET技术 , VB.NET