home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 / Chip_Hitware_Vol_07.iso / chiphit7 / online / tfind / email.mkr < prev    next >
Text File  |  1996-08-01  |  642b  |  36 lines
  1. # [INFO]
  2. # N:Automatische E-Mail-Abfrage
  3. # P:
  4. # I:Das Makro frΣgt ab, ob neue E-Mail eingegangen ist (nur fⁿr den
  5. # I:T-Online-Decoder 1.2 geeignet)
  6.  
  7. # [CODE]
  8. send "\c\*0\#"
  9. offwin
  10. send "\*8190146801\#"
  11. waitdct
  12. send "19"
  13. waitdct
  14. get Line = "1", "23", "7", "23"
  15. set Buffer = Line
  16. if Buffer == "No Mail" goto ende
  17. if Buffer == "0<< " goto fehler
  18. send "\c\*0\#"
  19. waitdct
  20. messagebox Result: "eMail", "Sie haben Post", "OK"
  21. if Result == "OK" goto ende
  22. fehler:
  23. send "\c\*0\#"
  24. waitdct
  25. messagebox Result: "eMail", "Mailserver im Moment nicht erreichbar", "OK"
  26. if Result == "OK" goto ende
  27. ende:
  28. send "\c\*0\#"
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.