Foros Club Delphi - Traducir un codigo de VB a Delphi ¡¡¡¡ Por favor !!!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Traducir un codigo de VB a Delphi ¡¡¡¡ Por favor !!!! (https://www.clubdelphi.com/foros/showthread.php?t=16471)

Traducir un codigo de VB a Delphi ¡¡¡¡ Por favor !!!!

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:

Código:

 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.:confused: Muchisimas gracias a los que me puedan ayudar :( Atte:Betsa LF

¿Es necesario usar estos componentes? ¿O la finalidad es mandar un email?

Sí sólo tienes que mandar un email, independientemente de los componentes, puedes utilizar las INDY ;)

El objetivo que pretendo hacer es que se reciba corrreo mediante el protocolo IMAP, y como el unico componente que conozco es Chilkat IMAP, por eso, pero por favor, si conocen algun otro componente que pueda realizar esta recepcion de correo, se los agradeceria muchisimo.

En cuanto al envio de correo, con eso no tengo problemas.

Gracias de antemano

PD: DarKraZY, ¿ te podria agregar a mis contactos de messenger ?

Atte:
Betsa LF