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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 如何在开盘和收盘时发个邮件

   

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

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

主题：如何在开盘和收盘时发个邮件
帅哥哟，离线，有人找我吗？
admin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2010/7/26 7:46:02    Post IP：61.49.254.52[显示全部帖子]

SENDMAIL(CURRENTTIME=090100,'ABC@SINA.COM;XYZ@WEISTOCK.COM','警报','开盘了');
SENDMAIL(CURRENTTIME=145000,'ABC@SINA.COM;XYZ@WEISTOCK.COM','警报','收盘了');

 

如果在1分钟周期做，会在指定时间发送邮件。
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2010/7/26 17:05:46    Post IP：61.49.254.52[显示全部帖子]

加全局变量数据库控制，出现警报后置今日的标志位，然后判断标志位控制当天只发一次预警

 

IF ISLASTBAR THEN
BEGIN
 IF CURRENTTIME=090100 THEN
 BEGIN
  DATE1:=EXTGBDATA('THISOPEN');
  IF DATE1 <> DATE THEN
  BEGIN
   SENDMAIL(1,'ABC@SINA.COM;XYZ@WEISTOCK.COM','警报','开盘了');
   EXTGBDATASET('THISOPEN',DATE);
  END
 END
  
 IF CURRENTTIME=145000 THEN
 BEGIN
  DATE2:=EXTGBDATA('THISCLOSE');
  IF DATE2 <> DATE THEN
  BEGIN
   SENDMAIL(1,'ABC@SINA.COM;XYZ@WEISTOCK.COM','警报','收盘了');
   EXTGBDATASET('THISCLOSE',DATE);
  END
 END
END
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.59375 秒, 7 次数据查询