{ incl/properties.i }
{ incl/ttsendmail.i }

    DEF VAR ipiKnr      AS INT   NO-UNDO INIT 6073.

    DEF VAR cTo         AS CHAR                     NO-UNDO.
    DEF VAR lRetVal     AS LOG                      NO-UNDO.
    DEF VAR cMessage    AS CHAR                     NO-UNDO.
    DEF VAR cSubject    AS CHAR                     NO-UNDO.
    DEF VAR cBody       AS CHAR                     NO-UNDO.

    FIND Adresse NO-LOCK USE-INDEX Adresse-k1
            WHERE Adresse.Firma = '1000'
            AND   Adresse.Knr   = ipiKnr NO-ERROR.
    cTo = cMailToFreigabe.
    
    IF cTo             = '' THEN RETURN.
    IF INDEX(cTo, '@') = 0  THEN RETURN.

    cSubject = SUBSTITUTE('Adressfreigabe Knr &1 ', Adresse.Knr ).
    cBody    = SUBSTITUTE('Die Adresse/der Debitor &1 => &2 muss kontrolliert und frei gegeben werden. ',
                           Adresse.Knr, Adresse.Anzeig_Br ).

    EMPTY TEMP-TABLE ttSendMail.
    CREATE  ttSendMail.
    ASSIGN  ttSendMail.cFrom         = cMailFromFreigabe
            ttSendMail.cTo           = 'wr@adprime.ch'
            ttSendMail.cCC           = ''
            ttSendMail.cSubject      = cSubject
            ttSendMail.cBody         = cBody
            ttSendMail.cAttachedName = ''
            ttSendMail.cMailServer   = cMailServer
            ttSendMail.cMailPort     = cMailPort
            ttSendMail.cMailKonto    = cMailKonto
            ttSendMail.cMailPassw    = cMailPassw
            ttSendMail.cDomaine      = cMailDomaine
            ttSendMail.lAuth         = cMailAuth
            ttSendMail.cUsername     = 'apikey'
            ttSendMail.cPasswort     = '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'.
        
    RUN sendsmtpmail.p ( httSendMail, OUTPUT cMessage, OUTPUT lRetVal ).
    
        MESSAGE cMessage
            VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.