Pošiljanje pošte

to pošta
   windowcreate "root "okno [Vnesite sporočilo] 0 0 250 120 []
   groupboxcreate "okno "g1 5 2 230 80
   staticcreate "okno "s1 [Strežnik:] 10 12 100 10
   staticcreate "okno "s2 [Pošiljatelj:] 10 26 100 10
   staticcreate "okno "s3 [Naslovnik:] 10 40 100 10
   staticcreate "okno "s4 [Tematika:] 10 54 100 10
   staticcreate "okno "s5 [Sporočilo:] 10 68 100 10
   comboboxcreate "okno "c1 55 10 170 12
   comboboxcreate "okno "c2 55 24 170 12
   comboboxcreate "okno "c3 55 38 170 12
   comboboxcreate "okno "c4 55 52 170 12
   comboboxcreate "okno "c5 55 66 170 12
   buttoncreate "okno "b1 [Pošlji] 35 90 120 12 [pošlji]
   buttoncreate "okno "b2 [Prekliči] 165 90 40 12 [windowdelete "okno]
end

to pošlji
   netstartup
   show netconnecton comboboxgettext "c1 25 [] []
   wait 120
   show netconnectsendvalue stavek (sentence 
      "HELO  (word first comboboxgettext "c1 "\nMAIL)
      "FROM:  (word "< first comboboxgettext "c2 ">\nRCPT)
      "TO:  (word "< first comboboxgettext "c3 ">\nDATA\nSubject:)
      (word stavek comboboxgettext "c4 "\n\n stavek comboboxgettext "c5 "\n.\nQUIT\n)
   )
   wait 120
   netshutdown
   messagebox [Obvestilo] [Sporočilo je poslano!]
end

to stavek :seznam
   if emptyp :seznam [output " ]
   if equalp count :seznam 1 [output first :seznam]
   output (word first :seznam "\  stavek bf :seznam)
end