邮件发送代码

[slove1116]

Public Shared Sub SendMail(ByVal sender As String, ByVal receiver As String, ByVal cc() As String, ByVal subject As String, ByVal content As String)
        '   siteConfigModel = bSiteConfig.GetModel()
        Try
            Dim mail As MailMessage = New MailMessage(sender, receiver)
            Dim smtp As SmtpClient = New SmtpClient("smtp.21cn.com")
            Dim nc As NetworkCredential = New NetworkCredential("[e-mail]", "此处我的邮箱密码")
            mail.Subject = subject
            mail.Body = content
            If Not (cc Is Nothing) Then
                If (cc.Length > 0) Then
                    Dim item As String
                    For Each item In cc
                        mail.CC.Add(item)
                    Next
                End If
            End If
            mail.IsBodyHtml = True
            smtp.Credentials = nc
            smtp.Send(mail)
        Catch ex As SmtpFailedRecipientException
            Throw New Exception(ex.Message)
        End Try
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        SendMail("[e-mail]", "[e-mail]", Nothing, "ssss", "sssssssssssssssssssssss")
    End Sub

这段代码正确么!为什么我老是发送失败!是我的smtp服务器问题还是我代码的问题呢

[outou]

你可以用下面的简单代码做一下测试，看看是不是你的服务器的问题。
'发送者
Dim senderMail As String = "[e-mail]"
'收信者
Dim recipientMail As String = "[e-mail]"
'邮件名
Dim subject As String = "你好"
'内容
Dim body As String = "你好。" + vbCrLf + vbCrLf + "这个是邮件发送测试。"

Dim sc As New System.Net.Mail.SmtpClient()
'指定SMTP服务器
sc.Host = "localhost"
'邮件发送
sc.Send(senderMail, recipientMail, subject, body)