asp.net发送电子邮件的实现(通过一个邮箱向另一个邮箱发送)

最近程序开发有用到在WEB页面中,通过一个邮箱(第三方)向另一个邮箱发送邮件的技术实现,我用的是vs2008 .net3.5 vb.net,具体实现代码如下:

'发送电子邮件（从[e-mail]邮箱）'acceptor 接收人的电子邮件地址'title 电子邮件标题'body 电子邮件正文内容'replyto 需要回复的电子邮件地址(有的网站可能不支持此项,把sender自动设为回复地) Public Function EmailSend(ByVal acceptor As String, ByVal title As String, ByVal body As String, ByVal replyto As String) As Integer Try '生成电子邮件主体内容 Dim myEmail As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage myEmail.Subject = title '设置标题 myEmail.ReplyTo = New System.Net.Mail.MailAddress(replyto) '设置回复地址 myEmail.From = New System.Net.Mail.MailAddress("[e-mail]") '设置发送人地址 myEmail.IsBodyHtml = True '打开正文html代码开关 myEmail.To.Add(New System.Net.Mail.MailAddress(acceptor)) '设置收信人地址 '添加网站LOGO标志 Dim bodystr As String = "<table width=800 bgcolor=#0066FF border=0 cellpadding=5 cellspacing=1 align=center>" bodystr &= "<tr><td bgcolor=White width=180><a href="网站URL地址" mce_href="网站URL地址" target='_blank' title='网站名称'><img src="网站logo.gif图片url地址" mce_src="网站logo.gif图片url地址" border='0' /></a>" bodystr &= "</td>" bodystr &= "<tr><td bgcolor='White'><p style="line-height: 30px; text-indent: 30px; font-size: 14px; color: #666666" mce_style="line-height: 30px; text-indent: 30px; font-size: 14px; color: #666666">" bodystr &= body bodystr &= "</p></td></tr><tr><td bgcolor='White'><p style="line-height: 30px; text-indent: 30px; font-size: 14px; color: #666666" mce_style="line-height: 30px; text-indent: 30px; font-size: 14px; color: #666666">如果有什么需要帮助的，请通过以下方式联系我们： <br>" bodystr &= "   电话：[phone]<br>  </p></td></tr></table>" myEmail.Body = bodystr '设置邮件正文内容 '发送电子邮件 Dim sm As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient sm.Host = "smtp.sina.cn" '发送者邮件所在SMTP服务器,可以从邮件所在网站查到 sm.Port = 25 '一般都使用此端口 sm.UseDefaultCredentials = True '允许使用验证,注意必须放在下面语句的前面 sm.Credentials = New System.Net.NetworkCredential("邮箱登录名", "邮箱密码") sm.Send(myEmail) Return 1 Catch ex As Exception Return -1 End Try End Function

 

代码中"bodystr &= body"前面的语句和后面的语句是为了设置正文的显示样式,可以在前面添加公司或网站标志,后面添加联系方式等等.

 

函数调用如下:

 i = EmailSend("对方电子邮件地址","您的好友给您送了礼物！", "正文内容", "我的电子邮件地址")if i<0 then '显示错误else '成功发送end if

 

这个在顺平生活网(http://www.sp0312.com)中进行了实现!