新建的邮件服务器只能发件不能收件_Intouch邮件发送的真实案例，切莫错过的实操尝试...

WONDERWARE INTOUCH 上位机组态技术分享平台

序言

“发送邮件对于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客户端开发

温馨提示

如果您喜欢本文，请动动小指头分享到朋友圈，想要获得更多技术信息，请关注我。有任何疑问可在留言区 留言。

我们是一群信息技术爱好者，我们乐于分享技术成果，只要能够帮助到更多的人。我们有共同的理想，那就是诗和远方，期待您加入我们，共创辉煌。

--乔柯里

点击 「 阅读原文 」 学习更多~   

我就知道你“在看”