---
title: "F_MAIL_WINSOCK()"
url: "https://gidas.rivile.lt/sistemos_programavimas/funkcijos/siuntimo_funkcijos/f_mail_winsock"
updated: "2025-06-18"
parent: "https://gidas.rivile.lt/sistemos_programavimas/funkcijos/siuntimo_funkcijos.md"
---

# F_MAIL_WINSOCK()

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 : **

> **Informacija:** 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        |

> **Dėmesio:** 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**

> **Dėmesio:** 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į.