|
|
|
|
|
- Principio
- Ejemplos
- Búsqueda de correos electrónicos mediante un bucle FOR EACH
- Consulta de correos electrónicos mediante un bucle WHILE
¿Cómo leer correos electrónicos a través del protocolo IMAP?
Para leer correos electrónicos a través del protocolo IMAP sin utilizar un programa de mensajería: - Recuperar los parámetros de conexión a su servidor de mensajería. Estos parámetros son suministrados por su proveedor de servicios de Internet o por su administrador de red.
- Declare una variable emailIMAPSession e inicialícela con los parámetros recuperados previamente.
- Conectarse al servidor de mensajería con EmailStartIMAPSession.
- Realiza un Bucle para leer los emails desde el principio hasta el final utilizando EmailReadFirst y EmailReadNext. El valor de la variable Email.Out es:
- Verdadero si no hay más mensajes para leer.
- False en caso contrario.
- Utilice una variable esmaltada para recuperar el contenido del correo electrónico leído.
- Cierre la sesión IMAP con EmailCloseSession..
Búsqueda de correos electrónicos mediante un bucle FOR EACH MyMessage is Email
MyIMAPSession is emailIMAPSession
MyIMAPSession.ServerAddress = "imap.mycompany.us"
MyIMAPSession.Name = "user"
MyIMAPSession.Password = "secret"
IF NOT EmailStartSession(MyIMAPSession) THEN
Error("Unable to start the IMAP session.", ErrorInfo()
ELSE
FOR EACH MyMessage NOT READ OF MyIMAPSession
Trace(MyMessage.Subject, MyMessage.Sender, MyMessage.Message)
END
EmailCloseSession(MyIMAPSession)
END
Consulta de correos electrónicos mediante un bucle WHILE MyMessage is Email
MyIMAPSession is emailIMAPSession
MyIMAPSession.ServerAddress = "imap.mycompany.us"
MyIMAPSession.Name = "user"
MyIMAPSession.Password = "secret"
IF NOT EmailStartSession(MyIMAPSession) THEN
Error("Unable to start the IMAP session.", ErrorInfo()
ELSE
EmailReadFirst(MyIMAPSession, MyMessage)
WHILE NOT Email.Out
Trace(MyMessage.Subject, MyMessage.Sender, MyMessage.Message)
EmailReadNext(MyIMAPSession, MyMessage)
END
EmailCloseSession(MyIMAPSession)
END
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|