Public Class MyReceiveMail
Public r_importance As String
Public r_from As String
Public r_subject As String
Public r_datereceived As String
Public r_size As String
Public Sub New()
r_importance = ""
r_from = ""
r_subject = ""
r_datereceived = ""
r_size = ""
End Sub
End Class
ovo je jedna klasica
Public Class POP
Public POPServer As String
Public user As String
Public pwd As String
Public whatport As Integer
*
*
*
* itd itd.
*
*
*
Public Function GetMessagesHeaders(ByVal howmany As Integer,
ByVal whichNS As NetworkStream) As Boolean
If howmany = 0 Then
Return False
Exit Function
End If
Dim outbytes() As Byte
Dim input As String
Dim sr As StreamReader = New StreamReader(whichNS)
Dim mCount As Integer = 1
Dim resp As String
Dim tokens() As String
Dim firstoccurence As String
e sad ja bih zeleo (pusti snovi) da iz ove POP klase mogu da napunim onu gore klasu ili sto je jos bolje da odmah sve spustim u frmMain.ListMail (ListView kontrola )
medjutim ova klasa ne vidi tu kontrolu. Napomena sve se nalazi u file main.vb