der cc und bcc arbeitet nicht, dass ich es durch eine von ihnen

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 

End Class

der cc und bcc funktioniert nicht senden kann ich nicht durch cc senden kann nicht noch bcc ist es irgendein Problem mit meinem Code? Der Benutzer kann diesen CC und BCC wie Gmail verwenden.

Answer 1

Nun - Sie setzen CC und BCC, nachdem Sie die E-Mail gesendet haben. Das ist dein Problem. Verschieben Sie die Zeilen:

 


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

 

Bis zu dem Sie Mail.Subject setzen usw.