PC SOFT

WINDEVWEBDEV AND WINDEV MOBILE
ONLINE HELP

Home | Sign in | English UK
  • Example 1: Reading the incoming emails via the POP3 protocol
  • Example 2: Reading the incoming emails via MS Exchange
  • Example 3: Reading the incoming emails via Pocket Outlook
EmailReadNext (Example)
Example 1: Reading the incoming emails via the POP3 protocol
The following code is used to read the incoming emails found in the mailbox of the POP3 protocol. These emails are read from the first one to the last one and they are displayed in the "TABLE_Email" table. The characteristics of the POP3 protocol have been specified by EmailStartSession (address of the POP3 server, address of the SMTP server, etc.).
// Start the email session
IF EmailStartSession(USER, PASSWORD, "pop3.server.com", ...
"smtp.server.com") = True THEN
  UserName = USER
ELSE
  UserName = ""
  Error("Unable to establish the connection")
END
// Fill a table with the incoming emails
EmailReadFirst(UserName)
WHILE Email.Out = False
  TableAdd(TABLE_Email, Email.Sender + TAB + Email.Subject)
  EmailReadNext(UserName)
END
 
Example 2: Reading the incoming emails via MS Exchange
Stored procedures
The following code is using MS Exchange to read the new incoming emails. These emails are found in the in-box of MS Exchange and on the server. A profile ("PROFILE_Example") was created in MS Exchange. See EmailStartSession for more details.
EmailID is int
// Start the email session
EmailID = EmailStartSession("PROFILE_Example")
// Retrieve the messages in the in-box of MS Exchange
EmailUpdate(EmailID)
// Browse the new incoming messages from the first one to the last one
EmailReadFirst(EmailID, "NOT READ")
WHILE Email.Out = False
IF YesNo("You have received an email from" + Email.Sender + ...
"Do you want to read it?") THEN
// Open the window for reading messages
Open(WIN_Email_RCV)
ELSE
EmailReadNext(EmailID, "NOT READ")
END
END
...
EmailCloseSession(EmailID)
 
Example 3: Reading the incoming emails via Pocket Outlook
Windows MobileStored procedures
The following code is using Pocket Outlook to read the new incoming emails. These emails are found in the inbox of Pocket Outlook and on the server. An account ("Example_Account") was created in Pocket Outlook. See Managing emails via CEMAPI: Other accounts for more details.
EmailID is int
// Start the email session
EmailID = EmailStartSession("Example_Account")
// Browse the new incoming messages from the first one to the last one
EmailReadFirst(EmailID, "NOT READ")
WHILE Email.Out = False
IF YesNo("You have received an email from" + Email.Sender + ...
"Do you want to read it?") THEN
// Open the window for reading messages
Open(WIN_Email_RCV)
ELSE
EmailReadNext(EmailID, "NOT READ")
END
END
...
EmailCloseSession(EmailID)
 
Minimum version required
  • Version 9
This page is also available for…
Comments
Click [Add] to post a comment