求一个能收信的JMAIL

900126 2007-08-21 05:41:36

我的邮箱是tccbj@sina.com
或在这里告诉我也可以。
谢谢！

...全文

165 4 打赏收藏转发到动态举报

写回复

用AI写文章

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