Skip to Content

Register Login

工业业务领域支持中心

Technical Forum

Navigation

Daily reports via E-mail

Created by: Antri at: 10/20/2016 10:46 AM (5 Replies)

Rating (3)

Thanks 1

6 Entries

10/20/2016 10:46 AM	Rate (1)
Antri Posts: 45 Rating: (1)	Hello WinCC experts. A client of mine has requested to create a daily report pdf of the operation status of some equipment and send this report via email. We are using WinCC 7.3 Depending of the status of the equipment the email will be sent to different accounts. For example, if motor is OK then send email to main account A@sample.com and CC:green@sample.com. If there’s a warning then send email to main account A@sample.com and CC:yellow@sample.com. If there’s a fault then send email to main account A@sample.com and CC:red@sample.com. I’ve attached a detailed description of what do I need to do (04-DAILY_REPORT.jpg, 05-DAILY_REPORT.pdf) and also some screenshots of my WinCC with the faceplates of motors and instruments. Additionally I would like to create a daily csv file of All Operation data and send it via email to a data storage account (data@sample.com). Also I would like to create a Daily export of all ALARMS csv file and send it via email to the same account. Any help on these topics will be appreciated. Thanks in advance. Attachment Daily_Report.zip (480 Downloads)
Antri Posts: 45 Rating: (1)	Last edited by: Antri at: 10/20/2016 10:47:15 AM
Suggestion To thank Quote Answer

10/20/2016 10:56 AM	Rate (1)
bg2492 Diamond Member Joined: 5/16/2014 Last visit: 9/12/2022 Posts: 7298 Rating: (2172)	Hello Antri, I think you should use the AddOn "Alarm Management System ACC". http://w3.siemens.com/mcms/human-machine-interface/en/visualization-software/scada/wincc-addons/alarm-control-center/Pages/Default.aspx An other possibility maybe the option "WinCC/DataMonitor" http://w3.siemens.com/mcms/human-machine-interface/en/visualization-software/scada/wincc-options/wincc-datamonitor/Pages/Default.aspx Here can you use "Excel Workbooks" for generating reports and "Published Reports" for sending reports per Mail. Regards Georg Berghof
	PS: If this post did really help you, you may use the Rate-button
Suggestion To thank Quote Answer

10/20/2016 1:14 PM	Rate (1)
dwb007 Experienced Member Joined: 1/15/2016 Last visit: 9/11/2024 Posts: 178 Rating: (4)	Hello: You cand send e-mail via Gmail, for example (See script bellow): ********************************************************************************* on error resume next 'To run this script it is necessary to enable a less secure connection in G-mail. 'To do that, access: https://www.google.com/settings/u/1/security/lesssecureapps Const schema = "http://schemas.microsoft.com/cdo/configuration/" Dim oMsg, oConf Set oMsg = CreateObject("CDO.Message") oMsg.From = "youremail@gmail.com" oMsg.To = "Your e-mail address" oMsg.CC = "Your e-mail address in copy" oMsg.BCC = "Your e-mail address in hidden copy" oMsg.Subject = "Test" oMsg.TextBody = "Write one text" oMsg.AddAttachment "C:\Test1.xlsx" ' Configuration and authentication of your Gmail SMTP server Set oConf = oMsg.Configuration oConf.Fields(schema & "smtpserver") = "smtp.gmail.com" oConf.Fields(schema & "smtpserverport") = 465 oConf.Fields(schema & "sendusing") = 2 'Value 2 means send using port oConf.Fields(schema & "smtpauthenticate") = 1 'Value of 1 enables basic authentication oConf.Fields(schema & "smtpusessl") = True oConf.Fields(schema & "sendusername") = "youremail@gmail.com" oConf.Fields(schema & "sendpassword") = "yourpassword" oConf.Fields.Update() oMsg.Send() If Err Then resultMessage = "ERROR " & Err.Number & ": " & Err.Description Err.Clear() Else resultMessage = "The e-mail has been sent!" End If msgBox (resultMessage) ******************************************************************************* You may want to send e-mail via Outlook (See script bellow): ******************************************************************************* Dim appOutlook 'As OUTLOOK.APPLICATION Dim mlNewMail 'As MailItem Set appOutlook = CreateObject("OUTLOOK.APPLICATION") Set mlNewMail = appOutlook.CreateItem(0) mlNewMail.To = "Your e-mail address" mlNewMail.Subject = "E-mail subject" mlNewMail.Body = "Write one text" mlNewMail.Attachments.Add "C:\Test1.xlsx" mlNewMail.Send ********************************************************************************* You have many options to send an e-mail. You need to check what e-mail server is better for you.

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Red_7

3/15/2024 10:32 AM	Rate (0)
jthyge1 Advanced Member Joined: 2/28/2008 Last visit: 10/22/2024 Posts: 264 Rating: (6)	Hi I try to use the script sending a mail using gmail smtp. I use the above script. I get a error 0: , no error description. Is this script still valid? Const schema = "http://schemas.microsoft.com/cdo/configuration/" WinCC 7.5

Suggestion To thank Quote Answer

3/21/2024 9:10 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 10/31/2024 Posts: 14079 Rating: (1764)	jthyge1 Hi I try to use the script sending a mail using gmail smtp. I use the above script. I get a error 0: , no error description. Is this script still valid? Const schema = "http://schemas.microsoft.com/cdo/configuration/" WinCC 7.5 Hello jthyge1 do you have TIA Portal also ? there is an example for sending Mails with a Script in WinCC Professional RT in the HMI Toolbox. I do not have testet it but WinCC Prof is very similar to WinCC V7/8. I would say this should also work similar in WinCC V7/8 https://support.industry.siemens.com/cs/de/en/view/106226404 Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

4/17/2024 9:42 AM	Rate (0)
mittech Experienced Member Joined: 4/29/2017 Last visit: 10/14/2024 Posts: 47 Rating: (1)	Hello, Maybe you can not send because of "oConf.Fields(schema & "smtpusessl") = True" SSL restriction Make SSL code line to "FALSE"

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

Follow us on