Hello everybody I need to send an e-mail when a variable (called Fallo_Logo) is at low, that means that there is a communication failure via ethernet.

So I've been looking for scripts and my conclusion is that it has to be as follows:

-------------------------------------------

Dim objEmail    'truly I don't know if this line is necessary

Set objEmail=CreateObject("CDO.Message")
objEmail.From = "mantenimiento1@xxxx.com"
objEmail.To= "abbc@gmail.com"
objEmail.Subject= "WinCC FAULT LOGO"
objEmail.Textbody= "Se ha perdido la comunicación de WinCC con LOGO142."
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2    ' si el servidor es remoto 2, si es local 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =smtp.xxxx.com
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="mantenimiento1@xxxx.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxx"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objEmail.Configuration.Fields.Update

If SmartTags("Logo142\Fallo_Logo")=0 Then    'se manda un correo cuando hay fallo de comunicaciones

objEmail.Send

End If

-------------------------------

Well, the problem is that with this Script the wincc exejute the runtime but I never receive the email in gmail inbox.

And of course I have filled all the gaps in the SMTP configuration area in operation panel configuration.

Anyone can help me? Thanks a lot

Hi,

If wincc flex is so restrictive in port choice, why not write the script using vbs or shell and call that script from wincc? Assuming of course that you don't need to change anything in the message.

Yanto