home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / sharewar / gdidbpro / data1.cab / Example_Files / projects / default / mailshot.scp < prev    next >
Encoding:
Text File  |  2000-05-26  |  1.6 KB  |  54 lines
  1. ##########################################################
  2. # GDIdb demo script (c) 1998 Global Data Industries
  3. #
  4. # This script sends a personalised e-mail to everyone in
  5. # the database. The disadvantage of sending a personalised
  6. # e-mail is that if the list is large, the mailing will
  7. # take a long time as GDIdb will have to send each
  8. # personalised copy of the e-mail to the mail server.
  9. ##########################################################
  10.  
  11.  
  12.  
  13.  
  14. ##########################################################
  15. # this database contains the list of e-mail addresses
  16. # and contact information
  17.  
  18. &datasource("Driver={Microsoft Access Driver (*.mdb)};DBQ=examples.mdb")
  19.  
  20.  
  21.  
  22.  
  23. ##########################################################
  24. # Alter the following line to &dialup(TRUE) if you want
  25. # GDIdb to dial your Internet connection before sending
  26. # e-mails.
  27.  
  28. &dialup(FALSE)
  29. {
  30.     &getdata("SELECT * FROM tblEmployees")
  31.     {
  32.         # send a personalized e-mail to each employee
  33.         &sendmail("mail.mydomain.com","me@mydomain.com","?email?")
  34.         {
  35.             HEADER:
  36.             From: "Fred" <fred@mydomain.com>
  37.             To: ?email?
  38.             Subject: Christmas Party
  39.             Date: ?gdidbdate.dn?, ?gdidbdate.d? ?gdidbdate.mn? ?gdidbdate.y? ?gdidbtime?
  40.             
  41.             BODY:
  42.             Dear ?employeename?,
  43.             We are writing to inform you of this year's Christmas party. To thank you for
  44.             your ?duration? years of hard work, the company wishes to take you to Hawaii
  45.             for a week-long surfing holiday. Boards and wax shall naturally be provided
  46.             complements of the company.
  47.         
  48.             Hang five,
  49.             --
  50.             Fred Bloggs MD
  51.         }
  52.     }
  53. }
  54.