Free for PREMIUM members
Set objEmail = CreateObject("CDO.Message")objEmail.From = "firstname.lastname@example.org"objEmail.To = "email@example.com"objEmail.Subject = "Secuity Report for " & strServerName objEmail.Textbody = "Server Secutirity Report for" & strServerName & vbCRL & strBodyReportobjEmail.AddAttachment = strFilenameobjEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "10.190.12.128" 'Modify to your SMTP Server AddressobjEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25objEmail.Configuration.Fields.UpdateobjEmail.Send
Open in new window
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
$s_SmtpServer = "mail1"
$s_FromName = "Ealert
$s_FromAddress = "firstname.lastname@example.org"
$s_ToAddress = "email@example.com"
$s_Subject = "********* EMERGENCY ALERT *********"
$as_Body = "Attention all employees. An emergency has taken place that requires evacuation of the building,"
$as_Body = "please proceed in an orderly fashion to the safest exit. Thank you"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, @ComputerName, -1);
$err = @error
If $Response = 1 Then
MsgBox(0, "The Emergency Alerts ", "Mail sent")
MsgBox(0, "Error!", "Mail failed with error code " & $err)
RunWait ("psexec \\PAPC sndrec32 /play /close c:\supervisor.wav")
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.