求一个能收信的JMAIL

2007-08-21 05:41:36 229 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

900126 墨衍会员 · AI 创作全网分发关注 + 加入社区

Jmail 介绍及其利用Jmail接收邮件（C#）阅读详情

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

...全文

ASP使用Jmail组件发送电子邮件的代码最近网站需要新增某项操作触发自动发送邮件功能，上网查了一些资料，需要ASP网站的服务器包含相应功能的组件，一般Jmail组件使用的比较普遍。找到了以下两组使用Jmail发送邮件的代码。使用方法：替换相应的内容，直接放到ASP网页中即可。代码一： &lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%&gt; &lt;% Set msg=Server.Creat... 阅读详情

900126

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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查询自己的邮箱里的新邮件。

求一个能收信的JMAIL

相关推荐