求vb.net可以发邮件的代码，网上找了很多，都不行啊，帮看下代码，有问题吗

--------------------编程问答-------------------- --------------------编程问答-------------------- 各位大神，帮一帮啊 --------------------编程问答-------------------- 论坛的大婶们，出来冒泡了，急求 --------------------编程问答-------------------- Dim sc As New SmtpClient
        sc.Credentials = New NetworkCredential("这里用户名", "这里密码")
        sc.Port = 25
        sc.Host = "smtp.126.com"
        Try
            sc.Send(Initial(Me.txtReciever.Text))
            MsgBox("发送已成功")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally

        End Try

Public Function Initial(ByVal Address As String) As MailMessage
        Dim m_Mail As New MailMessage()
        '发件人
        m_Mail.From = New MailAddress("这里是发件人邮箱")
        '收件人
        m_Mail.[To].Add(New MailAddress(Address))
        '主题
        m_Mail.Subject = "短信群发"
        '内容
        m_Mail.Body = txtContent.Text
        '邮件主题和正文编码格式
        m_Mail.SubjectEncoding = System.Text.Encoding.UTF8
        m_Mail.BodyEncoding = System.Text.Encoding.UTF8
        '邮件正文是Html编码
        m_Mail.IsBodyHtml = True
        '优先级
        m_Mail.Priority = System.Net.Mail.MailPriority.High
        '添加附件
        If File.Exists(Application.StartupPath & "\Tmp\file.txt") = True Then
            m_Mail.Attachments.Add(New Attachment(Application.StartupPath & "\Tmp\file.txt"))
        End If
        '添加附件,可以添加多个
        'm_Mail.Attachments.Add(New Attachment("f:\1.txt"))
        '密件抄送收件人
        'm_Mail.Bcc.Add(Address)
        '抄送收件人
        'm_Mail.CC.Add(Address)

        Return (m_Mail)
    End Function --------------------编程问答-------------------- 还有命名空间
Imports System.Net
Imports System.Net.Mail

补充：.NET技术 ,  VB.NET