-> Hier kostenlos registrieren
hab versucht mit WinCC flexible 2008 Emials zu versenden.
Mit der integrierten Funktion von WinCC flexible hab ich das nicht geschafft.
Jetzt hab ich mal nach VB-Script-Code gesucht um Emails zu versenden
und hab folgendes auf technet.Microsoft gefunden.
Irgendwie geht das aber trotzdem nicht.
Die Diagnosemöglichkeiten sind irgendwie = 0!
Hat das schon mal jemand gemacht und weis wie das geht.
hier der VBS Code
Mit der integrierten Funktion von WinCC flexible hab ich das nicht geschafft.
Jetzt hab ich mal nach VB-Script-Code gesucht um Emails zu versenden
und hab folgendes auf technet.Microsoft gefunden.
Irgendwie geht das aber trotzdem nicht.
Die Diagnosemöglichkeiten sind irgendwie = 0!
Hat das schon mal jemand gemacht und weis wie das geht.
hier der VBS Code
Code:
'Create the objects require for sending email using CDO
Set objMail = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
Set objFlds = objConf.Fields
'Set various parameters and properties of CDO object
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
'your smtp server domain or IP address goes here such as smtp.yourdomain.com
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yourdomain.com"
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'default port for email
'uncomment next three lines if you need to use SMTP Authorization
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your-username"
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your-password"
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
objFlds.Update
objMail.Configuration = objConf
objMail.From = "fromEmailAddress@yourdomain.com"
objMail.To = "toEmailAddress@yourdomain.com"
objMail.Subject = "Put your email's subject line here"
objMail.TextBody = "Your email body content goes here"
objMail.Send
'Set all objects to nothing after sending the email
Set objFlds = Nothing
Set objConf = Nothing
Set objMail = Nothing