'emailaddress郵件接收者地址 'mailcontent郵件主體內容 'mailtitle郵件標題 'mailsubject郵件主題 Public Function SendMail(ByVal emailaddress As String, ByVal mailcontent As String, ByVal mailtitle As String, ByVal mailsubject As String) As Boolean Dim MailMessage As New System.Net.Mail.MailMessage Dim myEmail As String = "" '發件者mail Dim myPwd As String = "" '發件者mail密碼 MailMessage.BodyEncoding = System.Text.Encoding.UTF8 MailMessage.IsBodyHtml = True MailMessage.From = New MailAddress(myEmail) MailMessage.[To].Add(New MailAddress(emailaddress)) MailMessage.Subject = mailsubject MailMessage.Body = mailcontent Dim clint As New SmtpClient("mail.iapechina.com") clint.UseDefaultCredentials = False clint.Credentials = New System.Net.NetworkCredential(myEmail, myPwd) clint.DeliveryMethod = SmtpDeliveryMethod.Network Try clint.Send(MailMessage) Return True Catch ex As Exception Return False End Try End Function 第二种: 在web.config中做如下设置 <configuration> <system.net> <mailSettings> <smtp from=""> <!--要发送邮件的邮箱--> <network host="mail.iapechina.com" password="1111111" port="25" userName="" defaultCredentials="false"/> </smtp> </mailSettings> </system.net> </configuration> //emailaddress邮件接收者地址 //mailcontent邮件主体内容 //mailtitle邮件标题 //mailsubject邮件主题 private bool SendMail(string emailaddress,string mailcontent,string mailtitle,string mailsubject) { MailMessage MailMessage(); onemail.BodyEncoding=System.Text.Encoding.UTF8; onemail.IsBodyHtml=true; onemail.To.Add (new MailAddress(emailaddress)) ; onemail.Subject = mailsubject; onemail.Body = mailcontent; onemail.BodyEncoding = System.Text.Encoding.UTF8; SmtpClient clint = new SmtpClient(); try { clint.Send(onemail); return true; } catch (Exception ex) { return false; } }