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