Dobroe den!
Ispolzuyu EasyMail.Dlya chiteniya temi v pochte ispolzuyu takoy kod :

For Each Message In POP3.Messages
Thisform.L1.Caption = Thisform.L1.caption + chr(13) + Message.Subject
Next Message

A kak mojno chitat samomu sobshenie v pochtovom yashike.
Zarane bloqadaryu

vot moy kod :

Private x, POP3
Thisform.PF.P2.L1.caption = 'XXXX ...'

POP3 = CreateObject("EasyMail.POP3.5")
POP3.Account = alltrim(thisform.PF.P4.text3.value)
POP3.Password = alltrim(thisform.PF.P4.text4.value)
POP3.MailServer = alltrim(thisform.PF.P4.text2.value)
Thisform.PF.P2.L1.caption = Thisform.PF.P2.L1.caption + chr(13)+POP3.MailServer
POP3.DemoMode = 0
POP3.LicenseKey='iron/S18I500R1AX40C0Rb100'

Thisform.PF.P2.L1.caption = Thisform.PF.P2.L1.caption + chr(13)+'Connec ...'
x = POP3.Connect()
If x <> 0 Then
Thisform.PF.P2.L1.caption = Thisform.PF.P2.L1.caption + chr(13)+'XXXXX '

return
EndIf

Thisform.PF.P2.L1.caption = Thisform.PF.P2.L1.caption + chr(13)+'XXXXXXXXXX ...'
x = POP3.DownloadMessages(0)

POP3.Disconnect
If x <> 0 Then
Thisform.PF.P2.L1.caption = Thisform.PF.P2.L1.caption + chr(13)+'XXXXXXX '
return
EndIf


For Each Message In POP3.Messages
Thisform.PF.P2.L1.caption = Thisform.PF.P2.L1.caption + Message.Subject
Next Message

Thisform.PF.P2.L1.caption = Thisform.PF.P2.L1.caption + chr(13)+ "END"
Release POP3

Oy blin tam je est primer :

For Each Message In POP3.Messages
Thisform.PF.P2.L1.caption = Thisform.PF.P2.L1.caption + Message.Bodytext
Next Message