1、注冊jmail.dll 方法：在運行中輸入： regsvr32 路徑\jmail.dll

2、示例代碼：

oleobject jmail

Jmail = Create OLEObject

Jmail.ConnectToNewObject("JMail.Message")

Jmail.Charset = ls_charset //中文用 “GB2312”

Jmail.ISOEncodeHeaders = True

Jmail.silent = True

Jmail.Logging = True

Jmail.From = ls_user //發(fā)件人郵箱

Jmail.FromName = ls_mail_fr //發(fā)件人

Jmail.Subject = ls_subject //郵件主題

Jmail.MailServerUserName = ls_user //發(fā)件郵箱登錄賬戶

Jmail.MailServerPassword = ls_pwd //發(fā)件郵箱用戶密碼

Jmail.Priority = 3 //優(yōu)先級

Jmail.AddRecipient(ls_mail_to) //收件人郵箱

Jmail.Body =ls_Text + "~r~n" //郵件內(nèi)容

IF Jmail.Send(ls_host) THEN //ls_host為發(fā)件郵箱服務(wù)器

messagebox('Info',"發(fā)送成功！")

ELSE

messagebox('Info',"發(fā)送失?。?)

END IF

Jmail.Close()

Destroy Jmail

本文發(fā)布于2013年01月08日02:19，已經(jīng)過了4591天，若內(nèi)容或圖片失效，請留言反饋