added LSL2 stored procedures
This commit is contained in:
33
LSL2/STPROC/SEND_SRP_MAIL.txt
Normal file
33
LSL2/STPROC/SEND_SRP_MAIL.txt
Normal 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 ''
|
Reference in New Issue
Block a user