ns=2;s=DEPRAG Smart/Network/EMailClient/SendWithAttachments
Dieser Befehl sendet eine E-Mail-Nachricht mit Anhängen an alle im Feld MailAddressTo hinterlegten E-Mail-Adressen. Dateianhänge werden im Feld AttachmentFilePaths übergeben. Vor Verwendung der Funktionalität muss der SMTP-Server in den Einstellungen SmtpServerSettings gesetzt werden.
Neben den bereits erläuterten Parametern sind für die Implementierung in TwinCAT 3 nachfolgende Variablen anzulegen / zu übergeben:
VAR
EmailAddressArray : ARRAY[1..50] OF STRING(255) := ['employee@example.com'];
EmailAttachmentsArray : ARRAY[1..50] OF STRING(255) := ['C:\Test\text.txt'];
bEMailClientSendWithAttachments : BOOL;
OutputDataEMailClientSendWithAttachments : ST_VoidOutputData;
hrEMailClientSend : HRESULT;
testShortByteArray : ARRAY[1..10] OF BYTE := [84, 101, 115, 116];
testLongByteArray : ARRAY[1..1000] OF BYTE := [84, 101, 115, 116, 255, 84, 255];
fbEMailClient : FB_EMailClient;
END_VAR
hrEMailClientSendWithAttachments := fbEMailClient.EMailClientSendWithAttachments(
bExecute := bEMailClientSendWithAttachments,
ConnectionHandle := depragSmartConnection.ConnectionHandle,
sMailAdressFrom := 'test@deprag.de',
MailAddressTo := EmailAddressArray,
nNumberOfAddressesToMailTo := 1,
sSubject := ADR(testShortByteArray),
SizeOfSubject := SIZEOF(testShortByteArray),
sContent := ADR(testLongByteArray),
SizeOfContent := SIZEOF(testLongByteArray),
AttachmentFilePaths := EmailAttachmentsArray,
nNumberOfAttachmentFilePaths := 1,
OutputData => OutputDataEMailClientSendWithAttachments);
IF hrEMailClientSendWithAttachments <> S_FALSE THEN
bEMailClientSendWithAttachments := FALSE;
END_IF
Für Beispiele und Erklärungen bezüglich der Aufrufe von Knoten via Siemens TIA Portal sei an dieser Stelle auf den Unterpunkt "Siemens TIA Portal" in Abschnitt "Erste Schritte" verwiesen.