| JMAIL（jmail）组件问题集锦 |
|
| 作者：数据中心 文章来源：商易互联 点击数： 更新时间：2006-8-10 22:48:55 |
|
一、Jmail 问题集锦
1、JMAIL的版本是多少？
JMAIL 是免费的4.0版本
2、JMAIL 需要单独的发信服务器吗？
JMAIL 需要设置单独的发信服务器
如：set mail=server.CreateObject("jmail.SMTPMail")
mail.ServerAddress = "mail.domain.com"
3、为什么使用jmail发信时发信失败？
最可能的原因是你指定的发信服务器需要发信认证，而你在程序中没有指定发信用户名和密码，具体的编码为：
set mail=CreateObject("jmail.Message")
mail.Charset ="gb2312"
mail.From ="from@hichina.com"
mail.AddRecipient "to@hichina.com"
mail.MailDomain="mail.hichina.com"
mail.MailServerUserName = " from @hichina.com"
mail.MailServerPassWord = "****"
mail.subject=”test”
mail.body= “欢迎”
'On Error Resume Next
mail.Send("mail.hichina.com")
mail.close()
set mail=nothing
4、Jmail 能发送附件吗？
可以
mail.AddAttachment (replace(server.MapPath("/test.doc"),"",""))
5、 Jmail 可以发送Html格式的邮件吗？
可以,具体看使用手册。
6、Jmail组件实例。
（1）发信服务器需要认证。
'以下的代码是发信服务器需要认证的，例如我们的邮箱服务器
<%
set mail=CreateObject("jmail.Message")
mail.Charset ="gb2312"
mail.From ="test@hichina.com"
mail.AddRecipient "test@hichina.com"
mail.MailDomain="mx.hichina.com"
mail.MailServerUserName = "test@hichina.com"
mail.MailServerPassWord = "*****"
mail.subject=Subject
mail.body= "hi china.com"
On Error Resume Next
mail.Send("mx.hichina.com")
mail.close()
set mail=nothing
response.write "发送成功"
%>
（2）发信服务器不需要认证。
'发信服务器不需要认证的
<%
set mail=server.CreateObject("jmail.SMTPMail")
mail.Charset="gb2312"
mail.ServerAddress = "mx.hichina.com"
mail.Sender="test@hichina.com"
mail.SenderName="test"
mail.AddRecipient("test@sina.com")
mail.Subject ="jmail邮件测试"
mail.body="jmail邮件测试."
mail.Priority="1"
'On Error Resume Next
mail.Execute()
mail.Close
Set mail=nothing
response.write "发送成功"
%>
二、Winhttp Post问题集锦
1、用Winhttp Pos组件Post的内容服务器无法收到结果？
需要在程序中加入如下代码：
http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
具体例子为：
Err.Clear
On Error Resume Next
set http=server.CreateObject("WinHttp.WinHttpRequest.5.1")
http.SetTimeouts 30000,50000,30000,30000
http.Open "POST", "http://test.hichina.com/sms_gateway/sms_api", False
http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.Send(sendStr)
If Err.Number = 0 Then 'POST成功
SendPwd=trim(http.responsetext)
else
SendPwd=-1
end if
http.Abort()
2、Pos组件返回的结果是乱码？
由于中文编码问题，如果返回的结果中含有中文，需要进行编码
vIn=http.responseBody
strReturn = ""
For q = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,q,1))
If ThisCharCode
|
|
|
| 文章录入：admin 责任编辑：admin |
|
上一篇文章： 组件注册后如何使用
下一篇文章： 虚拟主机基本问题集锦 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
┊ 帮助中心首页┊ 万网数据中心帮助┊ 动易使用帮助┊ 联系我们┊
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 
