vb.net qq邮箱 发信

使用VB.NET发送 QQ 邮箱邮件的步骤如下：

1. 首先，导入 System.Net 和 System.Net.Mail 命名空间，以便于使用相关的类和方法。
2. 创建一个新的 SmtpClient 对象，并将其 Host 属性设置为 QQ 邮箱的SMTP服务器地址“smtp.qq.com”。
3. 设置 SmtpClient 的 Port 属性为 587，使用 QQ 邮箱的TLS加密连接。
4. 创建一个新的 MailMessage 对象，并设置其 From 属性为发件人的邮箱地址，To 属性为收件人的邮箱地址。
5. 设置 MailMessage 的 Subject 属性为邮件的主题，Body 属性为邮件的正文内容。
6. 调用 SmtpClient 的 Credentials 属性并设置其值为一个 NetworkCredential 对象，其中包含发件人的邮箱地址和密码。
7. 最后，调用 SmtpClient 的 Send 方法发送邮件。

以下是一个简单的示例代码：

Imports System.Net
Imports System.Net.Mail

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fromEmail As String = "your_email@qq.com"
        Dim password As String = "your_password"
        Dim toEmail As String = "recipient_email@example.com"

        Dim smtpClient As New SmtpClient("smtp.qq.com")
        smtpClient.Port = 587
        smtpClient.UseDefaultCredentials = False
        smtpClient.Credentials = New NetworkCredential(fromEmail, password)
        smtpClient.EnableSsl = True

        Dim mail As New MailMessage(fromEmail, toEmail)
        mail.Subject = "VB.NET QQ 邮箱发送邮件测试"
        mail.Body = "这是一封来自 VB.NET 的测试邮件"

        smtpClient.Send(mail)

        MessageBox.Show("邮件发送成功！")
    End Sub
End Class

根据你的实际情况，你需要将代码中的 "your_email@qq.com" 和 "your_password" 替换为你自己的 QQ 邮箱地址和密码，"recipient_email@example.com" 替换为你想要发送邮件的收件人邮箱地址。

请注意，为了确保邮件发送成功，你需要确保你的 QQ 邮箱已经开启了 SMTP 服务，并且在代码中使用了正确的邮箱地址和密码。