欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]请教邮件设置及发送问题

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有7959人关注过本帖树形打印复制链接

主题：[求助]请教邮件设置及发送问题
帅哥哟，离线，有人找我吗？
明心
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：274 积分：841 威望：0 精华：10 注册：2010/7/12 15:25:05 		[求助]请教邮件设置及发送问题  发帖心情 Post By：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）过程时，不能使用圆括号”
 回到顶部
帅哥，在线噢！
admin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
明心
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：274 积分：841 威望：0 精华：10 注册：2010/7/12 15:25:05 		  发帖心情 Post By：2010/8/3 14:56:34 [只看该作者]

谢谢了。

刚接触VBS，不熟悉。
 回到顶部
帅哥哟，离线，有人找我吗？
szjkp
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：42 积分：-4 威望：0 精华：0 注册：2012/5/28 17:30:47 		  发帖心情 Post By：2012/7/20 15:57:56 [只看该作者]

没看明白在哪里该写什么？收件人信息，发件人信息。MAIL.SENDER里填什么啊

 
 回到顶部
帅哥，在线噢！
admin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2012/7/20 16:56:03 [只看该作者]

帮助菜单-》编程信息-》外部对象，看对象的帮助说明

 回到顶部
帅哥哟，离线，有人找我吗？
szjkp
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：42 积分：-4 威望：0 精华：0 注册：2012/5/28 17:30:47 		邮件发送功能问题  发帖心情 Post By：2012/7/21 11:36:49 [只看该作者]

你好，我最近才刚接触VBS，主要就是在原来基础上加个发送邮件的功能，现在我根据你的提示在重新修改了一下，使用的时候是正常的但是发送不了邮件，我想问一下是不是哪里还有问题啊，你能再帮我看一下吗？感激！！！！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:userform1.zip
 回到顶部
帅哥哟，离线，有人找我吗？
guotx2010
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：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

以上代码，本人经过测试，可以正常发送邮件，也能正常收到邮件。

 

 

[此贴子已经被作者于2012-7-22 12:30:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
klc
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：993 积分：1787 威望：0 精华：5 注册：2012/11/28 17:37:20 		  发帖心情 Post By：2013/7/5 18:50:18 [只看该作者]

谢谢，好文，借鉴了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.15576 秒, 6 次数据查询