Beiträge

Hallo,
ich versuche gerade SMTP_CLIENT zum Laufen zu bringen und bekomme nach dem Timeout von 90s immer die Fehlermeldungen
0x0000FF00 und 1 in Fehler_C und Fehler_T. Was, wenn ich es richtig interpretiere auf den Timeout hinweist.
Das Ganze läuft auf einer Beckhoff 5020.

In den Globalen habe ich deshalb hinterlegt:
   (* ------- only for Beckhoff - TwinCat  --------- *)
sSrvNetId : STRING(23) := '';   
sLocalHost : STRING(15) := '192.168.4.253';         


Seht Ihr was noch fehlt?

Danke im voraus
Barns

Code Auswählen Erweitern


VAR
emailversand:SMTP_CLIENT;
testversand:BOOL:=FALSE;
done:BOOL;
busy:BOOL;
error_c:DWORD;
error_t:BYTE;

SERVER:STRING := '<meinbenutzername mit % darin statt @>:<passwort>@smtp.directbox.com:25';
MAILFROM : STRING := '<meine Emailadresse>;Sepp';
SUBJECT : STRING := 'Test';
dns_server:STRING;
dns_serv : DWORD;
text : STRING(STRING_LENGTH) := 'Das ist der Email-Text';
anhang : STRING(STRING_LENGTH) := '';
empfaenger : STRING(STRING_LENGTH) := '<Empfaengeremailadresse>';

abgeschlossen :  BOOL := FALSE;
inArbeit : BOOL := FALSE;
fehler_c : DWORD := 0;
fehler_t : BYTE := 0;
END_VAR

dns_server := '192.168.4.254';
dns_serv := IP4_DECODE(STR:= dns_server );

emailversand(ACTIVATE:=testversand,
TIMEOUT:=T#90s,
DTI:=LokalZeitUndDatum,
DTI_OFFSET:=0,
DNS_IP4:= dns_serv,
SERVER:=SERVER,
MAILFROM:=MAILFROM,
SUBJECT:=SUBJECT,
BODY:= text,
FILES:=anhang,
MAILTO:=empfaenger);

abgeschlossen := emailversand.DONE;
inArbeit := emailversand.BUSY;
fehler_c := emailversand.ERROR_C;
fehler_t := emailversand.ERROR_T;