EmailMessage mail = new EmailMessage(esb);
// #region Сборка Microsoft.Exchange.WebServices, Version=15.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35
// ..\packages\Microsoft.Exchange.WebServices.2.2\lib\40\Microsoft.Exchange.WebServices.dll
#endregion

/// куча всяких аутентификаций, действия и т.д.

mail.Send();

            Application application = new Application();
            // но сначала надо в аутлуке создать шаблон и куда-то сохранить его "Без имени.oft"
            Outlook.MailItem mail = application.CreateItemFromTemplate(@"Без имени.oft") as Outlook.MailItem;

            mail.Subject = "Тест";
            Outlook.AddressEntry currentUser =
            application.Session.CurrentUser.AddressEntry;
            mail.Recipients.Add(currentUser.Address);
            mail.Recipients.ResolveAll();
            mail.Send();

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItemFromTemplate("C:\qq\шаблон с запретом пересылки.oft")
    NewMail.To = "andrey.****@****"
    
    NewMail.Body = "qqqqqqqqqqqqqq íîâûé òåêñò qqqqqqqqqqqqqq íîâûé òåêñò qqqqqqqqqqqqqq íîâûé òåêñò "
    NewMail.Send
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItemFromTemplate("C:\qq\шаблон с запретом пересылки.oft")
    NewMail.To = "andrey.****@****"

    NewMail.GetInspector.Activate();
    
    NewMail.Body = "qqqqqqqqqqqqqq  qqqqqqqqqqqqqq "
    NewMail.Send
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub