Instruction manual

Appendix B. EmailSend Using the Gmail Outgoing SMTP Server
BeginProg
Scan (1,Sec,3,0)
Battery (Batt)
PanelTemp (RefTemp,250)
TCDiff (Temp,1,mV2_5C,1,TypeT,RefTemp,True ,0,250,1.0,0)
CallTable TenSecData
NextScan
SlowSequence
Do
Delay (1,1,Sec)
'Approximately every 1 second, check for an email alarm condition
'If the temperature has transitioned from below 27 degC to
'to above 28 degC, send an email alarm message
If AlarmTrigger = False Then
If Temp > 28 Then AlarmTrigger = True
If AlarmTrigger Then
'Create email message body
Message = "Warning!" & CRLF & CRLF
Message = Message & "An alarm condition has been identified. "
Message = Message & "The temperature is " & Temp & " degrees C." & CRLF & CRLF
Message = Message & "Datalogger time is " & Status.Timestamp
'Attempt to send the email message
EmailResult=EmailSend
(ServerAddr,ToAddr,FromAddr,Subject,Message,Attach,UserName,Password,EmailServerResp)
CallTable EmailLog
EndIf
EndIf
If Temp < 27 Then AlarmTrigger=False
Loop
EndProg
B-3