smtpOpen (Function)

This function will open the SMTP interface. Calling this function is required before the SMTP interface can be used.

Also see smtpClose for closing the SMTP interface when finished with the operations.

Prior to a message sent through smtpSend or smtpSendX, a SMTP configuration must be a set by using smtpSetConfig, and the configured network interface must have been opened using netOpen.

Input:

None.

Returns: INT

Declaration:

FUNCTION smtpOpen : INT;

Example:

INCLUDE rtcu.inc
 
VAR_INPUT
  alarm : BOOL;
END_VAR;
 
VAR
  fired   : BOOL;
END_VAR;
 
PROGRAM example;
VAR
  rc     : INT;
  Subject : STRING;
END_VAR;
 
  gsmPower(power := ON);
  netOpen(iface:=1);
  smtpOpen();
 
BEGIN
  // Is there an alarm
  IF alarm AND NOT fired THEN
     Subject := strFormat(format := "Device \4", v4 := boardSerialNumber());
     rc := smtpSend(Receiver := "devices@alarms.com",
                    Receiver_cc := "cc_devices@alarms.com",
                    Subject := Subject,
                    Message := "Alarm is triggered!");
    IF rc <> 0 THEN
        DebugFmt(message := "Error sending mail (errno=\1)", v1 := rc);
    ELSE
        DebugMsg(message := "Mail sent");
    END_IF;
  END_IF;
  fired := alarm;
END;
END_PROGRAM;