VB.NET的一个邮件发送函数

    ''' <summary>

    ''' VB.NET邮件发送程序

    ''' 还没用在别的服务器，不晓得能不能行，慎用！

    ''' </summary>

    ''' <param name="sFrom">发件人地址</param>

    ''' <param name="sTo">收件人地址</param>

    ''' <param name="sCc">抄送人地址</param>

    ''' <param name="sBcc">密件抄送人地址</param>

    ''' <param name="sSubject">邮件主题</param>

    ''' <param name="sBody">邮件内容</param>

    ''' <returns></returns>

    ''' <remarks></remarks>

    Protected Function SendMailBySmtp(ByVal sFrom As String, ByVal sTo As String(), ByVal sCc As String(), ByVal sBcc As String(), ByVal sSubject As String, ByVal sBody As String) As String

        Dim sSmtpServer As String = "192.168.1.1"   'SMTP邮件服务器地址

        Try

            '使用SMTP认证的方式寄信,才不会被当作Relay

            Dim SmtpUser As New System.Net.NetworkCredential()

            '认证账号不必与寄信人相同,在此设定某一个公用账号即可

            SmtpUser.UserName = "******"    'SMTP服务器的window验证帐号

            SmtpUser.Password = "******"    'SMTP服务器的window验证密码

            SmtpUser.Domain = "********"    'SMTP服务器的域

            Dim smtpClient As New System.Net.Mail.SmtpClient()

            smtpClient.Host = sSmtpServer

            '发件人地址

            Dim AddrMailFrom As New System.Net.Mail.MailAddress(sFrom, "", System.Text.Encoding.UTF8)

            '收件人地址

            Dim AddrMailTo As New System.Net.Mail.MailAddress(sTo(0), "", System.Text.Encoding.UTF8)

            '邮件消息对象 

            Dim mailMsg As New System.Net.Mail.MailMessage(AddrMailFrom, AddrMailTo)

            '添加多个收件人地址

            Dim i As Long

            For i = 1 To sTo.Length - 1

                If Trim(sTo(i)) <> "" Then

                    mailMsg.To.Add(Trim(sTo(i)))

                End If

            Next i

            '添加抄送收件人地址

            Dim j As Long

            If Not (sCc Is Nothing) Then    '注意是空还是nothing

                For j = 0 To sCc.Length - 1

                    If Trim(sCc(j)) <> "" Then

                        mailMsg.CC.Add(Trim(sCc(j)))

                    End If

                Next j

            End If

            '添加密件抄送地址

            Dim k As Long

            If Not (sBcc Is Nothing) Then    '注意是空还是nothing

                For k = 0 To sBcc.Length - 1

                    If Trim(sBcc(k)) <> "" Then

                        mailMsg.Bcc.Add(Trim(sBcc(k)))

                    End If

                Next k

            End If

            mailMsg.Body = sBody '邮件内容

            mailMsg.BodyEncoding = System.Text.Encoding.UTF8 '设置邮件内容编码方式

            mailMsg.IsBodyHtml = True '设置邮件内容以HTML形式发送

            mailMsg.Subject = sSubject '邮件主题

            mailMsg.BodyEncoding = System.Text.Encoding.UTF8 '设置邮件主题编码方式

            '加注回复地址

            mailMsg.ReplyTo = AddrMailFrom

            Dim client As Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient(sSmtpServer)

            client.UseDefaultCredentials = False

            client.Credentials = SmtpUser

            client.Host = sSmtpServer

            client.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network

            client.Send(mailMsg)

            ''设置用于发送电子邮件的凭据

            'smtpClient.Credentials = System.Net.CredentialCache.DefaultNetworkCredentials     '当前安全上下文的网络凭证

            ''将指定的邮件发送到SMTP服务器以便传送

            'smtpClient.Send(mailMsg)

            'smtpClient.UseDefaultCredentials = True

            'smtpClient.EnableSsl = True

            Return "OK"

        Catch ex As Exception

            Return ex.Message

        Finally

        End Try

        Return Nothing

    End Function