компилируется как: 
  
 call c:\MiniGUI\Batch\Compile.bat GrippMail /l tip 
  
 --------- дальше собственно код -------- 
  
 local oMail, cUrl, oUrl, oClient, txt 
  
 cUrl := "pop://gripptest:gripptest@26.188.255.166" 
  
 if empty( alltrim( cUrl ) ) 
   MsgInfo( "Invalid (empty) URL: " + cUrl ) 
   Return Nil 
 endif 
  
 oUrl := tURL():New( cUrl ) 
  
 if empty( oUrl ) 
   MsgInfo("oUrl -- Invalid URL : [ " + cUrl + " ]") 
   Return Nil 
 else 
   MsgInfo("oUrl created!") 
 endif 
  
 oClient := TIpClientPop():new( oUrl ) 
  
 if empty( oClient ) 
   MsgInfo("oClient -- Invalid URL : [ " + cUrl + " ]") 
   Return Nil 
 else 
   MsgInfo("oClient created!") 
 endif 
  
 oClient:nConnTimeout := 2000    //:= 20000 
 oUrl:cUserid := strtran( oUrl:cUserid, "&at;", "@" )  
  
 if oClient:Open() 
  
   if empty( oClient:cReply ) 
     MsgInfo( "Connecting to " + oUrl:cProto + "://" + oUrl:cServer + CRLF + ; 
                 "Connection status: <connected>" ) 
   else 
     MsgInfo( "Connecting to " + oUrl:cProto + "://" + oUrl:cServer + CRLF + ; 
                "Connection status: " + oClient:cReply ) 
   endif 
  
   txt := "oClient:isOpen = " + iif( oClient:isOpen, ".T.", ".F." ) 
   MsgInfo( txt ) 
  
   // в моем случае (пока) дает "-1" и "0" 
   txt := "oClient:nLength = " + ltrim(str( oClient:nLength )) + CRLF + ; 
          "oClient:nRead = " + ltrim(str( oClient:nRead )) 
   MsgInfo( txt ) 
  
   // в моем случае дает "+ОК " + (кол-во писем) + (кол-во октетов)(длина) 
   txt := "oClient:Stat() = " + oClient:Stat() 
   MsgInfo( txt ) 
  
   // дает как строку (для всех писем через CRLF): 
   // ("номер письма" "длина") (типа "1 32452" + CRLF ) 
   txt := "oClient:List() = " + CRLF + oClient:List() 
   MsgInfo( txt ) 
  
   txt := "Количество писем в ящике ( oClient:countMail ): " + ; 
          ltrim(str( oClient:countMail ))     // почему-то дает на 1 больше 
   MsgInfo( txt ) 
  
   // запрашивает "unique ID" (без параметра - _всех_ писем) 
   // возвращает строку (разделенную CRLF - если _всех_ писем) 
   // (внутри подстроки - в виде 
   //   "1 MD50000000001:MSG:18386:30041174:1176554496" ) 
   txt := "oClient:UIDL( ) = " + CRLF + oClient:UIDL( ) 
   MsgInfo( txt ) 
   // для одного письма возвращает только UIDL ( "MD5..." ) 
   txt := "oClient:UIDL( 1 ) = " + CRLF + oClient:UIDL( 1 ) 
   MsgInfo( txt ) 
  
   // METHOD Read( nLen ) CLASS tIPClientPOP 
   // ... 
   // RETURN ::Retrieve( Val( ::oUrl:cFile ), nLen ) 
  
   txt := 'valtype( oClient:Read( 1 ) ) = "' + valtype( oClient:Read( 1 ) ) + '"' 
   MsgInfo( txt ) 
  
   // пытаемся получить текст определенного письма (1-го) 
   txt := "oClient:Read( oClient:UIDL( 1 ) ) = " + CRLF + ; 
          "--- start --" + CRLF + ; 
          oClient:Read( oClient:UIDL( 1 ) ) + CRLF + ; 
          "--- finish ---" 
   MsgInfo( txt ) 
   // ? выдает то же, что и по List() 
   // ? как прочитать конкретное письмо, имея его UIDL ?? 
  
   /* 
   // через Retrieve (2-е письмо, первые 100 байт) 
   txt := "oClient:Retrieve( 2, 100 ) = " + CRLF + ; 
          "--- start --" + CRLF + ; 
          oClient:Retrieve( 2, 100 ) + CRLF + ; 
          "--- finish ---" 
   MsgInfo( txt ) 
   // "Касперский Мэйл-Диспетчер" возбудился - 
   //   т.е. письмо действительно получили 
   // но... полученное через Retrieve - пустая строка (??) видать, это объект 
   */ 
  
   /* 
   // через Retrieve (2-е письмо, все целиком сколько ни есть) 
   txt := "oClient:Retrieve( 2 ) = " + CRLF + ; 
          "--- start --" + CRLF + ; 
          oClient:Retrieve( 2 ) + CRLF + ; 
          "--- finish ---" 
   MsgInfo( txt ) 
   // "Касперский Мэйл-Диспетчер" возбудился - 
   //   т.е. письмо действительно получили 
   // но... полученное через Retrieve - пустая строка (??) видать, это объект 
   */ 
  
   // через Retrieve (2-е письмо, все целиком сколько ни есть) - смотрим тип 
   txt := 'valtype( oClient:Retrieve( 2 ) ) = "' + ; 
          valtype( oClient:Retrieve( 2 ) ) + '"' 
   MsgInfo( txt ) 
   // тип - "С" 
      
   // ... тут эксперимент прервал, ибо жрать охота и домой пора 
  
   // закрываем сессию (обязательно!) 
  
   oClient:Quit()    // см. HBTIP\POPCLI.PRG 
   // а так - не вылетает! (все завершается чисто... вроде бы...) 
  
   oClient:Close() 
  
   MsgInfo( "Session closed." + CRLF + "Done: " + ; 
            iif( empty( oClient:cReply ), ; 
                 "(no goodbye message)", ; 
                 'goodbye message "' + oClient:cReply + '"' ) ) 
  
 else 
  
   if empty( oClient:cReply ) 
     MsgInfo( "Can't open URI " + cUrl ) 
   else 
     MsgInfo( "Can't open URI " + cUrl + CRLF + ; 
              'oClient:Reply = "' + oClient:cReply + '"') 
   endif 
  
 endif 
  
 MsgInfo( "That's all folks!" ) 
  
 oMail := .F. 
 cUrl := .F. 
 oUrl := .F. 
 oClient := .F. 
  
 ---------- конец собственно кода -------------

PROCEDURE main()  
    LOCAL oPop, nCount, lAutoQuit := .t.  
    LOCAL cLogin := "Using APOP"  
      
    oPopCli := TipClientPOP():New( "pop://user:pass@127.0.0.1", .f. )  
    oPopCli:nConnTimeout := 12500  
  
    IF ! oPopCli:OpenDigest()  
       oPopCli:Quit()  
       cLogin := "Using USER/PASS"  
       IF ! oPopCli:Open()  
          RETURN  
       ENDIF  
    ENDIF  
  
    QOut( cLogin )  
  
    nCount := oPopCli:countMail()  
    IF nCount > 1  
       QOut( "Before DELE ", nCount )  
       oPopCli:Delete( 1 )  
       QOut( "After DELE  ", oPopCli:countMail() )  
       oPopCli:Rset()  
       QOut( "After RSET  ", oPopCli:countMail() )  
    ENDIF  
  
    oPopCli:Close( lAutoQuit )