Jmail 範例程式
這支程式碼可以處理複數收件人的郵件寄發，使用密件副本讓收件者看不到你群發給誰。 Function SendMail(source,address,subject,body,smtpip) Dim Sender Dim Charset Dim Region Set jmail = Server.CreateObject("JMail.Message") '寄信前的一些設定 jmail.Charset = "big5" jmail.ContentType = "text/html" jmail.From = source '寄件人 jmail.Subject = subject '郵件主指 jmail.Silent = true jmail.ISOEncodeHeaders = false jmail.HTMLBody = body '//////////////////////////////////////////////////////////////////////////// '加入使用者地址，BCC是密件副本 for i = 0 to ubound(address)-1 jmail.AddRecipientBCC BCC(i) next '設定使用的SMTP的Server需要用到的用戶名稱和密碼。如果不需要寄件認證，可留白。 jmail.MailServerUserName = "exampleuser" jmail.MailServerPassword = "examplepassword" SendMail = jmail.Send(smtpip) '發出郵件 Set jmail = Nothing End Function Dim strContent '郵件內容 Dim BCC '收件人的陣列 strContent = "Something" '設定郵件內容 BCC = ("abc@123.com","cde@456.com",...