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