wincc6.0怎么发邮件,不需要成本的那种

发布网友发布时间：2022-06-09 17:50

共1个回答

热心网友时间：2024-11-08 23:47

http://www.ad.siemens.com.cn/club/bbs/post.asp?b_id=7&a_id=708907
wincc6.0没有发送Email的功能，300的plc需要加模块CP341才能发送Email，其实利用wincc的开放性和vb的实用性，可以为wincc做一个发送Email的控件。

打开vb，新建一个ActiveX控件，在窗口上放置一个picturebox和一个timer控件，图片选以后在wincc上使用的简单明了的图片。编写如下程序：

Sub SendMail(Optional ByVal sSubject As String,_

Optional ByVal sBody As String, _

Optional ByVal sFileName As String)

Shell "regsvr32 /s c:\jmail.dll" '注册jmail，使用前需安装jmail。

Dim jmail

Set jmail = CreateObject("jmail.Message")

jmail.Charset = "gb2312"

jmail.Silent = False

jmail.Priority = 1

jmail.MailServerUserName = "Email帐号"

jmail.MailServerPassWord = "Email密码"

jmail.FromName = "邮件" '发信人姓名

jmail.From = "发邮件地址地址"

jmail.Subject = "电机过载" '标题

jmail.AddRecipient "收信人地址"

jmail.Body = "1#电机过载" '做内容

jmail.Send ("smtp.126.com") 'SMTP服务器，如smtp.sohu.com

Set jmail = Nothing

End Sub

Private Sub Timer1_Timer()

Dim WinCC As Object

Dim xx

Set WinCC = CreateObject("WinCC-Runtime-Project")

xx = WinCC.GetValue("NewTag") '报警触发的变量

If xx = 1 Then

SendMail

End If

End Sub

生成.OCX，简单实用的Email发送控件就做好了。wincc组态时先注册一下这个控件然后添加进去就可以了，当然还可以做出添加变量或者修改邮件内容之类的效果来。