2/5/2010 10:35 AM | |
Joined: 9/27/2007 Last visit: 12/18/2020 Posts: 993 Rating:
|
Hi
regards |
Learn more about visualization - visit the HMI courses of Siemens AG! |
|
2/12/2010 9:59 AM | |
Posts: 7 Rating:
|
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. |
12/30/2015 10:50 AM | |
Joined: 9/1/2005 Last visit: 8/12/2024 Posts: 4104 Rating:
|
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 |
My Forum is the place to personalize your profile, |
|
Follow us on