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

办公魔盒

发布于 2019-08-28 07:20:47

1.6K00

代码可运行

文章被收录于专栏：办公魔盒办公魔盒

运行总次数：0

代码可运行

手把手教你用VB.NET 发送电子邮件!

首先打开邮箱的POP3/IMAP/SMTP,获取邮箱授权码,具体操作如下:

1.登录QQ邮箱

2.打开邮箱设置

3.在设置里面找到"账户设置"

4.再找到"POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务"

5.把上面的两个服务打开<POP3/SMTP服务和IMAP/SMTP服务>打开

6.开启后验证密保即可获得邮箱授权码!

代码书写!

邮箱地址验证函数:

   ''' <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