VB6-pop3 email

[mebhas]

Hey, thanx to all the guys in here, i have done some code for retrieving email messages from a pop3 server. this is just a part of my new project. i just put it here so people can see what to do and not to fall into stupid traps i fell in. so here it goes.

1. in a module, create these enums and types.

Public Enum POP_STATUS 'this is for the status of the pop getter
    pop_Connect
    pop_User
    pop_Password
    pop_Stat
    pop_List
    pop_Retr
    pop_CRetr
    pop_Delete
    pop_Quit
End Enum
 
Public Type MSG_STATS 'this is for the messages in the server
    msg_Len As Long
    msg_ThisLen As Long
    msg_Body As String
    msg_File As String
End Type
 
Public Type POP_SERVER 'this is for the pop server settings
    srv_Name As String
    srv_Address As String
    srv_Port As Long
    srv_User As String
    srv_Password As String
    srv_Messages As Long
End Type

then there are some variable declarations, name it whatever u want but here is what i have done.

Public pStat As POP_STATUS
Public myMsg() As MSG_STATS
Public myServer As POP_SERVER
 
 
Public mError As Long
Public curMsg As Long
 
Public myMsgList As String
Public myMsgListNum As Long
 
Public fso As New FileSystemObject' use this if u want to save data using the file system objects, or omit the 2 lines here.
Public ***ile As TextStream

now for the settings part, as we already have some settings put up as a datatype, we will access it here.

With myServer
        .srv_Address = "<your pop3 server>"
        .srv_Name = "<Name of your ISP, not needed explicitly>"
        .srv_User = "<your pop3 username>"
        .srv_Password = "<your pop3 password>"
        .srv_Port = 110 'this is the default pop3 port.
    End With

and then the connection part. u know the drill

pStat = pop_Connect 'we set the status enum to connecting stage
    With myServer
        ws.Connect .srv_Address, .srv_Port
    End With