Kowloon
Public Sub Button1_Click()
Pop3Client1.User = "usuario@dominio.com"
Pop3Client1.Password = "palabrasecreta"
Pop3Client1.Port = 110
Pop3Client1.Host = "www.host.com"
Pop3Client1.Open
If Pop3Client1.Status = Net.Connected Then
LoadInbox()
Else
Message.Warning("Login failed!")
Endif
Pop3Client1.Close
End
Private Sub LoadInbox()
Dim oMail As _Pop3Client_Message
Dim count As Integer
Dim IdMail As String
If Pop3Client1.Status <> Net.Connected Then Return
count = 0
For Each oMail In Pop3Client1
Gridview1.Rows.Count = GridView1.Rows.Count + 1
GridView1[count, 0].Text = oMail.Index
GridView1[count, 1].Text = oMail.Message.Sender
GridView1[count, 2].Text = oMail.Message.Subject
count = count + 1
Wait
Next
End
Public Sub Form_Open()
GridView1.Columns.Count = 4
GridView1.Rows.Count = 1
GridView1.Columns[0].Title = ("Idx.")
GridView1.Columns[0].Width = 50
GridView1.Columns[1].Title = ("Sender")
GridView1.Columns[1].Width = 220
GridView1.Columns[2].Title = ("Subject")
GridView1.Columns[2].Width = 200
GridView1.Columns[3].Title = ("Text")
GridView1.Columns[3].Width = 300
End
Pop3Client1.User = "usuario@dominio.com"
Pop3Client1.Password = "palabrasecreta"
Pop3Client1.Port = 110
Pop3Client1.Host = "www.host.com"
Pop3Client1.Open
If Pop3Client1.Status = Net.Connected Then
LoadInbox()
Else
Message.Warning("Login failed!")
Endif
Pop3Client1.Close
End
Private Sub LoadInbox()
Dim oMail As _Pop3Client_Message
Dim count As Integer
Dim IdMail As String
If Pop3Client1.Status <> Net.Connected Then Return
count = 0
For Each oMail In Pop3Client1
Gridview1.Rows.Count = GridView1.Rows.Count + 1
GridView1[count, 0].Text = oMail.Index
GridView1[count, 1].Text = oMail.Message.Sender
GridView1[count, 2].Text = oMail.Message.Subject
count = count + 1
Wait
Next
End
Public Sub Form_Open()
GridView1.Columns.Count = 4
GridView1.Rows.Count = 1
GridView1.Columns[0].Title = ("Idx.")
GridView1.Columns[0].Width = 50
GridView1.Columns[1].Title = ("Sender")
GridView1.Columns[1].Width = 220
GridView1.Columns[2].Title = ("Subject")
GridView1.Columns[2].Width = 200
GridView1.Columns[3].Title = ("Text")
GridView1.Columns[3].Width = 300
End
Este funciona correctamente, pero no encuentro documentación de como extraer el "BODY", existe un ejemplo en gambas3 pero a mi no me funciona.
Alguien tiene el mismo problema?
Albacete
