HMGforum.com

Code: Select all

#include <hmg.ch>
#include 'hfcl.ch'
#include "hbclass.ch"
#include "simpleio.ch"

#require "hbtip"
#require "hbssl"

REQUEST __HBEXTERN__HBSSL__

Function Main

        Load Window Main
        Main.Center
        Main.Activate

Return

FUNCTION btnGetMail_Action()
  // The example outlines the steps required for retrieving all
  // eMails from a POP mail server and how to decompose
  // incoming mail messages.

  LOCAL oPop, oPart, aParts, oTIpMail, aEmails, i
  
  cUser      := "hmgchang@gmail.com"
  cPassword  := "hmg123456"
  cPopServer := "pop.gmail.com" && "imap.googlemail.com" && 
  cUser      := STRTRAN( cUser, "@", "&at;")
  
  cTUrl := "pop://" + cUser + ":" + cPassword + "@" + cPopServer
  oUrl := TUrl():New( cTUrl)
  
  IF oUrl == NIL
    msgDebug( "Error : " + cTUrl)
    RETURN NIL
  ENDIF  
  
  oPop := TIpClientPop():new( oUrl, .F.)
  
  IF oPop == NIL
    msgDebug( "oPop := TIpClientPop():new( oUrl, .F.)")
    RETURN NIL
  ENDIF  
  
  cUser := STRTRAN( cUser, "&at;", "@")
  oPop:oUrl:cUserId := cUser
  
  oPop:nConnTimeout := -1

  *- oPop := TIpClientPop():new( "pop://mailaccount:password@pop.server.com" )
  *- oPop := TIpClientPop():new( "pop://" + cMailAccount + ":" + cPassword + "@" + cPopServer )

  IF .NOT. oPop:open()
     msgDebug( "Connection error:", oPop:lastErrorMessage(), "oPop:open()")
     QUIT
  ELSE
     aEMails := oPop:retrieveAll()
     oPop:close()
  ENDIF

  FOR i:=1 TO Len( aEMails )
     oTIpMail := aEmails[i]
     msgDebug( "From : ", oTIpMail:getFieldPart( "From" ))
     msgDebug( "Subject : ", oTIpMail:getFieldPart( "Subject" ))

     IF oTIpMail:isMultiPart()
        // Retrieve all parts of a multipart message
        aParts := oTIpMail:getMultiParts()

        FOR EACH oPart IN aParts
           IF .NOT. Empty( oPart:getFileName() )
              // This is a file attachment. Store it in the TMP folder.
              IF oPart:detachFile( "C:\tmp\" )
                 msgDebug( "Attach file :", "File written: C:\tmp\" + oPart:getFileName())
              ENDIF
           ELSE
              msgDebug( "GetBody :", oPart:getBody())
           ENDIF
        NEXT
     ELSE
        // simple mail message
        msgDebug( "Simple GetBody : ", oTIpMail:getBody())
     ENDIF
  NEXT
  RETURN NIL
  

Code: Select all

  cUser          := "hmgchang" 
  cPassword      := "hmg123456"