在近期项目完成后,有遇到情况:类似于语音报警后,中控室人员未及时报告给我们造成了事件的危害升级,以及造成很不好的影响.针对这个情况特此添加语音报警后,自动发送邮件提醒,完善现有的报警机制. 1.函数编写(选自网友脚本) Option Explicit '需要引用 Microsoft CDO for Windows 2000 Library和 Microsoft ActiveX Data Objects 2.5 Library Public Function SendMail(ByVal strF…

在我的先前一篇关于语音报警系统制作的文章中,阐述了如何通过标签组来获得@name@的详细内容,以通过这种方式来进行详细的设备故障播报.经过一段时间的试运行,发现使用标签组的方式会产生较大的耦合,(即当标签组内容或者脚本内容发生错误时,脚本会弹出错误,妨碍了其他脚本的执行) 于是,在现场将所有的绑定标签组的报警脚本修改为直接传参到全局变量,实现解耦. 1.后台调度修改: Private Sub FixEvent2_WhileTrue() '将全局变量PicNumBer赋值为所需要报警的设备名称 D…

在语音模块嵌入了半年左右的时间,经过实际使用发现,代码冗余,重复太多,维护较难,新增也不易,故而对整个框架进行整理,实现简单添加,维护容易的目的. 1.代码优化 1.1构建自定义过程 name 参数代表设备名 tt代表要打开的画面名(故障画面/报警画面) sqll代表要存入数据库的内容(故障/报警) Public Sub Sound(ByVal name As String, ByVal tt As String, ByVal sql As String) On Error Resume Nex…

前言:项目开发的过程中,我们项目需要一个自动发送邮件提醒的小功能,于是简单的研究了一下java的JMail来实现自动发送邮件的功能.已被后期需要参考. 一.准备 实现的原理很简单:发送人 , 中转的邮箱(我以QQ邮箱为例)服务器,收件人及邮件主题内容等信息.我们需要关注这三点就可以了. 1.需要开通QQ邮箱服务的功能,参考:http://blog.csdn.net/binlixia/article/details/52768066 二.具体过程 1.参考链接:http://blog.csdn.n…

工控项目最近升级改造,需要使用Intouch/ifix提供一个语音报警功能.这个不像先前提供的单一的声音报警,业主方要求能详细的提供某某水泵或者是某某设备故障报警,这就要求我们这边对语音解析或者基础控件知识有一定的掌握了.在实现上,一般有两种方法:    第一种使用微软集成的Microsoft Speech SDK(TTS),这种开发成本比较高,需要自己对微软语音进行二次开发. 第二种就是直接使用成熟的轮子啦.经过寻找jTTS Desktop 5(北京捷通)版本完美解决了这个问题.它直接就封装成…

用powershell实现:“倩女幽魂姥姥”版<语音报警系统> ------[第一章 前言]------ win7,及以上版本中,是自带语音库的,系统自带一套女声中文库,一套女声英文库.用powershell调用,从而发音,制作报警系统.是一件太简单的事情,只需要几行代码.$sapi = New-Object -COM Sapi.SpVoice$sapi.Speak("Hello World!")$sapi.Speak("你好!我是计算机合成语音,能说中文了!&q…

---windows服务,---自动发送邮件 邮件发送code #region 发送邮件函数 public void SendMailUseZj() { System.Net.Mail.MailMessage msg = new System.Net.Mail.MailMessage(); string[] mailToUsers = ConfigurationManager.AppSettings["mailToUser"].Split(','); ; i < mailToUs…

Jenkins自动发送邮件配置: 打开"系统管理"--"系统设置" 在"Jenkins Location"设置系统管理员地址(重要:不能省略!) 在"邮件通知"部分配置发送邮件的用户名.密码(注意这里的密码使用的是163邮箱设置的"客户端授权码",不是登陆密码) 勾选"通过发送测试邮件测试配置",填入测试收件人,点击"Test Configuration" 到163邮…

标签(空格分隔): 自动化测试 运行自动化脚本后,会产生测试报告,而将测试报告自动发送给相关人员,能够让对方及时的了解测试情况,查看测试结果. 整个脚本包括三个部分: 生成测试报告 获取最新的测试报告 自动发送邮件 具体的代码实现如下: import os import unittest import smtplib from HTMLTestRunner import HTMLTestRunner from email.mime.text import MIMEText from email.…

使用Excel VBA实现Outlook自动发送邮件 | 在工作上我们都会遇到批量发送邮件的情况,面对重复而规律性的工作,可以使用Excel的VBA实现自动批量化发送邮件.大大减小工作时间,提升工作效率. 工具/原料 Excel Outlook 方法/步骤 打开Excel,将Excel另存为.xlsm(启用宏的文档)格式,如图所示. 生成.xlsm格式的Excel后,在键盘上按Alt+F11,弹出VBA代码编辑器,在当前Excel的文件目录下点击鼠标左键,弹出选择框,选择插入,选取点击模块.如图…