Categorie
BasicScript Esempi WinCC

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.

Lascia un commento

Il tuo indirizzo email non sarĂ  pubblicato. I campi obbligatori sono contrassegnati *