.NET2005中如何实现发送和接收邮件?
Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim mfrom As String
Dim mto As String
Dim msub As String
Dim mbody As String
Dim smt As String
mfrom = mailFrom.Text
mto = mailTo.Text
msub = mailSubject.Text
mbody = mailBody.Text
smt = mailsmtp.Text
Dim smtp_host As SmtpClient = New SmtpClient(smt, 25)
Dim mail_body As MailMessage = New MailMessage(mfrom, mto, msub, mbody)
mail_body.BodyEncoding = Encoding.Unicode
On Error Resume Next
smtp_host.Send(mail_body)
If Err.Number <> 0 Then
Msg.Text = Err.Description
Else
Msg.Text = "邮件已经成功发送"
End If
End Sub这段代码有什么错误吗?为什么邮件发不出去?请帮忙指出
我现在是新手,没有积分,请大家帮忙
Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim mfrom As String
Dim mto As String
Dim msub As String
Dim mbody As String
Dim smt As String
mfrom = mailFrom.Text
mto = mailTo.Text
msub = mailSubject.Text
mbody = mailBody.Text
smt = mailsmtp.Text
Dim smtp_host As SmtpClient = New SmtpClient(smt, 25)
Dim mail_body As MailMessage = New MailMessage(mfrom, mto, msub, mbody)
mail_body.BodyEncoding = Encoding.Unicode
On Error Resume Next
smtp_host.Send(mail_body)
If Err.Number <> 0 Then
Msg.Text = Err.Description
Else
Msg.Text = "邮件已经成功发送"
End If
End Sub这段代码有什么错误吗?为什么邮件发不出去?请帮忙指出
我现在是新手,没有积分,请大家帮忙
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货