#COMPILE CON
#INCLUDE "WIN32API.INC"
#INCLUDE "C:\PBCC20\SAMPLES\TCP\TCP32.INC"
'XINCLUDE "RASHANG.BAS"

$Pop3Server = "pop3.domain.com"         ' Your pop3 address
$ISPName    = "INTERNET_ISP_NAME"       ' The DIALUP Networking Name
$UserName   = "UserName"                ' Your user name
$Password   = "password"                ' Your password

FUNCTION PBMAIN()
    DIM Message(1:1000) AS STRING, hTcp AS LONG, Result AS LONG
    DIM MsgQty AS LONG, MsgSize AS LONG, x AS LONG, y AS LONG
    DIM Message(1:1) AS STRING

    CONSOLE NAME "Pop3 E-mail Server Check Example"

    PRINT "Logging in to pop3 server... " CHR$(34) $Pop3Server CHR$(34)
    hTcp = Pop3Connect($Pop3Server, $UserName, $Password)
    IF ISFALSE hTcp THEN
        PRINT "Error logging in to server (Error code " FORMAT$(ERR) ")"
    ELSE
        PRINT "Logged in Ok. Handle = " FORMAT$(hTcp)
    END IF

    Result = Pop3GetStat(hTcp, MsgQty, MsgSize)

    IF Result THEN
        PRINT "No Messages on server, or an error ocurred! (Error code " FORMAT$(Result) ")"
    ELSE
        PRINT "Server reports " FORMAT$(MsgQty) " Message, Total " FORMAT$(MsgSize) " bytes!"
        PRINT "Getting message(s)..."

        FOR x = 1 TO MsgQty
            PRINT "Getting message (" FORMAT$(x) ")"
            Result = Pop3RetrMessage(hTcp, x, Message())
            IF Result THEN
'                LPRINT ATTACH "LPT2"
                ARRAY SCAN Message(), FROM 1 TO 8, COLLATE UCASE, = "SUBJECT:", TO y
'                IF y THEN
'                    LPRINT "Email " TRIM$(message(y)), "Received " DATE$ "  " TIME$
'                    LPRINT STRING$(78,45)
'                END IF

                FOR y = 1 TO Result
                    PRINT Message(y)
'                    LPRINT Message(y)
'#if 0
                    IF (y + 2) MOD 24 = 0 THEN
                        PRINT "Press any key for next page....";
                        MessageBeep &H0FFFFFFFF
                        WAITKEY$
                        LOCATE ,1
                        PRINT SPACE$(80);
                        LOCATE ,1
                    END IF
'#endif
'                    IF (y + 2) MOD 64 = 0 THEN LPRINT FORMFEED
                NEXT y
                IF y MOD 64 > 1 THEN LPRINT FORMFEED
'                LPRINT FLUSH
            END IF
        NEXT x
    END IF

    Pop3Quit hTCP
    TCP CLOSE #hTcp

'    PRINT
'    PRINT "Finished Checking POP3 server..."

'    PRINT "Now attempting TO HangUp the connection..."
'    IF ISFALSE PBRasHangUp($ISPName) THEN PRINT "RASHangUp() success!"

    PRINT "Finished! Press any key..."
    MessageBeep %MB_ICONHAND
    WAITKEY$

END FUNCTION