Home Explore Help
Register Sign In
AnalytikDataPRiME
/
GeMIS_WEB
3
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: 1b1c273aba
Branches Tags
GeMIS_WEB
/
include
/
ttsendmail.i

ttsendmail.i 1.7 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839 
  1. /*  ----------------------------------------------  */
    2. 

  2. /*  TEMPTABLE für SendMail                          */
    3. 

  3. /*  ----------------------------------------------  */
    4. 

  4. DEFINE TEMP-TABLE ttSendMail NO-UNDO
    5. 

  5.     FIELD cFrom         AS CHARACTER
    6. 

  6.     FIELD cTo           AS CHARACTER
    7. 

  7.     FIELD cCC           AS CHARACTER
    8. 

  8.     FIELD cBC           AS CHARACTER
    9. 

  9.     FIELD cSubject      AS CHARACTER
    10. 

  10.     FIELD cBody         AS CHARACTER
    11. 

  11.     FIELD cAttachedName AS CHARACTER
    12. 

  12.     FIELD cAttachedFile AS CHARACTER
    13. 

  13.     
    14. 

  14.     FIELD cMailServer   AS CHARACTER
    15. 

  15.     FIELD cMailPort     AS CHARACTER
    16. 

  16.     FIELD cMailKonto    AS CHARACTER
    17. 

  17.     FIELD cMailPassw    AS CHARACTER
    18. 

  18.     FIELD cDomaine      AS CHARACTER
    19. 

  19.     
    20. 

  20.     FIELD lMailAuth     AS LOG
    21. 

  21.     FIELD cAuthUsername AS CHARACTER 
    22. 

  22.     FIELD cAuthPasswort AS CHARACTER
    23. 

  23.     FIELD lSSLEnabled   AS LOGICAL
    24. 

  24.     FIELD cTargetName   AS CHARACTER 
    25. 

  25.     .
    26. 

  26. 

  27. DEFINE VARIABLE httSendMail   AS HANDLE    NO-UNDO.
    28. 

  28. 

  29. DEFINE VARIABLE cSendMailLog  AS CHARACTER NO-UNDO INIT 'C:\TEMP\'.
    30. 

  30. DEFINE VARIABLE cMailServer   AS CHARACTER NO-UNDO INIT 'smtp.gmail.com'.
    31. 

  31. DEFINE VARIABLE cMailPort     AS CHARACTER NO-UNDO INIT '587'.
    32. 

  32. DEFINE VARIABLE cMailKonto    AS CHARACTER NO-UNDO INIT 'anadatprime.info@gmail.com'.
    33. 

  33. DEFINE VARIABLE cMailPassw    AS CHARACTER NO-UNDO INIT 'Retlaw.7591'.
    34. 

  34. DEFINE VARIABLE cMailDomaine  AS CHARACTER NO-UNDO INIT ''.
    35. 

  35. DEFINE VARIABLE lMailAuth     AS LOGICAL   NO-UNDO INIT TRUE.
    36. 

  36. DEFINE VARIABLE cAuthUserName AS CHARACTER NO-UNDO INIT 'anadatprime.info@gmail.com'.
    37. 

  37. DEFINE VARIABLE cAuthPasswort AS CHARACTER NO-UNDO INIT 'lqln scxp gxxu quca'.
    38. 

  38. DEFINE VARIABLE cMailFrom     AS CHARACTER NO-UNDO INIT 'anadatprime.info@gmail.com'.
    39. 

  39. DEFINE VARIABLE lSSLEnable    AS LOGICAL   NO-UNDO INIT TRUE.
    40.