34 lines
893 B
Plaintext
34 lines
893 B
Plaintext
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 ''
|