1

我希望在以下代码中添加密件抄送邮件功能。如何更改以下代码以将自动电子邮件发送到多个电子邮件

    Dim SMTPServer As New SmtpClient()
    Dim Mail As New MailMessage()
    SMTPServer.Credentials = New Net.NetworkCredential(" ")
    SMTPServer.Port = 587
    SMTPServer.Host = " "

    Mail = New MailMessage
    Mail.From = New MailAddress(" ")


    Mail.To.Add(dr("").ToString)

    Mail.Subject = "Patient Assignment"
    Mail.Body = "   "



    SMTPServer.Send(Mail)
4

0 回答 0