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

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

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

' 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编辑过]

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

第 2 楼

得分:0

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

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

第 3 楼

得分:0

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

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

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

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

第 4 楼

得分:0

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

第 5 楼

得分:0

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

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

我现在遇到的困难如下。

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

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

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

第 6 楼

得分:0

问题已经解决，在网上找了一个匿名发邮件的源程序，修改下，我自己就可以使用了。
我也把源程序传上来。供大家参考。

50Lf1BoO.rar (5.28 KB) [求助]邮件自动传送，与大家一起讨论。