在pb下测试成功的dll.
Jmail = Create OLEObject
Jmail.ConnectToNewObject("JMail.Message")
Jmail.Charset = is_charset
Jmail.ISOEncodeHeaders = True
Jmail.silent = True
Jmail.Logging = True
Jmail.From = is_from
Jmail.FromName = is_fromname
Jmail.Subject = is_subject
Jmail.MailServerUserName = is_user
Jmail.MailServerPassword = is_pwd
Jmail.Priority = 3
Jmail.AddRecipient(is_recipient)
Jmail.Body =is_Text + "~r~n"
Jmail.Send(is_host)
Destroy Jmail
