***Εκτελεί την αποστολή. 
***στην μεταβλητή np_see μπορεί να δείχνει το αποτέλεσμα. 

p_sendtext:=strtran(p_sendtext, chr(13), '%0A')
p_sendtext:=strtran(p_sendtext, chr(10), ' ')
p_sendtext:=strtran(p_sendtext, '  ', ' ')
p_sendtext:=strtran(p_sendtext, '&', ' ')

**Κεφαλαία.
p_sendtext:=upchr(alltrim(p_sendtext))
sms_str1:=p_sendtext

p_sendtext:=strtran(p_sendtext, ' ', '%20')

***debmsg(p_sendtext)
***p_sendtext:=tranchr(p_sendtext, '', sms_larr1, sms_larr2)       
***debmsg(p_sendtext)

***phone
p_sendto:=alltrim(p_sendto)
##IF len(p_sendto)=10
   p_sendto:='30' + p_sendto 
##ENDIF    
***url for send (see init.peg)
sms_str:=sms_send
sms_str:=strtran(sms_str, '#3#', p_sendto)
****transform message to utf-8
sms_str:=strtran(sms_str, '#4#', StrChCp(p_sendtext, 0, 65001)  )

****memowrit('c:\sms.txt', sms_str)

****debmsg(sms_str)
peg_str1:=loadFromUrl(sms_str)

****ti deixnei
np_see:=''
np_see:=np_see + 'SMS:'  + p_sendto + chr(13) + chr(10)
np_see:=np_see + 'To:'   + p_person + chr(13) + chr(10)
np_see:=np_see + 'Text:' + sms_str1 +chr(13) + chr(10)
np_see:=np_see + 'File:' + p_d72fle +chr(13) + chr(10)

np_see:=np_see + repl('*', 20) + chr(13) + chr(10)
np_see:=np_see + 'smsbts.com Reply: ' + alltrim(peg_str1) + chr(13) + chr(10)
np_see:=np_see + repl('*', 20) + chr(13) + chr(10)

refrit('op_see')
##RETURN

