home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / FBL / TCPBATCH / DEMO / SCRIPTS / UKAZKA10.TCP < prev    next >
Encoding:
Text File  |  1997-07-13  |  1.4 KB  |  60 lines
  1. // ukßzka Φ.10 - script poÜle jednoduch² dvoj°ßdkov² dopis protokolem SMTP
  2.  
  3. // Pou₧ity p°φkazy: Connect, Disconnect, Send, WaitFor, Input
  4. // Respektuje d°φve navßzanΘ spojenφ
  5.  
  6. Connect ? 25
  7. // Obsluha zadß IP-adresu nebo DNS-jmΘno poΦφtaΦe, kter² podporuje SMTP (co₧
  8. // je v Unixech i WinNT b∞₧nΘ)
  9.  
  10. Send "HELO" nl
  11. // ┌vodnφ °ßdka, dnes ji₧ spφÜe tradiΦnφ
  12.  
  13. Input "Zadejte svou e-mailovou adresu:"
  14. // Zadanß adresa je ulo₧ena do systΘmovΘ prom∞nnΘ line
  15.  
  16. Send "MAIL FROM:<" line ">" nl
  17. // Odeslßna frßze o odesφlateli
  18.  
  19. Input "Zadejte e-mailovou adresu adresßta:"
  20. // Zadanß adresa je ulo₧ena do systΘmovΘ prom∞nnΘ line
  21.  
  22. Send "RCPT TO:<" line ">" nl
  23. // Odeslßna frßze o adresßtu
  24.  
  25. Send "DATA" nl
  26. // Posφlßme dopis
  27.  
  28. WaitFor LineStarting "354 "
  29. // ╚ekßm na °ßdku s v²zvou k zadßnφ obsahu dopisu
  30.  
  31. Input "Zadejte p°edm∞t dopisu:"
  32. // Subjekt je ulo₧en do line
  33.  
  34. Send "Subject: " line nl nl
  35. // Odeslßn subjekt a (druh²m nl) ukonΦeno zßhlavφ dopisu
  36.  
  37. Input "Zadejte prvnφ °ßdku dopisu:"
  38. // Prvnφ °ßdka dopisu ulo₧ena do line
  39.  
  40. Send line nl nl
  41. // Odeslßna
  42.  
  43. Input "Zadejte druhou °ßdku dopisu:"
  44. // Druhß °ßdka dopisu ulo₧ena do line
  45.  
  46. Send line nl nl
  47. // Odeslßna
  48.  
  49. Send "." nl
  50. // Odeslßn konec dopisu
  51.  
  52. WaitFor LineStarting "250 "
  53. // ╚ekßm na °ßdku potvrzujφcφ dopis
  54.  
  55. Send "QUIT" nl
  56. // UkonΦφm zasφlßnφ dopis∙
  57.  
  58. Disconnect
  59. // Fyzicky ukonΦφm spojenφ
  60.