added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

View File

@ -0,0 +1,33 @@
Function Send_SRP_Mail(DocumentPath)
#pragma precomp SRP_PreCompiler
$insert LOGICAL
$insert SRPMail_Inserts
Declare function SRP_Send_Mail
If Assigned(DocumentPath) else DocumentPath = ''
* If DocumentPath NE '' then
* Message = ''
* Message<1> = 'Documents for SRP'
* Message<2> = 'oinotify@infineon.com'
* Message<3> = 'Francois.Rivard@infineon.com'
* Message<3> = 'dbakke@srpcs.com'
* Message<7> = 'TEXT'
* Message<8> = 'Have a nice day!'
* Message<9> = DocumentPath
*
* Config = ''
* Config<1> = SendUsing_Port$
* Config<3> = 25
* Config<4> = 'appmail.eu.infineon.com'
* Config<4> = 'mailrelay-external.infineon.com'
* Config<5> = True$
* Config<6> = 'oinotify@infineon.com'
* Config<7> = 'oinotify1'
* Config<8> = False$
* Result = SRP_Send_Mail(Message, Config)
* end
Return ''