PC SOFT

AYUDA EN LÍNEA
 WINDEV, WEBDEV Y WINDEV MOBILE

Inicio | Iniciar sesión | Español ES
Este contenido se ha traducido automáticamente. Haga clic aquí para ver la versión en inglés.
  • 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
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadApple WatchUniversal Windows 10 App
Otros
Procedimientos almacenados
Principio
Para leer correos electrónicos a través del protocolo IMAP sin utilizar un software de mensajería:
  1. 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.
  2. Declarar una emailIMAPSession Variable e inicializarla con los parámetros recuperados previamente.
  3. Conectar con el servidor de mensajería con EmailStartIMAPSession.
  4. 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.
  5. Utilizar una Email Variable para recuperar el contenido de Email que fue leído.
  6. Cerrar la sesión IMAP mediante EmailCloseSession.
Ejemplos

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
Ver también
Versión mínima requerida
  • Versión 15
Esta página también está disponible para…
Comentarios
Haga clic en [Agregar] para publicar un comentario