[Betsa23]

Hola a todos:

Mi problema esta en que quiero recibir correo IMAP mediante una aplicación, estoy utilizando un componente llamado ChilkatIMAP, pero no logro traducir un ejemplo en Visual Basic a Delphi. El codigo es:

 Private Sub Command1_Click()
 
     ' Create an object, connect to the IMAP server, login,
     ' and select a mailbox.
     Dim imap As New ChilkatImap
     imap.UnlockComponent "UnlockCode"
     imap.Connect "mail.my_imap_server.com"
     imap.Login "login", "password"
     imap.SelectMailbox "Inbox"
     
     ' Get a message set containing all the message IDs
     ' in the selected mailbox.
     Dim msgSet As messageSet
     Set msgSet = imap.Search("ALL", 1)
     
     ' Fetch all the mail into a bundle object.
     Dim bundle As New ChilkatEmailBundle
     Set bundle = imap.FetchBundle(msgSet)
     
     ' Loop over the bundle and display the From and Subject.
     Dim email As ChilkatEmail
     For i = 0 To bundle.MessageCount - 1
         Set email = bundle.GetEmail(i)
         List1.AddItem email.From & ": " & email.Subject
     Next
     
     ' Save the email to an XML file
     bundle.SaveXml "bundle.xml"
     
     ' Disconnect from the IMAP server.
     ' This example leaves the email on the IMAP server.
     imap.Disconnect
     
     
 End Sub

Por favor, de verdad necesito mucho de su ayuda, ya llevo varias semanas y no me jala el codigo. Muchisimas gracias a los que me puedan ayudar Atte:Betsa LF