dumi, vzpomínáš na https://forum.mypower.cz/viewtopic.php? ... 60#p102940
?Zase nemůžu poslat email... Nezměnilo se něco s přechodem na Foxtrot 2? S Foxtrotem 1 to běhá dlouho...
Netušíš, kde by mohla být potíž?
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
.