- Displaying the number of incoming emails found in the POP3 mailbox
- Filling a TreeView Table with the tree structure of folders found in an Outlook database
Displaying the number of incoming emails found in the POP3 mailbox The following code is used to display the number of incoming emails found in the POP3 mailbox.
// Start an email session (POP3 protocol)
IF EmailStartSession(USER, PASSWORD, "pop3.ifrance.fr", ...
"smtp.ifrance.fr") = True THEN
UserName = USER
ELSE
UserName = ""
Error("Unable to establish the connection")
END
...
// Read the first incoming record
IF EmailReadFirst(UserName) THEN
IF Email.Out = False THEN
Info("You have" + EmailNbMessage() + "on the server")
Open(WIN_Email_RCV)
ELSE
Info("No email")
END
ELSE
Error()
END
Filling a TreeView Table with the tree structure of folders found in an Outlook database The following code is used to fill a treeview table with all the folders found in an Outlook database.
// Declare the variables
//------------------------
// Identifier of the session
SessionID is int
// List of folders
FolderList is string
// Name of each folder
FolderName is string
// Subscript of each folder
FolderSubscript is int = 1
// Beginning of name for each folder
FolderPart1 is string
// End of name for each folder
FolderPart2 is string
// Number of emails found in each folder
NbEmails is int
// Start the session
SessionID = OutlookStartSession("")
// Error occurred?
IF SessionID = 0 THEN
Error("Error while starting the session", ErrorInfo())
ELSE
// List of folders
FolderList = EmailListFolder(SessionID, LstFolderAll)
// Extract the 1st listed folder
FolderName = ExtractString(FolderList, FolderSubscript, CR)
// Handle the folders
WHILE FolderName <> EOT
// Change the current folder
EmailChangeFolder(SessionID, FolderName)
// Number of emails found in the current folder
NbEmails = EmailNbMessage(SessionID)
// Extract the different parts from the folder name
FolderPart2 = ExtractString(FolderName, 1, "\", ...
FromEnd)
FolderPart1 = ExtractString(FolderName, 1, ...
"\" + FolderPart2)
// 1st folder to add into the table?
IF FolderSubscript = 1 THEN
TableAddChild(TVT_FolderTable, Null, ...
FolderPart2, NbEmails, FolderName)
ELSE
// Replace the "\" by TAB
// at the beginning of folder name
FolderPart1 = Replace(FolderPart1, "\", TAB)
// Add the following folders
TableAddChild(TVT_FolderTable, FolderPart1, ...
FolderPart2, NbEmails, FolderName)
END
// Increment the subscript of the folder
FolderSubscript ++
// Extract the other listed folders
FolderName = ExtractString(FolderList, FolderSubscript, CR)
END
END
This page is also available for…
|
|
|
|