利用vb实现wincc6.0发送Email-技术论坛-工业支持中心-西门子中国

利用vb实现wincc6.0发送Email

塞上雁

帖子

190
精华

1
被关注

14

论坛等级：游侠

注册时间：2008-11-07

普通如何晋级?

利用vb实现wincc6.0发送Email

2702

4

2010-07-08 13:14:18

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组态时先注册一下这个控件然后添加进去就可以了，当然还可以做出添加变量或者修改邮件内容之类的效果来。