[tiedot] on vektori, jossa kerrotaan sähköpostitiedot ja data
[tyyppi] on numero 1 sähköpostin lähetystä varten
[teksti] teksti erilaisille viesteille
Funktio ei palauta arvoa. Kun sähköposti on lähetetty funktio lähettää viestin 1079 (kt. esimerkki).
Funktiolla voidaan lähettää sähköpostiviestejä.
van=setwindow()
ikku=winnew("testing",0,0,400,200)
setwindow(ikku)
apu=array(18)
apu[1]="" /* ei käytössä */
apu[2]="" /* ei käytössä */
apu[3]="" /* ei käytössä */
apu[4]="posti@datamike.com" /* lähettäjän sähköpostiosoite */
apu[5]="posti@datamike.com" /* vastaanottajan sähköpostiosoite */
apu[6]="Testi lähetys" /* sähköpostin otsikko */
apu[7]="smtp.welho.com" /* sähköpostiserveri */
apu[8]="Hello World" /* sähköpostiviestiteksti */
apu[9]={"apu.txt","apu.prg"} /* liitetiedostot */
apu[10]="" /* ei käytössä */
apu[11]=0 /* ei käytössä */
apu[12]=0 /* ikkuna viesteille, joita email() lähettää */
apu[13]={25,80,0,0} /* portti {email,server,0,0}, usenetissä on {119,"nntp","tcp",400} */
apu[14]=0 /* 0=lähetä suoraan tekstinä, 1=lähetä ns. raw formaatti */
apu[15]=0 /* email dialogin ikkuna */
apu[16]="username" /* käyttäjä jos SMTP AUTH lähetys */
apu[17]="password" /* salasana jos SMTP AUTH lähetys */
apu[18]="" /* ns. USENET viestit tallentuvat tähän */
EMAIL(apu,1,) /* yhdistetään internettiin, lähetetään sähköposti (yksi parametri on NIL) */
DO WHILE .t.
i=getmessage()
DO CASE
CASE i=256
DO CASE
CASE nappain=27
EXIT
endcase
CASE i=273
DO CASE
CASE nappain=1079
exit
endcase
ENDcase
ENDDO
setwindow(van)
destroywin(ikku)