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

是一种常见的邮件发送方式，可以在发送邮件的同时抄送给其他收件人或者将某些收件人隐藏起来。

在vb.net中，可以使用System.Net.Mail命名空间下的SmtpClient和MailMessage类来实现邮件的发送。以下是一个示例代码：

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

在上述代码中，需要替换以下内容：