Solar fórum

Kód: Vybrat vše

// Send Mail activated by DoMail global variable
// Type of the message is
VAR_GLOBAL CONSTANT
  MESSAGE_BODY_ROWS : USINT := 4;
END_VAR


PROGRAM SendMail
  VAR
    SmtpName : STRING := 'smtp.t-email.cz';
    SmtpIP : TIPadr;
    NsLookUp : fbNsLookUpEx;
    Smtp : fbSmtp;
    Sender : STRING := 'HA@msds.cz';
    SenderName : STRING := 'HA';
    UserName : STRING := '';
    Password : STRING := '';
    Recipient : STRING := 'martin.saly@atlas.cz';
    SubjectText : STRING;
    Attachment : STRING;
    NumberOfLines : USINT := MESSAGE_BODY_ROWS;
    Body : Array[1..MESSAGE_BODY_ROWS] OF STRING;
  END_VAR

  Body[1] := CONCAT('HA status report, ', DT_TO_STRINGF(in := GetDateTime(), format := '%TDD.MM.YYYY$A0hh:mm:ss'));
  Body[2] := MailHeadline;
  Body[3] := concat('Statusy XTM: ', REAL_TO_STRINGF(in := gs_xtm1_status, format := '%1.0f'), ',', REAL_TO_STRINGF(in := gs_xtm2_status, format := '%1.0f'), ',', REAL_TO_STRINGF(in := gs_xtm3_status, format := '%1.0f'));
  Body[4] := concat('Teplota v garáži: ', REAL_TO_STRINGF(in := TempIn, format := '%1.0f'),'°C');
  NsLookUp(getIP := DoMail, DnsIP := STRING_TO_IPADR('8.8.8.8'), Name := SmtpName, IP := SmtpIP);
  SubjectText := concat('HA Status: ', MailHeadline);
  // Attachement := 'WWW/PICT/' + INT_TO_STRINGF(in := PictIndxCam - 1, format := 'CAM%04d.JPG');
  Attachment := '';
  Smtp(Send := NsLookUp.Done, Auth := false, chanCode := ETH2_UNI2, IPadr := SmtpIP, Lines := NumberOfLines, Sender := Sender, SendName := SenderName, Rcpt := Recipient, Subject := SubjectText, Attach := Attachment, Username := UserName, Password := Password, Text := Body[1]);
  IF not Smtp.busy THEN
    DoMail := false;
  END_IF;
END_PROGRAM

Kód: Vybrat vše

// Send Mail activated by DoMail global variable
// Type of the message is
VAR_GLOBAL CONSTANT
  MESSAGE_BODY_ROWS : USINT := 2;
END_VAR


PROGRAM SendMail
  VAR
    SmtpName : STRING := 'smtp.t-email.cz';
    SmtpIP : TIPadr;
    NsLookUp : fbNsLookUpEx;
    Smtp : fbSmtp;
    Sender : STRING := 'ha@msaly.cz';
    SenderName : STRING := 'HA';
    UserName : STRING := '';
    Password : STRING := '';
    Recipient : STRING := 'ms@msaly.cz';
    SubjectText : STRING;
    Attachement : STRING := '';
    Body : Array[1..MESSAGE_BODY_ROWS] OF STRING;
  END_VAR

 Body[1] := 'asdf';
//  Body[1] := CONCAT('HA status report, ', DT_TO_STRINGF(in := GetDateTime(), format := '%TDD.MM.YYYY$A0hh:mm:ss'));
//  Body[2] := MailHeadline;
//  Body[3] := concat('Statusy XTM: ', REAL_TO_STRINGF(in := gs_xtm1_status, format := '%1.0f'), ',', REAL_TO_STRINGF(in := gs_xtm2_status, format := '%1.0f'), ',', REAL_TO_STRINGF(in := gs_xtm3_status, format := '%1.0f'));
//  Body[4] := concat('Teplota v garáži: ', REAL_TO_STRINGF(in := TempIn, format := '%1.0f'),'°C');
  NsLookUp(getIP := DoMail, DnsIP := STRING_TO_IPADR('8.8.8.8'), Name := SmtpName, IP := SmtpIP);
  SubjectText := concat('HA Status: ', MailHeadline);
  // Attachement := 'WWW/PICT/' + INT_TO_STRINGF(in := PictIndxCam - 1, format := 'CAM%04d.JPG');
  Attachement := '';
  Smtp(Send := NsLookUp.Done, Auth := false, chanCode := ETH2_UNI2, IPadr := SmtpIP, Lines := MESSAGE_BODY_ROWS, Sender := Sender, SendName := SenderName,
  Rcpt := Recipient, Subject := SubjectText, Attach := Attachement, Username := UserName, Password := Password, Text := Body[1]);
  IF not Smtp.busy THEN
    DoMail := false;
  END_IF;
END_PROGRAM