求一个能收信的JMAIL

900126 2007-08-21 05:41:36
我的邮箱是tccbj@sina.com
或在这里告诉我也可以。
谢谢!
...全文
101 点赞 收藏 4
写回复
4 条回复
littlelam 2007年10月16日

<%
'收邮件
set msg=server.createobject("jmail.message")
set pop3=server.createobject("jmail.pop3")
pop3.connect "hugsleet","5219769","pop.sina.com.cn"
response.write("you have " & pop3.count & "e-mails in your mailbox!<br><br>")
if pop3.count>0 then
set msg=pop3.messages.item(1)
end if

'显示
reto=" "
recc=" "
set recipients=msg.recipients
separator=","
for i=0 to recipients.count-1
if i=recipients.count-1 then
separator=" "
end if
set re=recipients.item(i)
if re.retype=0 then
reto=reto & re.name & " " & re.email & """>"& re.email & separator
else
recc=reto & re.name & " " & re.email & """>"& re.email & separator
end if
next
'显示到网页上
%>
<html>
<head>
<title>
收信
</title>
</head>
<body>
<% for i=0 to recipients.count-1 %>
主题:<% =msg.subject %><br>
发信人:<%=msg.fromname %><br>
收信人:<%=reto %><br>
抄送人:<%=recc %>
<hr>
正文:<br>
<pre> <%=msg.body %> </pre>

<% next %>


</body>
</html>
<% pop3.disconnect %>
回复 点赞
tanyx 2007年10月16日
抽时间试一下。
回复 点赞
newpersonlyy 2007年08月22日
绝对可用的JMAIL发送邮件函数

参数:
s_email: 主要邮件地址
s_email2: 备用邮件地址
s_topic: 邮件主题
s_body: 邮件内容

<%

Function SendEmail(s_email,s_email2,s_topic,s_body)

Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
jmail.logging = true
jmail.Charset = "utf-8"
jmail.ContentType = "text/html"


jmail.AddRecipient s_email

'如果备用邮件地址存在则进行抄送
If isnull(s_email2)=true or s_email2="" Then
Else
jmail.AddRecipientBCC s_email2
End If

jmail.From = "service@fal.hk"
jmail.MailServerUserName = "xxx@xx.xx" '这里是登陆邮箱的帐号,例如 test@126.com
jmail.MailServerPassword = "xxxxx" '这里是登陆邮箱的密码
jmail.Subject = s_topic
jmail.Body = s_body
jmail.Priority = 1
jmail.Send("xxx.xxxx.xxx") '这里是邮件服务器的SMTP地址,例如smtp.126.com
jmail.Close()
set jmail=nothing
End Function

'调用方法:
SendEmail "aspsky@163.com","aspnet@163.com","邮件主题","邮件地址"
%>

也可利用此函数进行群发,不过server.ScriptTimeout 时间要设长些
另外jmail住可以从网上找一个,注册方法如下:
-------------------------------
将jmail.dll文件拷贝到system32目录下
命令运行regsvr32 jmail.dll
---------------------------------
也可以regsvr32 jmail的具体存放路径
回复 点赞
900126 2007年08月22日
谁帮我一下,我从来没有做过JMAIL,想通过JMAIL查询自己的邮箱里的新邮件。
回复 点赞
发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告