vb.net邮件发送代码

在VB.NET中，你可以使用System.Net.Mail命名空间提供的类来创建并发送电子邮件。下面是一个简单的例子，展示如何使用SmtpClient、MailMessage和Send方法来发送一封基础的邮件：

Imports System.Net.Mail

Module Module1
    Sub Main()
        ' 邮件设置
        Dim smtpServer As New SmtpClient("smtp.example.com") ' 替换为你的SMTP服务器地址
        smtpServer.Port = 587 ' 或者你的SMTP端口，默认是25，SMTP over TLS一般用587
        smtpServer.Credentials = New NetworkCredential("your_username", "your_password") ' 登录信息
        smtpServer.EnableSsl = True ' 如果需要启用SSL连接

        ' 创建邮件消息
        Dim message As New MailMessage()
        message.From = New MailAddress("sender@example.com") ' 发送者的邮箱
        message.To.Add("recipient@example.com") ' 收件人邮箱
        message.Subject = "VB.NET Email Test" ' 主题
        message.Body = "这是一封来自VB.NET的测试邮件" ' 正文内容

        ' 发送邮件
        smtpServer.Send(message)

        Console.WriteLine("Email sent successfully.")
        Console.ReadLine()
    End Sub
End Module