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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → 金字塔断数据发送邮件报警

   

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


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

主题:金字塔断数据发送邮件报警

帅哥哟,离线,有人找我吗?
szjkp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:42 积分:-4 威望:0 精华:0 注册:2012/5/28 17:30:47
金字塔断数据发送邮件报警  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

邮件发送,请参考金字塔自带的

SmtpMail 对象

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
阿火
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 原leevolvo
等级:版主 帖子:2160 积分:10563 威望:0 精华:11 注册:2010/11/3 11:21:19
  发帖心情 Post By:2012/7/20 13:54:28 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
szjkp
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:42 积分:-4 威望:0 精华:0 注册:2012/5/28 17:30:47
  发帖心情 Post By: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

 

 

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


 回到顶部