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

手把手教你用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

今天教程就到此了!

本文分享自微信公众号 - VB小源码(vb_xym)

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2019-08-25

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

扫码关注云+社区

领取腾讯云代金券