- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- [求助]请教邮件设置及发送问题 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=2350)
-- 发布时间：2010/8/3 11:20:56
-- [求助]请教邮件设置及发送问题
Sub mail()
Set mail = CreateObject("WWSCommon.SmtpMail")
with mail
.name = "中证期货南京客服中心"
.SenderAddress = "redlzg@126.com"
.Subject = "期货日报（长线）——终盘"
.Mailer = "（股指、商品）期货开户、行情咨询 QQ：80779898 电话：025-83282426"
end with
mail.AddReceiver("明心","80779898@qq.com")
mail.AddTextContent("详细请见附件EXCEL")
mail.AppOctStrmContent("D:\\mxrb\\"&Date&".xls")
mail.Sender("pop3.126.com","***","***")
End Sub
测试通过不了，老是在mail.AddReceiver("明心",80779898@qq.com)提示“调用（sub）过程时，不能使用圆括号”
-- 发布时间：2010/8/3 13:08:39
--
Sub mail()
Set mail = CreateObject("WWSCommon.SmtpMail")
with mail
.name = "中证期货南京客服中心"
.SenderAddress = "redlzg@126.com"
.Subject = "期货日报（长线）——终盘"
.Mailer = "（股指、商品）期货开户、行情咨询 QQ：80779898 电话：025-83282426"
end with
call mail.AddReceiver("明心","80779898@qq.com")
call mail.AddTextContent("详细请见附件EXCEL")
call mail.AppOctStrmContent("D:\\mxrb\\"&Date&".xls")
call mail.Sender("pop3.126.com","***","***")
End Sub
这是基本的VBS语法问题，对于子程序，调用时不能使用括号，或者前面加CALL
-- 发布时间：2010/8/3 14:56:34
--
谢谢了。
刚接触VBS，不熟悉。
-- 发布时间：2012/7/20 15:57:56
--
没看明白在哪里该写什么？收件人信息，发件人信息。MAIL.SENDER里填什么啊
-- 发布时间：2012/7/20 16:56:03
--
帮助菜单-》编程信息-》外部对象，看对象的帮助说明
-- 发布时间：2012/7/21 11:36:49
-- 邮件发送功能问题
你好，我最近才刚接触VBS，主要就是在原来基础上加个发送邮件的功能，现在我根据你的提示在重新修改了一下，使用的时候是正常的但是发送不了邮件，我想问一下是不是哪里还有问题啊，你能再帮我看一下吗？感激！！！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:userform1.zip |
-- 发布时间：2012/7/22 12:19:46
--
mail没有name这个属性，是sendername.
过程名称与对象名称不能一致，过程名可改为mailtest
另外，sender方法中的pop3,应该改为smtp
Sub MailTest()
Set mail = CreateObject("WWSCommon.SmtpMail")
with mail
.SenderName = "中证期货南京客服中心"
.SenderAddress = "jason333@sina.com"
.Subject = "期货日报（长线）——终盘"
.Mailer = "（股指、商品）期货开户、行情咨询 QQ：80779898 电话：025-83282426"
end with
call mail.AddReceiver("test","253675026@qq.com")
call mail.AddTextContent("详细请见附件EXCEL")
\'call mail.AppOctStrmContent("D:\\mxrb\\"&Date&".xls")
call mail.Sender("smtp.sina.com","jason333@sina.com","******")
End Sub
以上代码，本人经过测试，可以正常发送邮件，也能正常收到邮件。
-- 发布时间：2013/7/5 18:50:18
--
谢谢，好文，借鉴了