用密送发送邮件

时间:2015-09-22 08:49:12

标签: vb.net email bcc

我希望用vb.net发送带有Bcc(盲目抄送)的邮件,但我不知道该怎么做。

这是我的代码:

Function send_MAIL() As Boolean

    Dim smtpServer As New SmtpClient()
    Dim mail As New MailMessage()
    'credenziali per accedere
    smtpServer.Credentials = New Net.NetworkCredential("lllll@live.it", "******")
    'porta del tuo HOST di posta 
    smtpServer.Port = 587
    'SMTP del  HOST di posta 
    smtpServer.Host = "smtp.live.com"
    'SSL
    smtpServer.EnableSsl = True
    'Creiamo la mail da spedire
    mail = New MailMessage()
    'Inserisci l'indirizzo di posta che verrà visualizzato dal destinatario
    mail.From = New MailAddress("ddddd@live.it")
    'Inserisci l'email del destinatario
    mail.To.Add("pppppp@hotmail.it")
    mail.To.Add("llllll@live.it")
    'Inserisci l'oggetto
    mail.Subject = "OGGETTO"
    'testo dell'email 
    mail.Body = "email prova"
    smtpServer.Send(mail)
    Return True
End Function

2 个答案:

答案 0 :(得分:1)

您只需使用Bcc成员即可。

mail.Bcc.Add("mailtobcc@domain.com")

答案 1 :(得分:0)

我用这个:

Dim c As Net.Mail.MailAddress = New Net.Mail.MailAddress(dirección)
myMsg.Bcc.Add(c)

“dirección”是有效的电子邮件地址

希望这可以帮到你。再见!