[VB6]JMail的使用

在安裝完JMail之後，要使用寫來寄信有兩種方法，
主要差別在於是否需要驗證，如果你的郵件伺服器寄信是需要驗證的，
但是你卻用smtpmail這種方法，則會出現下面的錯誤：

執行階段錯誤 '-2147418113' (8000ffff)
The message was undeliverable. All servers failed to receive the message

所以必須先搞清楚寄信是否需要驗證哦！

方法一：

Set jmail = CreateObject("jmail.Message") '不可匿名，需驗證
jmail.ISOEncodeHeaders = False
jmail.ContentTransferEncoding = "8bit"
jmail.Charset = "BIG5" '郵件編碼
jmail.ContentType = "text/html" '設定為HTML傳送格式
jmail.Encoding = "base64"
jmail.MimeVersion = "1.0"
jmail.Priority = 3 '傳送優先等級分5級
jmail.From = From '寄件者名稱
jmail.MailServerUserName = "e-paper" '寄件者帳號
jmail.MailServerPassword = "epaper1332" '寄件者密碼
jmail.AddRecipient mailto '收件者Mail Address
jmail.body = body '信件內文
jmail.subject = subject '信件主旨
If attach <> Empty Then jmail.AddAttachment attach '附加檔案
jmail.Send "172.16.5.124" '郵件伺服器
Set jmail = Nothing

方法二：

Set jmail = CreateObject("jmail.smtpmail") '可匿名，不需驗證
jmail.ISOEncodeHeaders = False
jmail.ContentTransferEncoding = "8bit"
jmail.Charset = "BIG5" '郵件編碼
jmail.ContentType = "text/html"
jmail.Encoding = "base64" '設定為HTML傳送格式
jmail.ServerAddress = "172.16.5.254" '郵件伺服器
jmail.MimeVersion = "1.0"
jmail.Priority = 3 '傳送優先等級分5級
jmail.Sender = From '寄件者名稱
jmail.AddRecipient mailto '收件者Mail Address
jmail.body = body '信件內文
jmail.subject = subject '信件主旨
If attach <> Empty Then jmail.AddAttachment attach '附加檔案
jmail.Execute
Set jmail = Nothing