高级功能研发区-金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  求高手帮忙编写一个VBA代码  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=10693)

--  作者：guotx2010
--  发布时间：2012/3/22 8:25:56
--
弹出窗口，你还是看不到呀，除非你一直在电脑前，一直远程桌面连接。

--  作者：guotx2010
--  发布时间：2012/3/22 13:22:19
--

其实也有办法，就是将成交情况写到数据库中，客户端做个查询程序来查询就行了。

或者将每一笔成交发邮件给自己。

--  作者：g555
--  发布时间：2012/3/31 10:20:00
--
你也可以专门申请一个QQ号，有信息时给你发 QQ 消息，论坛有代码
[此贴子已经被作者于2012-3-31 10:21:23编辑过]

--  作者：zjfuwen
--  发布时间：2012/4/10 12:13:41
--
申请189邮箱（电信手机用户）或飞信，用vba的发邮件功能就行了

--  作者：zjfuwen
--  发布时间：2012/4/10 12:14:39
--

qq的不适合远程的

--  作者：zjfuwen
--  发布时间：2012/4/10 12:22:40
--
\'邮件设置及发送
Sub mailsend()
    Set mail = CreateObject("WWSCommon.SmtpMail")
    with mail
         .Sendername = "zjfuwen"
         .SenderAddress = "zjfuwen@163.com"
         .Subject = "交易信号邮件提醒"
         .Mailer = "港城投资"
    end with
     call mail.AddReceiver("fw","1333650xxxx@189.cn")
   \' call mail.AddTextContent("详细请见附件EXCEL")
   \' call mail.AppOctStrmContent("D:\\stock.xls")
     call mail.Sender("smtp.163.com","zjfuwen","xxxxxx")
     application.MsgOut "邮件发送成功！"
End Sub

--  作者：zjfuwen
--  发布时间：2012/4/10 12:25:12
--
信号出现，激发mailsend，。subject的内容改成你喜好的提示信息就行了，189邮箱收到邮件后，会有短信提醒你的