在.Net中发送邮件，需要用到一个类system.web.mail(.net 1.0)或system.net.mail(.net 2.0)，只要引用这两个类，就可以通过设置它的相应属性来发送邮件了。

        在公用类加入如下函数，你就可以直接调用这个函数来发送邮件了，首先你得加入如下代码在公用类中，或者你在引用中加入如下的引用。

1. Imports System.Net
2. Imports System.Net.Mail

1. Public Shared Function SendMail(ByVal strAddr As String, ByVal strSubject As String, ByVal strContent As String, ByVal strImportance As String) As Boolean
2.         Dim objMailMsg As New MailMessage()
3.         Dim objSmtp As New SmtpClient()
5.         On Error GoTo ErrorHandler
7.         If strAddr = "" Then
8.             Exit Function
9.         End If
11.         objMailMsg.To.Add(strAddr)
12.         objMailMsg.From = New MailAddress("XXXX@XXX.com", "发送人名字")
13.         objMailMsg.Subject = strSubject
14.         If strImportance = "2" Then
15.             objMailMsg.Priority = MailPriority.High
16.         ElseIf strImportance = "1" Then
17.             objMailMsg.Priority = MailPriority.Low
18.         Else
19.             objMailMsg.Priority = MailPriority.Normal
20.         End If
21.         objMailMsg.IsBodyHtml = True
22.         objMailMsg.Body = strContent
23.         objSmtp.Host = "你的SMTP服务器地址"
24.         objSmtp.Port = 25 'SMTP服务器端口
25.         objSmtp.Send(objMailMsg)
26.         objMailMsg = Nothing
27.         SendMail = True
28.         Exit Function
29. ErrorHandler:
30.         SendMail = False
31.     End Function

1. objMailMsg.CC.Add(New MailAddress("cc1@xxx.com", "CC1名字"))
2. objMailMsg.CC.Add(New MailAddress("cc2@xxx.com", "CC2名字"))
3. objMailMsg.Bcc.Add(New MailAddress("bcc1@xxx.com", "BCC1名字"))
4. objMailMsg.Bcc.Add(New MailAddress("bcc2@xxx.com", "BCC2名字"))

1. objMailMsg.Attachments.Add(New Attachment(HttpContext.Current.Server.MapPath("你的文件名")))