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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 求高手帮忙编写一个VBA代码

   

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

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

主题：求高手帮忙编写一个VBA代码
帅哥哟，离线，有人找我吗？
zjfuwen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：53 积分：258 威望：0 精华：0 注册：2010/12/4 10:46:10 		  发帖心情 Post By：2012/4/10 12:13:41 [显示全部帖子]

申请189邮箱（电信手机用户）或飞信，用vba的发邮件功能就行了

 回到顶部
帅哥哟，离线，有人找我吗？
zjfuwen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：53 积分：258 威望：0 精华：0 注册：2010/12/4 10:46:10 		  发帖心情 Post By：2012/4/10 12:14:39 [显示全部帖子]

qq的不适合远程的

 
 回到顶部
帅哥哟，离线，有人找我吗？
zjfuwen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：53 积分：258 威望：0 精华：0 注册：2010/12/4 10:46:10 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：53 积分：258 威望：0 精华：0 注册：2010/12/4 10:46:10 		  发帖心情 Post By：2012/4/10 12:25:12 [显示全部帖子]

信号出现，激发mailsend，。subject的内容改成你喜好的提示信息就行了，189邮箱收到邮件后，会有短信提醒你的

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.03906 秒, 6 次数据查询