发送邮件对于Intouch来说很少被用到，只有在特殊时候客户要求才会使用，更多的只是功能上的点缀。并且此功能也非常隐蔽，一般是不会被人所知的功能，对于希望了解学习更多关于Intouch技术的同行来说，这篇文章一定会大有裨益。

在这里只讲三种方法，前两种方法是基于SMTP服务的，后一种方法是借用外部语言结合使用的。可用此进行自我发育，融会贯通，举一反三，做出适合自己的符合项目要求的实现起来更加丰富的发送更快的邮件功能。

Intouch通过内部机制发送数据报表、报警邮件

在这里只讲三种方法，前两种方法是基于SMTP服务的，后一种方法是借用外部语言结合使用的。可用此进行自我发育，融会贯通，举一反三，做出适合自己的符合项目要求的实现起来更加丰富的发送更快的邮件功能。

方法一: 使用 SendMail()函数，配置Outlook邮箱

配置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.139.com" 'SMTP地址 .Item(NameSpace & "smtpserverport") = 25 'SMTP服务器端口 .Item(NameSpace & "smtpauthenticate") = 1 .Item(NameSpace & "sendusername") = "15221575140@139.com" '用户名 .Item(NameSpace & "sendpassword") = "*********" '密码 .Update end with Email.Send Msgbox "OK!",64,"OK"

实例中红色字体的信息是需要根据实际修改的，脚本编辑完保存后可以直接双击这个vbs文件进行测试，不久就会收到邮件提醒，这样就测试成功了。

在Intouch中通过脚本来执行此VBS文件，即可发送邮件，例如：startapp "DSendMail.vbs"；

前两种方法都需要依靠两个文件以提供函数支持：WWTechSp.dll和WWTechSp.wdf 放入到Intouch的安装目录下即可使用。并且这三种方法都需要事先将邮件信息写入到txt文档中才能发送，可能也不限于.txt格式的文档，这个需要多做尝试。

以上就是Intouch发送邮件的基本方法了，仅用此原理当然不能做出好的功能来，需要在此基础上添砖加瓦，比如内容排版，颜色，字体，附件等都可以设置。

本篇希望对Intouch感兴趣的朋友起到一定的帮助作用，后面我陆续展开关于Intouch的其他技术内容的分享，喜欢的请多多关注并给予鼓励，谢谢。