Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

Problems with sending E-mail with VBS script

Created by: Mayank BAISWAR at: 2/3/2010 5:20 AM (5 Replies)

Rating (0)

Thanks 0

6 Entries

2/3/2010 5:20 AM	Rate (0)
Mayank BAISWAR Posts: 7 Rating: (0)	Hello Fellow members, I have been successful with sending emails from WinCC V7.0 using the 'Collaborative Data Objects'. But here lies one problem, it will send the message only if the Internet connectivity is avialable. If the connectivity is not available, it does not even queue the message to send it later, once the connectivity is available. I want it to atleast queue the message to send it later, but sending it without any action from the user. It will be much appreciated if someone can help me with this.
Mayank BAISWAR Posts: 7 Rating: (0)	Last edited by: O_Moderator at: 2/3/2010 1:42 PM new subject after splitting from /tf/WW/en/Posts/2568#top
Suggestion To thank Quote Answer

2/5/2010 10:35 AM	Rate (0)
cumulus Platinum Member Joined: 9/27/2007 Last visit: 12/18/2020 Posts: 993 Rating: (102)	Hi For that you need a cycle action. In the action you callthe funktion to send the e-mail. The content of the e-mail have to be parameter of the function and have tostored in a static tag. If the sendingwas successful, the static variable cleared. If you do not want to run the hole function, you can use astatus variable. If the content.parameter is set, you set the status variable to true. Allways if the status variableis true, you run the hole function. If the sendingwas successful, you set the status variable to false. You can use arrays to store more then on e-mail, but then you need scheduler to send the E-mail (like FIFO) regards cumulus
	Learn more about visualization - visit the HMI courses of Siemens AG! siemens.com/sitrain Basic course WinCC (TIA Portal) machine-based https://support.industry.siemens.com/cs/ww/en/view/109758624 Advanced course WinCC (TIA Portal) machine-based https://support.industry.siemens.com/cs/ww/en/view/109758626 Basic course WinCC Professional https://support.industry.siemens.com/cs/ww/en/view/109758618 Basic course SiVArc (Auto. Generation of HMIs) https://support.industry.siemens.com/cs/ww/en/view/109758628 Basic course Energy Suite https://support.industry.siemens.com/cs/ww/en/view/109755577
Suggestion To thank Quote Answer

2/5/2010 2:44 PM	Rate (0)
GAP Posts: 56 Rating: (0)	hello, I found this example in this forum and work very well.I think that can help you. Dim appOutlook 'As OUTLOOK.APPLICATION Dim mlNewMail 'As MailItem Dim objEntry Dim Text Const addressee = "Email-Address of the addressee" ' Text to be sent Text = "This is an test mail" Set appOutlook = CreateObject("OUTLOOK.APPLICATION") 'Generating and sending an e-mail: Set mlNewMail = appOutlook.CreateItem(0) mlNewMail.Display mlNewMail.To = addressee mlNewMail.Subject = "Message from WinCC" mlNewMail.Body = Text but I have two question: 1- What is Collaborative Data Objects? 2-How do you do that with Collaborative Data Objects?. Thank you Regards GAP
GAP Posts: 56 Rating: (0)
Suggestion To thank Quote Answer

2/12/2010 9:59 AM	Rate (0)
Mayank BAISWAR Posts: 7 Rating: (0)	Collaboration Data Objects (CDO), previously known as OLE Messaging or Active Messaging, is an application programming interface included with Microsoft Windows and Microsoft Exchange Server products. The library allows developers to access the Global Address List and other server objects, in addition to the contents of mailboxes and public folders. Dim objMessage 'This VBScript uses Microsoft® Windows® Collaboration Data Objects (CDO) 'Both VBScript and CDO are integral parts of every Windows series of operating systems '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'create reference to CDO component. Set objMessage = CreateObject("CDO.Message") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'define where SMTP service resides ' if the server is remote set this value to 2 ' if the server is local set this value to 1 ' remember to change to your remote smtp server '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'specify the name of the SMTP server that will be used objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com" 'specify the port to use which is port 25 by default for SMTP objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'if your smtp server requires authentication with a username and password ' then un-comment the next five objMessage settings. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'set the authentication method. In this example we use Basic Authentication (clear-text). 'If we want to use NTLM (Windows Authentication), we would change the number to 2 instead of 1. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'specify the user account to use. A special account is advisable for doing this. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sender@domain.com" 'specify the password that will be sent objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword" 'set that we will not use </span><span style="font-size: 10pt; color: #000020; font-family: Arial">SSL</span><span style="font-size: 10pt; color: #000020; font-family: Arial"> for the communication to the SMTP server. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'set the timeout to 60 seconds. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = "5" objMessage.Configuration.Fields.Update 'fill in subject, sender, receiver, and the text body. objMessage.Subject = "WinCC Message" objMessage.From = "WinCC Mailer" objMessage.To = "recepient@domain.com" objMessage.TextBody = "This is a test message from WinCC......" objMessage.Send The above can be found on many websites.
Mayank BAISWAR Posts: 7 Rating: (0)
Suggestion To thank Quote Answer

2/12/2010 10:05 AM	Rate (0)
Mayank BAISWAR Posts: 7 Rating: (0)	Hi GAP, The code you posted has the MS Outlook Object. There are the following consideration for this; 1. This code does not work for MS Outlook Express which is free on Windows XP 2. I've tested such code for MS Outlook 2003. It does the job MS Outlook 2003 is a part of MS Office suite. Thus, I'll have to consider it's price while quouting the project value to customer, which will inturn increase the project value.
Mayank BAISWAR Posts: 7 Rating: (0)
Suggestion To thank Quote Answer

12/30/2015 10:50 AM	Rate (0)
CS Moderator Moderator Joined: 9/1/2005 Last visit: 11/8/2024 Posts: 4111 Rating: (195)	New question published by Mohamed_Mrizak is split to a separate thread with the subject e-mail to send out alarms to operators - wincc V7.0 SP3. Best regards CS Moderator
	My Forum is the place to personalize your profile, track your topics, and maintain content that interests you. Best regards CS Moderator
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

WinCC Scripting

Follow us on