|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Outlook -- Search Messages in a Particular FolderDemonstrates search the messages in a particular Outlook mailbox folder. This uses the OData $filter and $search system query options. See OData System Query Options for general information.
Also see OData URL Conventions for information about $filter, $search and other query options. This example demonstrates the following searches:
This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") ' Use your previously obtained access token here: ' See the following examples for getting an access token: ' Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint). ' Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint). ' Refresh Access Token (Azure AD v2.0 Endpoint). ' Refresh Access Token (Azure AD Endpoint). http.AuthToken = "MICROSOFT_GRAPH_ACCESS_TOKEN" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbResponse = Server.CreateObject("Chilkat.StringBuilder") ' In this example, we'd like to get the messages in the folder "/Inbox", ' but we must specify the corresponding folder_id. The best way to do this is to create ' a local map of folderPaths-to-folderIds. ' This example does it: Create Outlook Folder Map) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Hashtable") set htFolderMap = Server.CreateObject("Chilkat.Hashtable") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbMap = Server.CreateObject("Chilkat.StringBuilder") success = sbMap.LoadFile("qa_data/outlook/folderMap.xml","utf-8") success = htFolderMap.AddFromXmlSb(sbMap) ' Get the ID for the "/Inbox" folder: folderId = htFolderMap.LookupStr("/Inbox") If (htFolderMap.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "Folder ID not found") & "</pre>" Response.End End If success = 1 ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") json.EmitCompact = 0 success = http.SetUrlVar("folder_id",folderId) success = http.SetUrlVar("select","subject,from") ' ----------------------------------------------------------------------------------------------------- ' Only return emails from "chilkat.support@gmail.com" success = http.SetUrlVar("filter","from/emailAddress/address eq 'chilkat.support@gmail.com'") ' To return the full content of each email, omit the "&select=..." part of the URL. success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",sbResponse) If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' ----------------------------------------------------------------------------------------------------- ' Only return emails where the subject contains "Amazon" success = http.SetUrlVar("filter","contains(subject,'Amazon')") success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",sbResponse) If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' ----------------------------------------------------------------------------------------------------- ' Only return emails where the subject starts with "this email" and the from address is support@chilkatsoft.com ' (the startswith function is case insensitive) success = http.SetUrlVar("filter","startswith(subject,'this email') and (from/emailAddress/address eq 'support@chilkatsoft.com')") success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",sbResponse) If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' ----------------------------------------------------------------------------------------------------- ' Only return emails received within the last 24 hours ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbExpression = Server.CreateObject("Chilkat.StringBuilder") success = sbExpression.Append("receivedDateTime ge ") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime") set dt = Server.CreateObject("Chilkat.CkDateTime") success = dt.SetFromCurrentSystemTime() success = dt.AddDays(-1) success = sbExpression.Append(dt.GetAsTimestamp(0)) success = http.SetUrlVar("filter",sbExpression.GetAsString()) success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",sbResponse) If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' ----------------------------------------------------------------------------------------------------- ' Only return emails received in October 2016 ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.DtObj") set dtObj = Server.CreateObject("Chilkat.DtObj") dtObj.Year = 2016 dtObj.Month = 10 dtObj.Day = 1 dtObj.Utc = 1 success = dt.SetFromDtObj(dtObj) sbExpression.Clear success = sbExpression.Append("(receivedDateTime ge ") success = sbExpression.Append(dt.GetAsTimestamp(0)) success = sbExpression.Append(") and (receivedDateTime lt ") dtObj.Month = 11 success = dt.SetFromDtObj(dtObj) success = sbExpression.Append(dt.GetAsTimestamp(0)) success = sbExpression.Append(")") ' This is the expression we just built: (receivedDateTime ge 2016-10-01T00:00:00Z) and (receivedDateTime lt 2016-11-01T00:00:00Z) Response.Write "<pre>" & Server.HTMLEncode( sbExpression.GetAsString()) & "</pre>" success = http.SetUrlVar("filter",sbExpression.GetAsString()) success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",sbResponse) If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' ----------------------------------------------------------------------------------------------------- ' Return unread emails success = http.SetUrlVar("filter","isRead eq false") ' success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",sbResponse); If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' ----------------------------------------------------------------------------------------------------- ' Return emails with a plain-text or HTML body containing the phrase "Outlook 365" success = http.SetUrlVar("filter","contains(body/content,'Outlook 365')") success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",sbResponse) If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' ----------------------------------------------------------------------------------------------------- ' Use the $search query option instead of $filter. ' $search is a free-text search over whatever fields the server deems appropriate, such as in the subject, ' body, address fields, etc. ' Search for the word Amazon success = http.SetUrlVar("search","Amazon") success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$search={$search}&$select={$select}",sbResponse) If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' ----------------------------------------------------------------------------------------------------- ' Search for chilkatsoft.com ' Some chars, such as the "." make it necessary to enclose the search expression in double-quotes. success = http.SetUrlVar("search","""chilkatsoft.com""") success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$search={$search}&$select={$select}",sbResponse) If ((success <> 1) And (http.LastStatus = 0)) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If success = json.LoadSb(sbResponse) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.