使用带有CC和BCC的vb.net发送电子邮件

时间:2016-09-17 15:34:31

标签: vb.net email smtp

这是使用vb.net发送电子邮件的代码段:

Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New _
        Net.NetworkCredential("username@gmail.com", "password")
            SmtpServer.Port = 587
            SmtpServer.Host = "smtp.gmail.com"
            mail = New MailMessage()
            mail.From = New MailAddress("YOURusername@gmail.com")
            mail.To.Add("TOADDRESS")
            mail.Subject = "Test Mail"
            mail.Body = "This is for testing SMTP mail from GMAIL"
            SmtpServer.Send(mail)
            MsgBox("mail send")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

我可以添加CC和BCC地址吗?如果是,可能的代码是什么?

1 个答案:

答案 0 :(得分:3)

e_mail.CC.Add("user@domain.com")
e_mail.Bcc.Add("user@domain.com")

从我自己那里得到它:)