[求助]邮件自动传送，与大家一起讨论。（已经解决，并放上源程序供大家参考) - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → [求助]邮件自动传送，与大家一起讨论。（已经解决，并放上源程序供大家参考)

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 700 人关注过本帖

标题：[求助]邮件自动传送，与大家一起讨论。（已经解决，并放上源程序供大家参考 ...

只看楼主加入收藏

clarksjtv

等　级：新手上路
帖　子：98
专家分：0
注　册：2007-5-28

楼主

问题点数：0 回复次数：8

[求助]邮件自动传送，与大家一起讨论。（已经解决，并放上源程序供大家参考)

' Send Mail
Set jmail = CreateObject("JMAIL.Message")
jmail.FromName = "SDA information management system"
jmail.silent = true
jmail.logging = true
jmail.Charset = "GB2312"
jmail.ContentTransferEncoding = "text/html"
jmail.AddRecipient "clark.huang@quan.com"

jmail.From = "sda@quan.com"

jmail.MailServerUserName = "emilie" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "emilieliao" '登录邮件服务器所需的密码
jmail.Priority = 1
jmail.Subject = "Weekly Report of TE"
jmail.Body = ""
jmail.AppendHtml("<html><body><font face='Arial'>")
jmail.AppendHtml("Dear TE Leader,<br><br>        This is the weekly report of week "&j&". See the attach file for more information.")
jmail.AppendHtml("</font></body></html>")
cid = jmail.AddAttachment("C:\Documents and Settings\Administrator\My Documents\"&Year(Now)&" weeklyreport of week "&j&".xls",TRUE)
jmail.Send("SDASRV")
jmail.Close

[此贴子已经被作者于2007-7-18 15:09:48编辑过]

搜索更多相关主题的帖子: 邮件　并放　自动　

2007-07-17 13:34

clarksjtv

等　级：新手上路
帖　子：98
专家分：0
注　册：2007-5-28

第 2 楼

得分:0

问题1.jmail.Subject = "Weekly Report of TE" （让主题从另外一个页面获取，要怎么写？）

问题2.这个例子我是从一个每周发送提取的，我想变成我自己的要怎么使用。
比如收件人，抄送人，主题，正文内容。这些要怎样设置。

2007-07-17 13:38

clarksjtv

等　级：新手上路
帖　子：98
专家分：0
注　册：2007-5-28

第 3 楼

得分:0

我这种方式与大家之前在论坛里面放多网页给出的例子不一样。
1.我不是用外面的邮箱，而是自己配置了邮箱服务器。
2.我这个自动发送邮件功能，是部门内部使用。
3.所以网页给的那种smtp不适用于我。

邮件服务器我用的是ArGoSoft Mail Server

我在1楼的例子已经可以发送邮件到我的公司邮箱了，但是有一点，主题和正文内容，我没有办法接收到。

希望请各位高手指点指占。不胜感激。

2007-07-17 15:40

clarksjtv

等　级：新手上路
帖　子：98
专家分：0
注　册：2007-5-28

第 4 楼

得分:0

大家不要沉默呀，进来提提意见。

2007-07-17 16:23

放任一切

等　级：新手上路
威　望：4
帖　子：217
专家分：0
注　册：2007-3-22

第 5 楼

得分:0

'括号:：发送邮件服务器，邮件接收人，发送人，登录邮箱的用户名，登录邮箱的密码，邮件主题，邮件内容
function sendmail(smtp,sendto,from,user,pwd,subject,body)
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
'加上如下语句，否则还有可能出现乱码的可能性：
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentTransferEncoding = "base64"
jmail.Encoding = "base64"
jmail.ISOEncodeHeaders = false

'jmail.ContentType = "text/html" '邮件的格式为HTML格式 -- 有此句则发送附件时为乱码
jmail.AddRecipient sendto '邮件收件人的地址
jmail.From = from '发件人的E-MAIL地址
jmail.MailServerUserName = user '登录邮件服务器所需的用户名
jmail.MailServerPassword = pwd '登录邮件服务器所需的密码
jmail.Subject = subject '邮件的标题
jmail.Body = body '邮件的内容
jmail.AddAttachment Server.MapPath("login.gif")'附件--不能有此句:jmail.ContentType = "text/html"
Jmail.AddAttachment Server.MapPath("b.rar") '否则附件会变成乱码
jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
if jmail.send(smtp)=false then'执行邮件发送（通过邮件服务器地址）
sendmail=0
else
sendmail=1
end if
jmail.Close
end function

/" target="_blank">http://fanrenyegu.blog./

2007-07-17 16:57

放任一切

等　级：新手上路
威　望：4
帖　子：217
专家分：0
注　册：2007-3-22

第 6 楼

得分:0

看看对你有没有帮助，如果需要的话我这里有JMAIL的文档

/" target="_blank">http://fanrenyegu.blog./

2007-07-17 16:58

clarksjtv

等　级：新手上路
帖　子：98
专家分：0
注　册：2007-5-28

第 7 楼

得分:0

以下是引用放任一切在2007-7-17 16:58:27的发言：
看看对你有没有帮助，如果需要的话我这里有JMAIL的文档

兄弟，你最好能提供Jmail文档给我。

我现在遇到的困难如下。

我有两个页面，
mail.asp 和 post.asp

1.Mail.asp的主题，收件人，和正文是经常变化的。例如收件人第一次是张三，第二次可能是李四。主题根据用户需要填写。正文也是根据用户填写。

2.由于我这个邮件自动传送只用在公司内部，不会挂在网上，且我们公司防火墙已经把SMTP端口给禁止了。所以不能用SMTP.我自己用另外一台电脑做为邮件服务器。
我的公司邮箱可以接受到邮件。但是我不知道用什么语句把主题，收件人，正文内容让我的邮箱收到。

2007-07-18 09:28