Install-Package MailBee.NET

Install-Package System.Text.Encoding.CodePages

Install-Package MailBee.NET

• C#
• VB

using System;
using System.IO;
using Windows.UI.Xaml;
using Windows.UI.Xaml.Controls;
using Windows.UI.Popups;
using Windows.Storage;
using Windows.Networking.Sockets;
using Windows.Security.Cryptography.Certificates;
using System.Text;
using System.Threading;
using Google.Apis.Auth.OAuth2;
using Google.Apis.Oauth2.v2;
using Google.Apis.Oauth2.v2.Data;
using Google.Apis.Services;
using MailBee;
using MailBee.Mime;
using MailBee.ImapMail;

namespace UniApp1
{
	public sealed partial class MainPage : Page
	{
		public MainPage()
		{
			this.InitializeComponent();
		}

		static void Imp_SocketCreating(object sender, SocketCreatingEventArgs e)
		{
			// Demonstrate how we can allow self-signed or expired certificates.
			e.NewSocket = new StreamSocket();
			e.NewSocket.Control.IgnorableServerCertificateErrors.Add(ChainValidationResult.InvalidName);
			e.NewSocket.Control.IgnorableServerCertificateErrors.Add(ChainValidationResult.Untrusted);
			e.NewSocket.Control.IgnorableServerCertificateErrors.Add(ChainValidationResult.Expired);
		}

		private async void button_Click(object sender, RoutedEventArgs e)
		{
			Encoding.RegisterProvider(CodePagesEncodingProvider.Instance);

			MailBee.Global.LicenseKey = "MN1XX-XXXXXXXX-XXXX";

			Imap imp = new Imap();
			imp.Log.Filename = Path.Combine(ApplicationData.Current.LocalFolder.Path, "log.txt");
			imp.Log.Enabled = true;
			await imp.Log.ClearAsync();

			// Request Gmail IMAP/SMTP scope and the e-mail address scope.
			string[] scopes = new string[] { "https://mail.google.com/", "https://www.googleapis.com/auth/userinfo.email" };

			System.Diagnostics.Debug.WriteLine("Requesting authorization");
			Uri SecretsUri = new Uri("ms-appx:///Assets/client_secret.json", UriKind.Absolute);
			UserCredential credential = await GoogleWebAuthorizationBroker.AuthorizeAsync(SecretsUri, scopes, "user", CancellationToken.None);
			System.Diagnostics.Debug.WriteLine("Authorization granted or not required (if the saved access token already available)");

			if (credential.Token.IsExpired(credential.Flow.Clock))
			{
				System.Diagnostics.Debug.WriteLine("The access token has expired, refreshing it");
				if (await credential.RefreshTokenAsync(CancellationToken.None))
				{
					System.Diagnostics.Debug.WriteLine("The access token is now refreshed");
				}
				else
				{
					System.Diagnostics.Debug.WriteLine("The access token has expired but we can't refresh it :(");
					return;
				}
			}
			else
			{
				System.Diagnostics.Debug.WriteLine("The access token is OK, continue");
			}

			System.Diagnostics.Debug.WriteLine("Requesting the e-mail address of the user from Google");

			// Sometimes, you may also need to set Initializer.ApplicationName property.
			// In our tests, setting just Initializer.HttpClientInitializer was enough for Google.
			Oauth2Service oauthService = new Oauth2Service(
				new BaseClientService.Initializer() { HttpClientInitializer = credential });

			// Userinfo.Get may crash if you run the app under debugger (a bug in Google API).
			// If this happens, use "Start without debugging" instead.
			Userinfo userInfo = await oauthService.Userinfo.Get().ExecuteAsync();
			string userEmail = userInfo.Email;
			System.Diagnostics.Debug.WriteLine("E-mail address is " + userEmail);

			// Build XOAUTH2 token. Can be used with Gmail IMAP or SMTP.
			string xoauthKey = OAuth2.GetXOAuthKeyStatic(userEmail, credential.Token.AccessToken);

			try
			{
				await imp.ConnectAsync("imap.gmail.com", 993);
				await imp.LoginAsync(null, xoauthKey, AuthenticationMethods.SaslOAuth2);
				await imp.SelectFolderAsync("Inbox");
				MailMessage msg = await imp.DownloadEntireMessageAsync(imp.MessageCount, false);
				await imp.DisconnectAsync();
				string html = msg.GetHtmlWithBase64EncodedRelatedFiles();
				web.NavigateToString(html);
			}
			catch (MailBeeException ex)
			{
				if (imp.IsConnected)
				{
					await imp.DisconnectAsync();
				}
				System.Diagnostics.Debug.WriteLine(ex.ToString());
				MessageDialog dialog = new MessageDialog(ex.ToString());
				await dialog.ShowAsync();
			}
		}
	}
}

Imports Windows.UI.Popups
Imports Windows.Storage
Imports Windows.Networking.Sockets
Imports Windows.Security.Cryptography.Certificates
Imports System.Text
Imports System.Threading
Imports Google.Apis.Auth.OAuth2
Imports Google.Apis.Oauth2.v2
Imports Google.Apis.Oauth2.v2.Data
Imports Google.Apis.Services
Imports MailBee
Imports MailBee.Mime
Imports MailBee.ImapMail

Public NotInheritable Class MainPage
	Inherits Page

	Sub Imp_SocketCreating(sender As Object, e As SocketCreatingEventArgs)
		e.NewSocket = New StreamSocket()
		e.NewSocket.Control.IgnorableServerCertificateErrors.Add(ChainValidationResult.InvalidName)
		e.NewSocket.Control.IgnorableServerCertificateErrors.Add(ChainValidationResult.Untrusted)
		e.NewSocket.Control.IgnorableServerCertificateErrors.Add(ChainValidationResult.Expired)
	End Sub

	Private Async Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
		Encoding.RegisterProvider(CodePagesEncodingProvider.Instance)

		MailBee.Global.LicenseKey = "MN1XX-XXXXXXXX-XXXX"

		Dim imp As New Imap()

		imp.Log.Filename = Path.Combine(ApplicationData.Current.LocalFolder.Path, "log.txt")
		imp.Log.Enabled = True
		Await imp.Log.ClearAsync()

		' Request Gmail IMAP/SMTP scope and the e-mail address scope.
		Dim scopes As String() = New String() {"https://mail.google.com/", "https://www.googleapis.com/auth/userinfo.email"}

		System.Diagnostics.Debug.WriteLine("Requesting authorization")
		Dim SecretsUri As New Uri("ms-appx:///Assets/client_secret.json", UriKind.Absolute)
		Dim credential As UserCredential = Await GoogleWebAuthorizationBroker.AuthorizeAsync(SecretsUri, scopes, "user", CancellationToken.None)
		System.Diagnostics.Debug.WriteLine("Authorization granted or not required (if the saved access token already available)")

		If credential.Token.IsExpired(credential.Flow.Clock) Then
			System.Diagnostics.Debug.WriteLine("The access token has expired, refreshing it")
			If Await credential.RefreshTokenAsync(CancellationToken.None) Then
				System.Diagnostics.Debug.WriteLine("The access token is now refreshed")
			Else
				System.Diagnostics.Debug.WriteLine("The access token has expired but we can't refresh it :(")
				Return
			End If
		Else
			System.Diagnostics.Debug.WriteLine("The access token is OK, continue")
		End If

		System.Diagnostics.Debug.WriteLine("Requesting the e-mail address of the user from Google")

		' Sometimes, you may also need to set Initializer.ApplicationName property.
		' In our tests, setting just Initializer.HttpClientInitializer was enough for Google.
		Dim oauthService As New Oauth2Service(New BaseClientService.Initializer() With {
			.HttpClientInitializer = credential
		})

		' Userinfo.Get may crash if you run the app under debugger (a bug in Google API).
		' If this happens, use "Start without debugging" instead.
		Dim userInfo As Userinfo = Await oauthService.Userinfo.Get().ExecuteAsync()
		Dim userEmail As String = userInfo.Email
		System.Diagnostics.Debug.WriteLine(Convert.ToString("E-mail address is ") & userEmail)

		' Build XOAUTH2 token. Can be used with Gmail IMAP or SMTP.
		Dim xoauthKey As String = OAuth2.GetXOAuthKeyStatic(userEmail, credential.Token.AccessToken)

		Dim savedEx As MailBeeException = Nothing ' Unlike C#, we can't await in Catch in VB14 (although this will change in VB17).
		Try
			Await imp.ConnectAsync("imap.gmail.com", 993)
			Await imp.LoginAsync(Nothing, xoauthKey, AuthenticationMethods.SaslOAuth2)
			Await imp.SelectFolderAsync("Inbox")
			Dim msg As MailMessage = Await imp.DownloadEntireMessageAsync(imp.MessageCount, False)
			Await imp.DisconnectAsync()
			Dim html As String = msg.GetHtmlWithBase64EncodedRelatedFiles()
			web.NavigateToString(html)
		Catch ex As MailBeeException
			savedEx = ex
			System.Diagnostics.Debug.WriteLine(ex.ToString())
		End Try
		If imp.IsConnected Then
			Await imp.DisconnectAsync()
		End If
		If savedEx IsNot Nothing Then
			Dim dialog As New MessageDialog(savedEx.ToString())
			Await dialog.ShowAsync()
		End If
	End Sub
End Class