| 123456789101112131415161718192021222324252627282930313233343536373839 |
- /* ---------------------------------------------- */
- /* TEMPTABLE für SendMail */
- /* ---------------------------------------------- */
- DEFINE TEMP-TABLE ttSendMail NO-UNDO
- FIELD cFrom AS CHARACTER
- FIELD cTo AS CHARACTER
- FIELD cCC AS CHARACTER
- FIELD cBC AS CHARACTER
- FIELD cSubject AS CHARACTER
- FIELD cBody AS CHARACTER
- FIELD cAttachedName AS CHARACTER
- FIELD cAttachedFile AS CHARACTER
-
- FIELD cMailServer AS CHARACTER
- FIELD cMailPort AS CHARACTER
- FIELD cMailKonto AS CHARACTER
- FIELD cMailPassw AS CHARACTER
- FIELD cDomaine AS CHARACTER
-
- FIELD lMailAuth AS LOG
- FIELD cAuthUsername AS CHARACTER
- FIELD cAuthPasswort AS CHARACTER
- FIELD lSSLEnabled AS LOGICAL
- FIELD cTargetName AS CHARACTER
- .
- DEFINE VARIABLE httSendMail AS HANDLE NO-UNDO.
- DEFINE VARIABLE cSendMailLog AS CHARACTER NO-UNDO INIT 'C:\TEMP\'.
- DEFINE VARIABLE cMailServer AS CHARACTER NO-UNDO INIT 'smtp.gmail.com'.
- DEFINE VARIABLE cMailPort AS CHARACTER NO-UNDO INIT '587'.
- DEFINE VARIABLE cMailKonto AS CHARACTER NO-UNDO INIT 'anadatprime.info@gmail.com'.
- DEFINE VARIABLE cMailPassw AS CHARACTER NO-UNDO INIT 'Retlaw.7591'.
- DEFINE VARIABLE cMailDomaine AS CHARACTER NO-UNDO INIT ''.
- DEFINE VARIABLE lMailAuth AS LOGICAL NO-UNDO INIT TRUE.
- DEFINE VARIABLE cAuthUserName AS CHARACTER NO-UNDO INIT 'anadatprime.info@gmail.com'.
- DEFINE VARIABLE cAuthPasswort AS CHARACTER NO-UNDO INIT 'lqln scxp gxxu quca'.
- DEFINE VARIABLE cMailFrom AS CHARACTER NO-UNDO INIT 'anadatprime.info@gmail.com'.
- DEFINE VARIABLE lSSLEnable AS LOGICAL NO-UNDO INIT TRUE.
|
