phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

modified error code returned from RevDotNet call so that it can be logged

Browse Source
This commit is contained in:
Infineon\StieberD 2025-03-19 12:40:30 -07:00 committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 33cd469523
commit 175869df7d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
LSL2/STPROC/EMAIL_SERVICES.txt
View File

@ -57,7 +57,10 @@ Service SendEmail(FromAddress, ToAddress, Subject, Body)
objEmailClient = Create_Class.Net(DotNetHandle, "System.Net.Mail.SmtpClient", 0, EmailServer, 'System.String') objEmailClient = Create_Class.Net(DotNetHandle, "System.Net.Mail.SmtpClient", 0, EmailServer, 'System.String')
If Not(Get_Status(ErrorCode)) then If Not(Get_Status(ErrorCode)) then
rv = Send_Message.Net(objEmailClient, 'Send', objEmailMessage, 'RevDotNet', 0) 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) Free_Class.Net(objEmailClient)
end else end else
ErrorMessage = 'Error in ':Service:' service. Get_Status response: ':ErrorCode ErrorMessage = 'Error in ':Service:' service. Get_Status response: ':ErrorCode