Monitor for new mail

The following example shows you how to monitor for new mail. Here we are using Subscribe method to subscribe for event "NewMail" and to check user's Inbox folder for new mail. The timer is set to 1 minute and in method CheckPollResponse we are using Poll method to check if the event occurred.

C# example

using System;
using System.Net;
using System.Timers;
using Independentsoft.Webdav.Exchange;
using System.Security.Cryptography.X509Certificates;

namespace Sample
{
    class Program
    {
        private static Resource resource = null;
        private static Mailbox myMailbox = null;
        private static int subID;

        static void Main(string[] args)
        {
            Init();
        }

        private static void Init()
        {
            NetworkCredential credential = new NetworkCredential("username", "password");
            WebdavSession session = new WebdavSession(credential);

            ServicePointManager.CertificatePolicy = new AcceptAllCertificatePolicy();
            session.UserMailbox = "https://myserver/exchange/emailaddress";

            resource = new Resource(session);

            //User's mailbox
            myMailbox = resource.Mailbox;

            //set subscription
            Subscription subscription = resource.Subscribe(myMailbox.Inbox, NotificationType.NewMail, 3600);

            subID = subscription.ID;
            CreateTimer();

            Console.WriteLine("Waiting for new mail.");
            Console.Read();
        }

        private static void CreateTimer()
        {
            // create the timer
            System.Timers.Timer timer = new System.Timers.Timer();

            // set the event handler
            timer.Elapsed += new ElapsedEventHandler(OnElapsed);

            // set the interval to 1 minute
            timer.Interval = 1 * 60 * 1000;
            timer.AutoReset = true;

            timer.Start();
        }

        private static void OnElapsed(object sender, ElapsedEventArgs e)
        {
            //check for new email
            CheckPollResponse();
        }

        private static void CheckPollResponse()
        {
            Subscription pollSubscription = resource.Poll(myMailbox.Inbox, subID);

            if (pollSubscription.Status == "HTTP/1.1 200 OK")
            {
                //you've got mail
                Console.WriteLine("You have new mail!");
            }
        }

        internal class AcceptAllCertificatePolicy : ICertificatePolicy
        {
            public AcceptAllCertificatePolicy()
            {
            }

            public bool CheckValidationResult(ServicePoint sPoint,
            X509Certificate cert, WebRequest wRequest, int certProb)
            {
                // Always accept
                return true;
            }
        }
    }
}

VB example

Imports System
Imports System.Net
Imports System.Timers
Imports Independentsoft.Webdav.Exchange
Imports System.Security.Cryptography.X509Certificates

Module Module1

    Private resource As Resource = Nothing
    Private myMailbox As Mailbox = Nothing
    Private subID As Integer

    Sub Main(ByVal args() As String)
        Init()
    End Sub

    Private Sub Init()
        Dim credential As NetworkCredential = New NetworkCredential("username", "password")
        Dim session As WebdavSession = New WebdavSession(credential)

        ServicePointManager.CertificatePolicy = New AcceptAllCertificatePolicy
        session.UserMailbox = "https://myserver/exchange/emailaddress"

        resource = New Resource(session)

        'User's mailbox
        myMailbox = resource.Mailbox

        'set subscription
        Dim subscription As Subscription = resource.Subscribe(myMailbox.Inbox, NotificationType.NewMail, 3600)

        subID = subscription.ID
        CreateTimer()

        Console.WriteLine("Waiting for new mail.")
        Console.Read()
    End Sub

    Private Sub CreateTimer()
        ' create the timer
        Dim timer As System.Timers.Timer = New System.Timers.Timer

        ' set the event handler
        AddHandler timer.Elapsed, AddressOf OnElapsed

        ' set the interval to 1 minute
        timer.Interval = 1 * 60 * 1000
        timer.AutoReset = True

        timer.Start()
    End Sub

    Private Sub OnElapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs)
        'check for new email
        CheckPollResponse()
    End Sub

    Private Sub CheckPollResponse()
        Dim pollSubscription As Subscription = resource.Poll(myMailbox.Inbox, subID)

        If pollSubscription.Status = "HTTP/1.1 200 OK" Then
            'you've got mail
            Console.WriteLine("You have new mail!")
        End If
    End Sub

    Friend Class AcceptAllCertificatePolicy
        Implements ICertificatePolicy

        Public Sub New()
        End Sub

        Public Function CheckValidationResult(ByVal srvPoint As System.Net.ServicePoint, ByVal certificate As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal request As System.Net.WebRequest, ByVal certificateProblem As Integer) As Boolean Implements System.Net.ICertificatePolicy.CheckValidationResult
            Return True
        End Function
    End Class

End Module

Independentsoft - any library, any programming language

WebDAV .NET for Exchange > Tutorial > Monitor for new mail