project BLF > class Mail > method GetDefaultSender

function returns character

Description

Returns the default sender for the mail which is stored in <mail>.<SmtpSender> in server.xml

Internal usage


BLF
method Mail.Send

program code (program3/mail.p)

if vcDefaultSender = "NotSet":U then
do:

    assign
        vcDefaultSender = ?
        vhFcComponent = ?.
        
    <M-2 run MainBlock  () in XML>
    assign vhXMLhandle = vhFcComponent.    
    
    <M-1 run ReadXMLNodeValue
       (input  search('server.xml') (icXMLFile), 
        input  'mail' (icStartTag), 
        input  'SmtpSender' (icNodeTag), 
        output vcDefaultSender (ocNodeValue), 
        output viFcReturnSuper (oiReturnStatus)) in XML>
    
    run gipr_DeleteProcedure in vhXMLhandle.
    delete procedure vhXMLHandle.
end.
return vcDefaultSender.