利用VB.net 寄信

' 兩個收件人：GetMail1@gmail.com和GetMail2@gmail.com
        Dim To_Address As String = "GetMail1@gmail.com;GetMail2@gmail.com"
        
        ' 設定SMTPserver
        Dim SMTP_Server As New Mail.SmtpClient("msa.hinet.net")
        Dim Mailmsg As New System.Net.Mail.MailMessage
        Dim MailBodyHtml As String
　
        ' 設定一個信件的附檔
        Dim mail_attachment As New System.Net.Mail.Attachment("Z:\Picutre\nic.jpg")
　
        Mailmsg.IsBodyHtml = True ' 為html內容格式
      
        ' 此信的寄件人
        Mailmsg.From = New Net.Mail.MailAddress("Send@msa.hinet.net", "寄件人")
        Mailmsg.Subject = "主旨"
        MailBodyHtml = "Mail Message First"
        MailBodyHtml &= "Mail Message Second"
        Mailmsg.Body = MailBodyHtml
　
        ' 把附檔加入到Mail
        Mailmsg.Attachments.Add(mail_attachment)
　
        ' 將字串裡的;分為多個收件人
        For Each MA As String In To_Address.Split(";")
            Mailmsg.To.Add(New Net.Mail.MailAddress(MA, "收件人"))
        Next
　
        ' 密件副本收件人
        Mailmsg.Bcc.Add(New Net.Mail.MailAddress("GetMail3@gmail.com", "密件副本"))
        Mailmsg.Priority = Net.Mail.MailPriority.High
　
        ' Smtp(Server) 的帳號與密碼
        SMTP_Server.Credentials = New System.Net.NetworkCredential("ID", "PW")

        SMTP_Server.Send(Mailmsg)