Campbell Sierra Wireless RavenXTV, Instruction Manual

Page: 38 / 50

Appendix C. EmailSend Using the Gmail Outgoing SMTP Server
C-2
Most text messages are limited to 160 characters, so any email messages
greater than 160 characters will be truncated.
Email-to-Text Message Gateways
T-Mobile: phonenumber@tmomail.net
Virgin Mobile: phonenumber@vmobl.com
AT&T: phonenumber@txt.att.net
Sprint:
phonenumber@messaging.sprintpcs.com
Verizon: phonenumber@vtext.com
EmailSend Program Example
The following example sends an email message when an alarm condition is
True. Both the CR1000 and Raven modem must be configured as PPP as
described in Appendix B , Configuring the Raven Modem for PPP
(p. B-1)
.
Transport Layer Security (TLS) must be enabled in the datalogger to use the
Gmail mail server.
CRBasic Example C-1. Using EmailSend to Send a Text Message
'Main program variables
Public Batt, RefTemp, Temp
Public Socket AS Long
'declare Email parameter strings (as constants), Message String & Result Variable
Const ServerAddr="smtp.gmail.com:587"
Const UserName="gmail account name"
Const Password="datalogger"
Const ToAddr="datalogger@hotmail.com, 4355551234@vtext.com"
Const FromAddr="gmailaccount@gmail.com"
Const Subject="Email Message Test"
Const Attach=""
Const CRLF = CHR (13)+ CHR (10)
Public Result as String * 100
Public AlarmTrigger As Boolean
Public Message As String * 250
Public EmailSuccess As Boolean
DataTable (TenSecData,True,-1)
DataInterval (0,10,Sec,10)
Sample (1,Batt,FP2)
Sample (1,Temp,FP2)
EndTable
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
Scan (1,sec,1,0)
If AlarmTrigger = False Then
If Temp > 27 Then AlarmTrigger = True
If AlarmTrigger Then
Message = "Warning!" + CRLF + CRLF
Message = M "An alarm condition has been identified. "
Message = M "The temperature is " + Temp + " degrees C." + CRLF + CRLF
Message = M "Datalogger time is " + Status.Timestamp
EmailSuccess=
EmailSend (ServerAddr,ToAddr,FromAddr,Subject,Message,Attach,UserName,Password,Result)
EndIf
EndIf
If Temp < 27 Then AlarmTrigger=False
NextScan
EndProg