Append message body

The following example shows you how to append (update) message body text.

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";

                Query query = new Query();
                query.Top = 999;

                IList<Message> 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);

                    if(messages[i].Body == null)
                    {
                        messages[i].Body = new ItemBody("New message body.", ContentType.Text);
                    }
                    else if (messages[i].Body != null && messages[i].Body.ContentType == ContentType.Text)
                    {
                        messages[i].Body.Content = messages[i].Body.Content + " appended message body";
                    }
                    else if (messages[i].Body != null && messages[i].Body.ContentType == ContentType.Html)
                    {
                        messages[i].Body.Content = messages[i].Body.Content.Replace("</html>", " <b>appended message body</b></html>");
                    }

                    Message updatedMessage = await client.UpdateMessage(messages[i], new List<String>() { MessagePropertyName.Body });
                }

                Console.Read();
            }
            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 query As Query = New Query()
                query.Top = 999

                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)

                    If messages(i).Body Is Nothing Then
                        messages(i).Body = New ItemBody("New message body.", ContentType.Text)
                    ElseIf messages(i).Body IsNot Nothing And messages(i).Body.ContentType = ContentType.Text Then
                        messages(i).Body.Content = messages(i).Body.Content + " appended message body"
                    ElseIf messages(i).Body IsNot Nothing And messages(i).Body.ContentType = ContentType.Html Then
                        messages(i).Body.Content = messages(i).Body.Content.Replace("</html>", " <b>appended message body</b></html>")
                    End If

                    Dim updatedMessage As Message = Await client.UpdateMessage(messages(i), New List(Of String)() From {MessagePropertyName.Body})
                Next

                Console.Read()

            Catch ex As GraphException
                Console.WriteLine("Error: " + ex.Code)
                Console.WriteLine("Error: " + ex.Message)
                Console.Read()
            End Try
        End Sub

    End Class
End Namespace

Independentsoft - any library, any programming language

Graph .NET > Tutorial > Append message body

Need help? Ask our developers: