Ciao ragazzi,
sto provando il codice trovato proprio su questo sito per recuperare le email, ma non riesco a farlo funzionare correttamente.
Faccio il login e recupero gli header, ma non riesco a recuperarli tutti, in particolare nè From, Subject e Date, ma soltanto ID e size.
Il codice che carica i messaggi è quello preso dai file che c'erano in allegato e lo scrivo di seguito.
Sapreste dirmi cosa sbaglio?
Grazie mille.
Private Sub loadMessages()
Dim mailCount As Integer
objPop.mailboxStats()
For mailCount = 1 To objPop.intMessageCount
objPop.getMailHeader(mailCount)
Dim myTableRow As New TableRow
Dim cellID As New TableCell
cellID.Text = mailCount.ToString()
Dim cellSub As New TableCell
cellSub.Text = objPop.strSubject
Dim cellSize As New TableCell
cellSize.Text = objPop.messageSize(mailCount).ToString() & " byte"
myTableRow.Cells.Add(cellID)
myTableRow.Cells.Add(cellSub)
myTableRow.Cells.Add(cellSize)
Table2.Rows.Add(myTableRow)
Next
End Sub