标题：[求助]请教邮件设置及发送问题

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）过程时，不能使用圆括号”

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

谢谢了。

刚接触VBS，不熟悉。

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

 

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

你好，我最近才刚接触VBS，主要就是在原来基础上加个发送邮件的功能，现在我根据你的提示在重新修改了一下，使用的时候是正常的但是发送不了邮件，我想问一下是不是哪里还有问题啊，你能再帮我看一下吗？感激！！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:userform1.zip

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

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

 

 

谢谢，好文，借鉴了