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 ''