CheckForFreeze[] := Module[{temperatureData, minimumTemperature}, temperatureData = WolframAlpha["temperature Urbana IL", {{"TemperatureChart:WeatherData", 1}, "ComputableData"}]; minimumTemperature = Min[Cases[temperatureData, {Append[Take[DateList[], 3] + {0, 0, 1}, ___], t_} :> t, Infinity]]; If[QuantityMagnitude[UnitConvert[minimumTemperature, "DegreesCelsius"]] < 0, SendFreezeAlertMail[]]] SendFreezeAlertMail[] := SendMail["To" -> "smith@mailprovider.com", "From" -> "smith@mailprovider.com", "Subject" -> "FREEZE ALERT", "Body" -> {"Freezing weather expected tomorrow in Urbana, IL ...", "\n\n", WolframAlpha["temperature Urbana, IL", IncludePods -> "TemperatureChart:WeatherData", AppearanceElements -> {"Pods"}, TimeConstraint -> {30, Automatic, Automatic, Automatic}], "\n\n", "http://www.wolframalpha.com/input/?i=temperature+Urbana+IL"}, "Server" -> "mail.mailprovider.com", "UserName" -> "smith", "Password" -> "xxxxxxx", "EncryptionProtocol" -> "SSL"] ScheduledTask[CloudGet[CloudObject["https://www.wolframcloud.com/objects/3a587649-bc4a-4456-b0b4-c0449b4bdcbc"]]; CheckForFreeze[], DateObject[{_, _, _, 18, _, _}]]