Siuntimas elektroniniu paštu tiesiogiai per pašto serverį, naudojant WinSock bibliotekas
Sintaksė
F_MAIL_WINSOCK(To,Subject,Text,Files,MailServer,UserName,Password,Port,From,CC,BCC,Importance,HTMLText)
Grąžina
.T. - jei išsiųsta be klaidų, priešingu atveju - klaidos pranešimą
Pakeitimas nuo 115 versijos :
Neperdavus serverio prisijungimo parametrų (serveris, portas, vartotojas, slaptažodis), jie bus parenkami iš parametrų sąrašo (parametrai SS_SMTP_SERV, SS_SMTP_VART, SS_SERV_SAUG)
Todėl Sistemos INIT-e parenkant laiškų siuntimo metodą, užtenka nurodyti:
titi_pagr.smtp_server=[f_mail_winsock(_adresas,_antraste,_tekstas,_failas)]
Parametrai
| Parametras | Aprašymas | Formatas |
|---|---|---|
| To | laiško adresas | C |
| Subject | laiško antraštė | C |
| Text | laiško tekstas | C |
| Files | prisegtas failas ar failų sąrašas atskirtas kabliataškiu | C |
| MailServer | pašto serverio adresas | C |
| UserName | vartotojo vardas | C |
| Password | slaptažodis | C |
| Port | porto numeris (standartinis 25) | N |
| From | siuntėjo el. pašto adresas | C |
| CC | laiško kopijos adresas | C |
| BCC | laiško kopijos nematomas adresas | C |
| Importance | laiško svarba (0-nesvarbus, 1-normalus, 2-svabus) | N |
| HTMLText | laiško tekstas HTML formatu | C |
Norint pamatyti klaidą, reikia vartotojui uždėti SISTEMOS INIT‘ą, kuris techniškai parodo visą pilną klaidos pranešimą.
titi_pagr.smtp_server="EXECSCRIPT("
titi_pagr.smtp_server=titi_pagr.smtp_server+'[LPARAMETERS _adresas,_antraste,_tekstas,_failas]+CHR(13)+CHR(10)+'
titi_pagr.smtp_server=titi_pagr.smtp_server+'[_klaida=""]+CHR(13)+CHR(10)+'
titi_pagr.smtp_server=titi_pagr.smtp_server+'[lRet=f_mail_winsock(_adresas,_antraste,_tekstas,_failas)]+' && Ideti savo siuntimo funkcija
titi_pagr.smtp_server=titi_pagr.smtp_server+'CHR(13)+CHR(10)+'
titi_pagr.smtp_server=titi_pagr.smtp_server+'[=IIF(!EMPTY(_klaida),f_info(_klaida,.T.),"")]+CHR(13)+CHR(10)+'
titi_pagr.smtp_server=titi_pagr.smtp_server+'[return lRet]+CHR(13)+CHR(10)+'
titi_pagr.smtp_server=titi_pagr.smtp_server+"[],_adresas,_antraste,_tekstas,_failas)"Pavyzdžiai
f_mail_Winsock('rivile@rivile.lt','Laiško pavadinimas', 'Laiško turinys',.F.,'pop.mail.lt','vartotojas','slaptažodis',25,'mano_pastas@mail.lt')
f_mail_Winsock('rivile@rivile.lt','Laiško pavadinimas', 'Laiško turinys', 'c:\tekstas.txt;c:\temp\ataskaita.pdf','pop.mail.lt','vartotojas','slaptažodis',25,'mano_pastas@mail.lt','info@rivile.lt')
Pastaba 1
Siunčiama tiesiogiai per pašto serverį, naudojant WinSock bibliotekas. Aprašant šį siuntimo būdą reikia nurodyti pašto serverį, portą, prisijungimo vardus, slaptažodžius ir pan.
Pastaba 2
Naudojant Winsock, sistemos INIT-e turi būti užprogramuotas metodas:
titi_pagr.smtp_server=[f_mail_Winsock(_adresas,_antraste,_tekstas,_failas,"serveris","vartotojas","slaptažodis",25,"siuntejas@pastas.lt")]
Pirmi keturi perduodami parametrai visada fiksuoti: _adresas,_antraste,_tekstas,_failas. Kiti parametrai nurodomi pagal poreikį.