通过抄送和密件抄送使用vb.net发送电子邮件

Imports System.Net.Mail

Sub SendEmail()
    Try
        Dim fromAddress As New MailAddress("your_email@example.com", "Your Name")
        Dim toAddress As New MailAddress("recipient@example.com", "Recipient Name")
        Dim ccAddress As New MailAddress("cc@example.com", "CC Name")
        Dim bccAddress As New MailAddress("bcc@example.com", "BCC Name")
        Dim fromPassword As String = "your_password"
        Dim subject As String = "Test Email"
        Dim body As String = "This is a test email."

        Dim smtpClient As New SmtpClient()
        smtpClient.Host = "smtp.example.com"
        smtpClient.Port = 587
        smtpClient.EnableSsl = True
        smtpClient.DeliveryMethod = SmtpDeliveryMethod.Network
        smtpClient.UseDefaultCredentials = False
        smtpClient.Credentials = New System.Net.NetworkCredential(fromAddress.Address, fromPassword)

        Dim mail As New MailMessage()
        mail.From = fromAddress
        mail.To.Add(toAddress)
        mail.CC.Add(ccAddress)
        mail.Bcc.Add(bccAddress)
        mail.Subject = subject
        mail.Body = body

        smtpClient.Send(mail)

        Console.WriteLine("Email sent successfully.")
    Catch ex As Exception
        Console.WriteLine("Failed to send email. Error message: " & ex.Message)
    End Try
End Sub