mail傳附件
Dim message As New MailMessage("alroy_liao@aocepi.com.tw", "ellen_wu@arimalasers.com", "TEST", "<html><body><font color='red'>傳送HTML標千及附件</font><body></html>") message.BodyEncoding = System.Text.Encoding.Default Dim att As Attachment att = New Attachment("C:\Excel_WebService.xls") message.Attachments.Add(att) Dim emailClient As New SmtpClient("email.aocepi.com.tw") emailClient.Send(message)