Skrypt wysyłający maila :
Set objmail = CreateObject("CDO.Message")
objmail.From = "
Adres poczty elektronicznej jest chroniony przed robotami spamującymi. W przeglądarce musi być włączona obsługa JavaScript, żeby go zobaczyć.
"
objmail.To = "
Adres poczty elektronicznej jest chroniony przed robotami spamującymi. W przeglądarce musi być włączona obsługa JavaScript, żeby go zobaczyć.
"
objmail.Subject = "Service is not working!!!!"
objmail.Textbody = "Something is not working fine -> move your ass "& vbCrLf &"RIGHT NOW!!!"& vbCrLf & vbCrLf &"server is down"
objmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objmail.Configuration.Fields.Item _
Share Link: 
