VB.NET 发送QQ邮件,可用于发送验证码和批量文件,通知信息

   ''' <summary>
    ''' 邮箱地址判断
    ''' </summary>
    ''' <param name="SMAIL"></param>
    ''' <returns></returns>
    Function TF_MAIL(ByVal SMAIL As String) As Boolean
        Try
            Dim TFM As Boolean
            TFM = System.Text.RegularExpressions.Regex.IsMatch(SMAIL, "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*")
            Return TFM
        Catch ex As Exception
            Return False
        End Try
    End Function

    ''' <summary>
    '''邮件发送(因比较简单就不注释了)
    ''' </summary>
    Sub SENDMAIL()
        Dim 发件人 As String = "xxxxxxxxxxx@qq.com"
        Dim 邮件服务器 As String = "smtp.qq.com"
        Dim 邮件受权码 As String = "xxxxxxxxxx" ''邮箱授权码
        Dim 收件人 As String = "xxxxxxxxx@qq.com"
        ''****************************************************
        If TF_MAIL(发件人) = False Then MsgBox("发件人地址有误!", MsgBoxStyle.Critical, "警告") : Exit Sub
        If TF_MAIL(收件人) = False Then MsgBox("收件人地址有误!", MsgBoxStyle.Critical, "警告") : Exit Sub

        ''****************************************************
        Dim sendmail As New MailMessage With {
        .From = New MailAddress(发件人)}
        '---------------------------------------------------
        sendmail.To.Add(New MailAddress(收件人))
        ''-------------------------------------------------
        sendmail.Subject = "VB小源码验证码"
        sendmail.Body = "【VB小源码】您正登录VB小源码APP，验证码为:" & ran.Next(100000, 999999).ToString & "。请在5分钟内完成验证。"
        sendmail.BodyEncoding = System.Text.Encoding.UTF8
        ''-------------------------------------------------
        Dim scl As New SmtpClient With {
            .Host = 邮件服务器,
            .EnableSsl = True,
            .UseDefaultCredentials = False,
            .Credentials = New NetworkCredential(发件人, 邮件受权码)
        }
        scl.Send(sendmail)
    End Sub