proc main 
 local aa:=repl("s",500) 
 local komu:="test@mail.ru" // мыло куда шлем 
  
 REQUEST __HBEXTERN__HBSSL__ 
 REQUEST HB_CODEPAGE_RU866,HB_CODEPAGE_UTF8 ,HB_CODEPAGE_UTF8EX 
  
 hb_cdpSelect( "RU866" ) 
  
 REQUEST HB_LANG_RU  
 HB_LANGSELECT("RU") 
  
 use inetmy new 
  
 ? tip_ssl() 
  
 a:=seconds() 
 if Hb_sendmail(alltrim(inetmy->smtp),; 
              inetmy->port,; 
              alltrim(inetmy->email),; 
       komu, , ,aa,; 
       "Заявка TEST", ,; 
       alltrim(inetmy->elogin),; 
       alltrim(inetmy->epass),alltrim(inetmy->pop3),1,,inetmy->ltrs, , , , ,inetmy->lssl , ,"cp866","base64" ) 
 // inetmy->smtp сервер smtp 
 // inetmy->port порт для SSL 465 или 587 
 // inetmy->email моё мыло 
 // inetmy->elogin логин к моей почте 
 // inetmy->epass пасс к моей почте 
 //inetmy->ltrs TRUE или FALSE включает/выключает трассировку 
 // inetmy->lssl TRUE включает SSL 
  
  
 ? "ok" 
  
  
 else 
 ? .f. 
 endif 
 ? seconds()-a 
  
 wait 
  
 close all 
 return nil 
  
 

/* 
  * Copyright 2009 Viktor Szakats (vszakats.net/harbour) 
  * www - http://harbour-project.org 
  */ 
  
 #require "hbssl" 
 #require "hbtip" 
  
 REQUEST __HBEXTERN__HBSSL__ 
  
 #include "simpleio.ch" 
  
 PROCEDURE Main( cFrom, cPassword, cTo ) 
  
    IF ! tip_SSL() 
       ? "Error: Requires SSL support" 
 wait 
       RETURN 
    ENDIF 
  
    hb_default( @cFrom    , "hmg@ya.ru" ) 
    hb_default( @cPassword, "MYSECRETPASSWORD" ) 
    hb_default( @cTo      , "gfilatov@inbox.ru" ) 
  
    ? hb_SendMail( ; 
       "smtp.yandex.ru", ; 
       465, ; 
       cFrom, ; 
       cTo, ; 
       NIL /* CC */, ; 
       {} /* BCC */, ; 
       "It is a test message.", ; 
       "It is a test subject", ; 
       NIL /* attachment */, ; 
       cFrom, ; 
       cPassword, ; 
       "", ; 
       NIL /* nPriority */, ; 
       NIL /* lRead */, ; 
       .T. /* lTrace */, ; 
       .F., ; 
       NIL /* lNoAuth */, ; 
       NIL /* nTimeOut */, ; 
       NIL /* cReplyTo */, ; 
       .T. ) 
 wait 
    RETURN 
 

20200813-09:38:42  :INETCONNECT( smtp.yandex.ru, 465 ) 
 >> <pointer> << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 220 sas8-b61c542d7279.qloud-c.yandex.net ESMTP (Want to use Yandex.Mail for your domain? Visit http://pdd.yandex.ru) << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETSENDALL( <pointer>, 20, EHLO TIPClientSMTP<cr><lf> ) 
 >>         20 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250-sas8-b61c542d7279.qloud-c.yandex.net << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250-8BITMIME << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250-PIPELINING << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250-SIZE 42991616 << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250-AUTH LOGIN PLAIN XOAUTH2 << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250-DSN << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250 ENHANCEDSTATUSCODES << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETSENDALL( <pointer>, 12, AUTH LOGIN<cr><lf> ) 
 >>         12 << 
  
 20200813-09:38:42  :INETRECVLINE( <pointer>, , 512 ) 
 >> 334 VXNlcm5hbWU6 << 
  
 20200813-09:38:42  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:42  :INETSENDALL( <pointer>, 14, aG1nQHlhLnJ1<cr><lf> ) 
 >>         14 << 
  
 20200813-09:38:43  :INETRECVLINE( <pointer>, , 512 ) 
 >> 334 UGFzc3dvcmQ6 << 
  
 20200813-09:38:43  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:43  :INETSENDALL( <pointer>, 14, aG1nM2d1cnU=<cr><lf> ) 
 >>         14 << 
  
 20200813-09:38:43  :INETRECVLINE( <pointer>, , 512 ) 
 >> 235 2.7.0 Authentication successful. << 
  
 20200813-09:38:43  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:43  :INETSENDALL( <pointer>, 24, MAIL FROM: <hmg@ya.ru><cr><lf> ) 
 >>         24 << 
  
 20200813-09:38:43  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250 2.1.0 <hmg@ya.ru> ok << 
  
 20200813-09:38:43  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:43  :INETSENDALL( <pointer>, 30, RCPT TO: <gfilatov@inbox.ru><cr><lf> ) 
 >>         30 << 
  
 20200813-09:38:44  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250 2.1.5 <gfilatov@inbox.ru> recipient ok << 
  
 20200813-09:38:44  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:44  :INETSENDALL( <pointer>, 6, DATA<cr><lf> ) 
 >>          6 << 
  
 20200813-09:38:44  :INETRECVLINE( <pointer>, , 512 ) 
 >> 354 Enter mail, end with "." on a line by itself << 
  
 20200813-09:38:44  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:44  :INETSENDALL( <pointer>, 582, Date: Thu, 13 Aug 2020 09:38:43 +0300<cr><lf>From: =?UTF-8?Q?hmg=40ya.ru?= <hmg@ya.ru><cr><lf>To: gfilatov@inbox.ru<cr><lf>Subject: =?UTF-8?Q?It=20is=20a=20test=20subject?=<cr><lf>Content-Transfer-Encoding: quoted-printable<cr><lf>Content-Type: text/html; charset=UTF-8<cr><lf><cr><lf><=21DOCTYPE html PUBLIC =22-//W3C//DTD HTML 4.01 Transitional//EN=22 =22h=<cr><lf>ttp://www.w3.org/TR/html4/loose.dtd=22><html><head><title>Test</title></h=<cr><lf>ead><body>Here=C3=86s the new <a href=3D=C3=B6http://ask-leo.com=C3=B6>As=<cr><lf>k Leo=21</a> logo:<br /> <img src=3D=C3=B6https://img.askleomedia.com/ask=<cr><lf>leonew.png=C3=B6 /></body></html><cr><lf> ) 
 >>        582 << 
  
 20200813-09:38:44  :INETSENDALL( <pointer>, 5, .<cr><lf> ) 
 >>          5 << 
  
 20200813-09:38:45  :INETRECVLINE( <pointer>, , 512 ) 
 >> 250 2.0.0 Ok: queued on sas8-b61c542d7279.qloud-c.yandex.net as 1597300727-aH2bT371Yw-ckHWt2Uf << 
  
 20200813-09:38:45  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20200813-09:38:45  :INETSENDALL( <pointer>, 6, QUIT<cr><lf> ) 
 >>          6 << 
  
 20200813-09:38:45  :INETRECVLINE( <pointer>, , 512 ) 
 >> 221 2.0.0 Closing connection. << 
  
 20200813-09:38:45  :INETERRORCODE( <pointer> ) 
 >>          0 <<