求一个能收信的JMAIL

900126 2007-08-21 05:41:36
我的邮箱是tccbj@sina.com
或在这里告诉我也可以。
谢谢!
...全文
135 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2007-08-21 05:41
社区公告
暂无公告