|
|
|
|
- Principio
- Ejemplos
- Navegación de correos electrónicos a través de un bucle FOR EACH
- Navegación de correos electrónicos a través de un bucle WHILE
¿Cómo leer los correos electrónicos a través del protocolo IMAP?
Para leer correos electrónicos a través del protocolo IMAP sin utilizar un software de mensajería: - Recuperar los parámetros para conectarse a su servidor de mensajería. Estos parámetros son suministrados por su proveedor de servicio INTERNET o por su administrador de red.
- Declarar una emailIMAPSession Variable e inicializarla con los parámetros recuperados previamente.
- Conectar con el servidor de mensajería con EmailStartIMAPSession.
- Realiza un bucle para leer los correos electrónicos desde el principio hasta el final utilizando EmailReadFirst y EmailReadNext. El valor de la variable Email.Out es:
- True si no hay más mensajes por leer.
- False en caso contrario.
- Utilizar una Email Variable para recuperar el contenido de Email que fue leído.
- Cerrar la sesión IMAP mediante EmailCloseSession.
Navegación de correos electrónicos a través de un bucle FOR EACH MyMessage is Email MyIMAPSession is emailIMAPSession // Start a simple IMAP session MyIMAPSession.ServerAddress = "imap.mycompany.us" MyIMAPSession.Name = "user" MyIMAPSession.Password = "secret" // Start the IMAP session IF NOT EmailStartSession(MyIMAPSession) THEN // Error starting the IMAP session Error("Unable to start the IMAP session.", ErrorInfo() ELSE // Read the messages FOR EACH MyMessage NOT READ OF MyIMAPSession // Process the message read Trace(MyMessage.Subject, MyMessage.Sender, MyMessage.Message) END // Disconnect from the session EmailCloseSession(MyIMAPSession) END
Navegación de correos electrónicos a través de un bucle WHILE MyMessage is Email MyIMAPSession is emailIMAPSession // Start a simple IMAP session MyIMAPSession.ServerAddress = "imap.mycompany.us" MyIMAPSession.Name = "user" MyIMAPSession.Password = "secret" // Start the IMAP session IF NOT EmailStartSession(MyIMAPSession) THEN // Error starting the IMAP session Error("Unable to start the IMAP session.", ErrorInfo() ELSE // Read the messages EmailReadFirst(MyIMAPSession, MyMessage) WHILE NOT Email.Out // Process the message read Trace(MyMessage.Subject, MyMessage.Sender, MyMessage.Message) // Read the next message EmailReadNext(MyIMAPSession, MyMessage) END // Disconnect from the session EmailCloseSession(MyIMAPSession) END
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|