序言
“发送邮件对于Intouch来说很少被用到,只有在特殊时候客户要求才会使用,更多的只是功能上的点缀。并且此功能也非常隐蔽,一般是不会被人所知的功能,对于希望了解学习更多关于Intouch技术的同行来说,这篇文章一定会大有裨益”
目录
使用SendMail()外部函数,配置Outlook邮箱
使用SendSMTPMail()函数、SendSMTPClearConfig()函数、SendSMTPConfig()函数
使用vbs消息脚本
方法一: 使用 SendMail()函数,配置Outlook邮箱
配置Outlook邮箱账户,填写发件人的邮箱地址SendMail()是Intouch的外部函数,编辑如下按钮脚本即可实现:
FileDelete("D:\REPORT.TXT");FileWriteMessage("D:\REPORT.TXT",-1,"我爱我家",1);FileWriteMessage("D:\REPORT.TXT",-1,"我爱工作",1);FileWriteMessage("D:\REPORT.TXT",-1,"我爱Intouch",1);Result = SendMail("收件人邮箱地址","D:\REPORT.TXT");
实现原理是,将需要发送的内容写进txt文件里面,然后发送txt文件到邮箱,在邮箱里面看到的就是txt文件的内容,并没有附件。
方法二:使用 SendSMTPMail()函数,SendSMTPClearConfig()函数,SendSMTPConfig()函数
三个函数都要同时使用,编辑如图所示脚本即可实现:
SendSMTPClearConfig();SendSMTPConfig( "smtp.qq.com", 25, 1, "smtp.qq.com", "Send Address", "Send Password", "Send Name", "Send Address", "HTML", "Unused", "Unused", "Unused", 0, 0);FileDelete( "D:\REPORT.TXT" );FileWriteMessage("D:\REPORT.TXT", -1, $DateString + " " + $TimeString, 1 );FileWriteMessage("D:\REPORT.TXT", -1, "CUB发生漏液报警", 1 );FileWriteMessage("D:\REPORT.TXT", -1, "报警时间", 1 );FileWriteMessage("D:\REPORT.TXT", -1, "当前登陆账号.", 1 );result = SendSMTPMail( "smtp.qq.com", "Send Address", "Receive Address", "Today's Report", "D:\REPORT.TXT");
以上其实是可以同时将邮件?发送到多个收件箱
注意:实例中的SMTP是用的QQ的邮箱?服务器smtp.qq.com,若使用其他邮箱,则需改为其他邮箱的发件服务器。红色框内的信息是需要根据实际情况修改的,邮件内容脚本其实可以省略,可以直接在新建的txt文档里面输入一些信息即可。
方法三: 使用 VBS消息脚本
新建一个后缀为.vbs的文件,比如:SendMail.vbs
NameSpace = "http://schemas.microsoft.com/cdo/configuration/" set Email = CreateObject("CDO.Message") Email.From = "Send Address" '发件人Email.To="Receive Address" '收件人 Email.Subject = "vbsTest" '邮件标题 Email.Textbody = "OK!" '内容 Email.AddAttachment "D:\REPORT.TXT" '附件(目标文件如果不存在会报错) with Email.Configuration.Fields .Item(NameSpace & "sendusing") = 2 .Item(NameSpace & "smtpserver") = "smtp.qq.com" 'SMTP地址 .Item(NameSpace & "smtpserverport") = 25 'SMTP服务器端口 .Item(NameSpace & "smtpauthenticate") = 1 .Item(NameSpace & "sendusername") = "Send Address" '用户名 .Item(NameSpace & "sendpassword") = "*********" '密码 .Update end with Email.Send Msgbox "OK!",64,"OK"
实例中红色字体的信息是需要根据实际修改的,脚本编辑完保存后可以直接双击这个vbs文件进行测试,不久就会收到邮件提醒,这样就测试成功了。
在Intouch中通过脚本来执行此VBS文件,即可发送邮件,
例如:startapp "D\SendMail.vbs";
前两种方法都需要依靠两个文件以提供函数支持:WWTechSp.dll和WWTechSp.wdf 放入到Intouch的安装目录下即可使用。并且这三种方法都需要事先将邮件信息写入到txt文档中才能发送,可能也不限于.txt格式的文档,这个需要多做尝试。
以上就是Intouch发送邮件的基本方法了,仅用此原理当然不能做出好的功能来,需要在此基础上添砖加瓦,比如内容排版,颜色,字体,附件等都可以设置。
本篇希望对Intouch感兴趣的朋友起到一定的帮助作用,谢谢。
end
●InTouch-学习非常实用的手册大全
●InTouch-实时报警、历史报警详细步骤介绍
●Intouch-历史曲线一个不为人知的小“秘密”,真香
●Intouch-自行下拉菜单用法以及系统管理
●Intouch-利用SQL数据库发送邮件真实学习案例
●Intouch-历史报警/操作记录导出为EXCEL实例
●Intouch-历史数据库之报表曲线Historian客户端开发
温馨提示
如果您喜欢本文,请动动小指头分享到朋友圈,想要获得更多技术信息,请关注我。有任何疑问可在留言区 留言。
我们是一群信息技术爱好者,我们乐于分享技术成果,只要能够帮助到更多的人。我们有共同的理想,那就是诗和远方,期待您加入我们,共创辉煌。
--乔柯里
点击 「 阅读原文 」 学习更多~我就知道你“在看”