以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  金字塔软件问题提交  (http://222.73.7.161/bbs/list.asp?boardid=2)
----  金字塔断数据发送邮件报警  (http://222.73.7.161/bbs/dispbbs.asp?boardid=2&id=13013)

--  作者:szjkp
--  发布时间:2012/7/20 11:54:40
--  金字塔断数据发送邮件报警

  我想在下面这个链接里的软件里加入一个当数据中断后除了有发出警报的声音外还能往邮箱里发送邮件的功能,但是现在把这个程序段复制到原来的软件里,运行会报错,(在没断网的情况下)

 

名位大侠能帮我指导指导吗?

 

 

论坛地址:http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=6911&replyID=&skin=1

 

软件下载地址:http://www.weistock.com/download/alam.rar

Sub Form_Load()
    dim NameS \'As String
    dim Email \'As Object
    
    NameS = "http://schemas.microsoft.com/cdo/configuration/"
    set Email = CreateObject("CDO.Message")
    Email.From = "5468755@qq.com"  \'
发件人的邮箱地址
    Email.To = "85475695@qq.com"     \'
收件人的邮箱地址
    Email.Subject = "
VB代码发的邮件!" \'邮件标题
    Email.Textbody = "
你收到用VB代码发送的邮件了!" \'邮件内容
    Email.Configuration.Fields.Item(NameS & "sendusing") = 2
    Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com" \'
邮件发送服务器
    Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25 \'
邮件发送服务器开放的端口号    
    Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
    Email.Configuration.Fields.Item(NameS & "sendusername") = "5468755" \'
发件人的帐号
    Email.Configuration.Fields.Item(NameS & "sendpassword") = "******" \'
发件人的密码
    Email.Configuration.Fields.Update
    Email.Send
    
End Sub 

 


此主题相关图片如下:11.jpg
按此在新窗口浏览图片

此主题相关图片如下:12.jpg
按此在新窗口浏览图片

--  作者:admin
--  发布时间:2012/7/20 12:55:15
--  
邮件发送,请参考金字塔自带的

SmtpMail 对象

 

参考 http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=2350


--  作者:阿火
--  发布时间:2012/7/20 13:54:28
--  

金字塔不是有sendmail函数吗,用这个就行了。


--  作者:szjkp
--  发布时间:2012/7/20 16:33:51
--  
谢谢你的提醒,我对vb方面的编程太差了,我从你写的程序里取出了一段,把这个放到你写的数据中断报警的程序里,但是程序会报错的,是怎么回事呢?我做了一些修改

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.Sender("pop3.126.com","***","***")
End 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.Sender("pop3.126.com","***","***")        //这行表示什么意思啊
End Sub

 

 

新手刚来,很多都不懂请你指教一下。把后面加个注释可以吗?