Inviare email da WinCC

Di seguito un frammento di esempio per inviare email da WinCC

Dim strFrom
Dim strTo
Dim strSub
Dim strBody
Dim strSMTP
Dim objEmail
strFrom = “mittente@dominio1.it”
strTo = “destinatario@dominio2.it”
strSub = “Oggetto del messaggio”
strBody = “Testo del messaggio”

‘Inserisci l’indirizzo IP o il nome del server SMTP
strSMTP = “192.192.192.192″

Set objEmail = CreateObject(”CDO.Message”)
objEmail.From = strFrom
objEmail.To = strTo
objEmail.Subject = strSub
objEmail.Textbody = strBody
objEmail.Configuration.Fields.Item(”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
objEmail.Configuration.Fields.Item(”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = strSMTP

‘Per modificare la porta usare la riga seguente, normalmente non necessaria con valori default
‘objEmail.Configuration.Fields.Item(”http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
objEmail.Configuration.Fields.Update

Le applicazioni sono molteplici sia per l’assistenza (per esempio inviare una email in caso di riavvio del sistema) sia per l’operatore.

Invia l'articolo in formato PDF a PDF
ottobre 23, 2008 | Filed Under BasicScript, Esempi WinCC 

Comments

Leave a Reply