From 175869df7d05729317cfcb2c78229c17b90a61b6 Mon Sep 17 00:00:00 2001 From: "Infineon\\StieberD" Date: Wed, 19 Mar 2025 12:40:30 -0700 Subject: [PATCH] modified error code returned from RevDotNet call so that it can be logged --- LSL2/STPROC/EMAIL_SERVICES.txt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/LSL2/STPROC/EMAIL_SERVICES.txt b/LSL2/STPROC/EMAIL_SERVICES.txt index f31c033..5514dd8 100644 --- a/LSL2/STPROC/EMAIL_SERVICES.txt +++ b/LSL2/STPROC/EMAIL_SERVICES.txt @@ -57,7 +57,10 @@ Service SendEmail(FromAddress, ToAddress, Subject, Body) objEmailClient = Create_Class.Net(DotNetHandle, "System.Net.Mail.SmtpClient", 0, EmailServer, 'System.String') If Not(Get_Status(ErrorCode)) then rv = Send_Message.Net(objEmailClient, 'Send', objEmailMessage, 'RevDotNet', 0) - If Get_Status(ErrorCode) then ErrorMessage = 'Error in ':Service:' service. Get_Status response: ':ErrorCode + If Get_Status(ErrorCode) then + Convert @FM to ' ' in ErrorCode + ErrorMessage = 'Error in ':Service:' service. Get_Status response: ':ErrorCode + end Free_Class.Net(objEmailClient) end else ErrorMessage = 'Error in ':Service:' service. Get_Status response: ':ErrorCode