Configurazione di JT ALERT, personalizzarlo come un allarme a distanza sul nostro smartphone in caso di decodifica su una determinata banda e modo.
Script qui sotto ...
===============================================================================
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0 'Nessun tipo di autentificazione
Const cdoBasic = 1 ' autentificazione base
Const cdoNTLM = 2 'NTLM
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Prova Mail Vbscript"
objMessage.From = "email del mittente "
objMessage.To = "email destinatario"
'objMessage.CC=""
'objMessage.BCC=""
objMessage.TextBody = " testo personalizzato "
'objMessage.Attachments="C:\Script\ABBN\Documento.ini"
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/conf...") = 2
'nome del server smtp
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/conf...") = "smtp.(provider).com"
'Tipo di autentificazione nessuna , Base , NTLM
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/conf...") = cdoBasic
'NomeUtente registrato nel server smtp
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/conf...") = "user"
'Password
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/conf...") = "password"
' Porta del Server
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/conf...") = 465
'Usa SSL Per la connessione (False or True)
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/conf...") = True
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/conf...") = 60
objMessage.Configuration.Fields.Update
objMessage.Send