ttsendmail.i 948 B

12345678910111213141516171819202122232425262728
  1. /* ---------------------------------------------- */
  2. /* TEMPTABLE für SendMail */
  3. /* ---------------------------------------------- */
  4. DEFINE TEMP-TABLE ttSendMail NO-UNDO
  5. FIELD cFrom AS CHARACTER
  6. FIELD cTo AS CHARACTER
  7. FIELD cCC AS CHARACTER
  8. FIELD cBC AS CHARACTER
  9. FIELD cSubject AS CHARACTER
  10. FIELD cBody AS CHARACTER
  11. FIELD cAttachedName AS CHARACTER
  12. FIELD cAttachedFile AS CHARACTER
  13. FIELD cMailServer AS CHARACTER
  14. FIELD cMailPort AS CHARACTER
  15. FIELD cMailKonto AS CHARACTER
  16. FIELD cMailPassw AS CHARACTER
  17. FIELD cDomaine AS CHARACTER
  18. FIELD lAuth AS LOG
  19. FIELD cAuthUsername AS CHARACTER
  20. FIELD cAuthPasswort AS CHARACTER
  21. FIELD lSSLEnabled AS LOGICAL
  22. .
  23. DEFINE VARIABLE httSendMail AS HANDLE NO-UNDO.
  24. httSendMail = TEMP-TABLE ttSendMail:DEFAULT-BUFFER-HANDLE.