189
sub procedure configuracioncorreo () 'Procedimiento que envía la configuración
dim var1 as byte 'del correo electrónico al módem celular
Usart_Write_Text("AT#LTCPSTOP=1") 'definida por el usuario y operador de
Usart_Write(enter) 'telefonía contratado
Delay_ms(2000)
Usart_Write_Text("AT#DOMAIN="+CHR(0X22)+"amigo.net.gt"+CHR(0X22))
Usart_Write(enter)
Delay_ms(1000)
Usart_Write_Text("AT#SMTPSERV="+CHR(0X22)+"200.49.160.37"+CHR(0X22))
Usart_Write(enter)
Delay_ms(1000)
Usart_Write_Text("AT#SMTPPORT=25")
Usart_Write(enter)
Delay_ms(1000)
Usart_Write_Text("AT#SENDERADDR="+CHR(0X22)+"Notificacioncorreo@test.
com"+CHR(0X22))
Usart_Write(enter)
Delay_ms(1000)
Usart_Write_Text("AT#REC1="+CHR(0X22))
var1 = calculolongitud(0,31)
lecturaeeprom(0,var1)
Usart_Write(CHR(0X22))
Usart_Write(enter)
Delay_ms(1000)
Usart_Write_Text("AT#CCREC1="+CHR(0X22))
var1 = calculolongitud(32,31)
lecturaeeprom(32,var1)
Usart_Write(CHR(0X22))
Usart_Write(enter)
Comentarios a estos manuales