Independentsoft
- any library, any programming language
Home
Purchase
Support
Company
Contact
Graph .NET
>
Tutorial
> List all inbox messages
Retreive all inbox messages.
C# example
using System; using System.Collections.Generic; using System.Threading.Tasks; using Independentsoft.Graph; using Independentsoft.Graph.Mails; using Independentsoft.Graph.Users; using Independentsoft.Graph.QueryOptions; namespace ConsoleApp1 { class Program { static async Task Main() { try { GraphClient client = new GraphClient(); client.ClientId = "63333333-209e-454e-b7bd-55a4d201270f"; client.Tenant = "independentsoft.onmicrosoft.com"; client.ClientSecret = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"; int skip = 0; int top = 100; while (true) { Query query = new Query(); query.Top = top; if (skip > 0) { query.Skip = skip; } IList
messages = await client.GetMessages(StandardMailboxFolder.Inbox, new UserId("info@independentsoft.onmicrosoft.com"), query); for (int i = 0; i < messages.Count; i++) { Console.WriteLine("Id: " + messages[i].Id); Console.WriteLine("Subject: " + messages[i].Subject); Console.WriteLine("ReceivedTime: " + messages[i].ReceivedTime); Console.WriteLine("----------------------------------------------------"); } if (messages.Count == 100) { skip = skip + 100; } else { break; } } } catch (GraphException ex) { Console.WriteLine("Error: " + ex.Code); Console.WriteLine("Message: " + ex.Message); Console.Read(); } } } }
VB example
Imports Independentsoft.Graph Imports Independentsoft.Graph.Users Imports Independentsoft.Graph.Mails Imports Independentsoft.Graph.QueryOptions Namespace Sample Class Module1 Shared Sub Main(ByVal args As String()) Dim task = New Task(AddressOf Run) ' Start and wait for task to end. task.Start() Console.Read() End Sub Shared Async Sub Run() Try Dim client As GraphClient = New GraphClient() client.ClientId = "63333333-209e-454e-b7bd-55a4d201270f" client.Tenant = "independentsoft.onmicrosoft.com" client.ClientSecret = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" Dim skip As Integer = 0 Dim top As Integer = 100 While True Dim query As Query = New Query() query.Top = top If skip > 0 Then query.Skip = skip End If Dim messages As IList(Of Message) = Await client.GetMessages(StandardMailboxFolder.Inbox, New UserId("info@independentsoft.onmicrosoft.com"), query) For i As Integer = 0 To messages.Count - 1 Console.WriteLine("Id: " & messages(i).Id) Console.WriteLine("Subject: " & messages(i).Subject) Console.WriteLine("ReceivedTime: " & messages(i).ReceivedTime) Console.WriteLine("----------------------------------------------------") Next If messages.Count = 100 Then skip = skip + 100 Else Exit While End If End While Catch ex As GraphException Console.WriteLine("Error: " + ex.Code) Console.WriteLine("Error: " + ex.Message) Console.Read() End Try End Sub End Class End Namespace
Need help? Ask our developers:
Name*
Email*
Message*