From d281c5f64d7976b443e72bf70a928d97bc0506f2 Mon Sep 17 00:00:00 2001
From: Matteo Parlato <matteo.parlato@outlook.it>
Date: Mon, 4 Nov 2019 17:53:33 +0100
Subject: [PATCH 1/5] Added PowerShell setup script for COM installation

---
 OutlookCOMM.COM/OutlookCOMM.COM.csproj     |  5 ++++
 OutlookCOMM.COM/RegisterOCOMMInterface.ps1 | 35 ++++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 OutlookCOMM.COM/RegisterOCOMMInterface.ps1

diff --git a/OutlookCOMM.COM/OutlookCOMM.COM.csproj b/OutlookCOMM.COM/OutlookCOMM.COM.csproj
index 84fc316..cd058d9 100644
--- a/OutlookCOMM.COM/OutlookCOMM.COM.csproj
+++ b/OutlookCOMM.COM/OutlookCOMM.COM.csproj
@@ -43,6 +43,11 @@
     <Compile Include="MailUtilities.cs" />
     <Compile Include="Properties\AssemblyInfo.cs" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="RegisterOCOMMInterface.ps1">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+  </ItemGroup>
   <Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
diff --git a/OutlookCOMM.COM/RegisterOCOMMInterface.ps1 b/OutlookCOMM.COM/RegisterOCOMMInterface.ps1
new file mode 100644
index 0000000..b84bc27
--- /dev/null
+++ b/OutlookCOMM.COM/RegisterOCOMMInterface.ps1
@@ -0,0 +1,35 @@
+# Stop execution when an error occurs
+$ErrorActionPreference = "Stop"
+
+# Contains the path of regasm.exe
+$RegAsmPath = "$($env:Windir)\Microsoft.NET\Framework\v2.0.50727\regasm.exe"
+if (-not (Test-Path $RegAsmPath))
+{
+    throw "regasm.exe not found in $RegAsmPath"
+}
+
+# Ask for [Install] or [Abort]
+$Options = [System.Management.Automation.Host.ChoiceDescription[]] @("&Install", "&Abort")
+$Selection = $host.UI.PromptForChoice("OutlookCOMM for NAV Classic installer", "What do you want to do?", $Options, 0)
+if ($Selection -eq 0)
+{
+    # Create the folder OutlookCOMM in C:\ drive if it does not exists
+    $TargetFolder = "C:\OutlookCOMM"
+    if (-not [IO.Directory]::Exists($TargetFolder))
+    {
+        [IO.Directory]::CreateDirectory($TargetFolder) | Out-Null
+    }
+
+    # Copy OutlookCOMM files to $TargetFolder
+    Copy-Item "$PSScriptRoot\OutlookCOMM.COM.dll" -Destination "$TargetFolder" -Force
+    Copy-Item "$PSScriptRoot\OutlookCOMM.COM.tlb" -Destination "$TargetFolder" -Force
+    
+    # Register the COM component with regasm.exe
+    $RegAsmArgs = ($("`"$TargetFolder\OutlookCOMM.COM.dll`""), "/tlb:`"$("$TargetFolder\OutlookCOMM.COM.tlb")`"", "/silent", "/nologo", "/codebase")  
+    & $RegAsmPath @RegAsmArgs
+}
+else
+{
+    # Exit if [Abort]
+    exit(0)
+}
\ No newline at end of file

From 9691fb4b54487964ef9b87b8598fb5aded44ca54 Mon Sep 17 00:00:00 2001
From: Matteo Parlato <matteo.parlato@outlook.it>
Date: Mon, 4 Nov 2019 20:39:07 +0100
Subject: [PATCH 2/5] Updated documentation

---
 OutlookCOMM.COM/MailUtilities.cs | 6 ++++++
 OutlookCOMM.NET/MailUtilities.cs | 3 +++
 2 files changed, 9 insertions(+)

diff --git a/OutlookCOMM.COM/MailUtilities.cs b/OutlookCOMM.COM/MailUtilities.cs
index e0eaaa7..bdc6a4e 100644
--- a/OutlookCOMM.COM/MailUtilities.cs
+++ b/OutlookCOMM.COM/MailUtilities.cs
@@ -17,10 +17,13 @@ public interface IOutlookCOMM
         /// </summary>
         /// <param name="from">The sender address of the mail</param>
         /// <param name="to">The receiver address of the mail </param>
+        /// <param name="cc">The CC address of the mail</param>
+        /// <param name="bcc">The bcc address of the mail</param>
         /// <param name="subject">The subject of the mail to send</param>
         /// <param name="body">The body of the mail to send</param>
         /// <param name="attachmentPath">The path of the attachment to add to the mail</param>
         /// <param name="unsent">Set the X-Unsent property of the EML</param>
+        /// <param name="useOutlookAccount">If true uses the sender mail defined in Outlook otherwise uses from parameter</param>
         [DispId(1)] bool SaveEML(string from, string to, string cc, string bcc, string subject, string body, string attachmentPath, bool unsent, bool useOutlookAccount);
     }
     
@@ -34,10 +37,13 @@ public class MailUtilities:IOutlookCOMM
         /// </summary>
         /// <param name="from">The sender address of the mail</param>
         /// <param name="to">The receiver address of the mail </param>
+        /// <param name="cc">The CC address of the mail</param>
+        /// <param name="bcc">The bcc address of the mail</param>
         /// <param name="subject">The subject of the mail to send</param>
         /// <param name="body">The body of the mail to send</param>
         /// <param name="attachmentPath">The path of the attachment to add to the mail</param>
         /// <param name="unsent">Set the X-Unsent property of the EML</param>
+        /// <param name="useOutlookAccount">If true uses the sender mail defined in Outlook otherwise uses from parameter</param>
         public bool SaveEML(string from, string to, string cc, string bcc, string subject, string body, string attachmentPath, bool unsent, bool useOutlookAccount)
         {
             string tempFolderPath = Path.Combine(Path.GetTempPath(), "OutlookCOMM");
diff --git a/OutlookCOMM.NET/MailUtilities.cs b/OutlookCOMM.NET/MailUtilities.cs
index 29591a5..357d1b6 100644
--- a/OutlookCOMM.NET/MailUtilities.cs
+++ b/OutlookCOMM.NET/MailUtilities.cs
@@ -14,10 +14,13 @@ public static class MailUtilities
         /// </summary>
         /// <param name="from">The sender address of the mail</param>
         /// <param name="to">The receiver address of the mail </param>
+        /// <param name="cc">The CC address of the mail</param>
+        /// <param name="bcc">The bcc address of the mail</param>
         /// <param name="subject">The subject of the mail to send</param>
         /// <param name="body">The body of the mail to send</param>
         /// <param name="attachmentPath">The path of the attachment to add to the mail</param>
         /// <param name="unsent">Set the X-Unsent property of the EML</param>
+        /// <param name="useOutlookAccount">If true uses the sender mail defined in Outlook otherwise uses from parameter</param>
         public static bool SaveEML(string from, string to, string cc, string bcc, string subject, string body, string attachmentPath, bool unsent, bool useOutlookAccount)
         {
             string tempFolderPath = Path.Combine(Path.GetTempPath(), "OutlookCOMM");

From daa68607da81481abe8cb726b8b9669557a63d67 Mon Sep 17 00:00:00 2001
From: Matteo Parlato <matteo.parlato@outlook.it>
Date: Mon, 4 Nov 2019 23:33:17 +0100
Subject: [PATCH 3/5] Updated setup script and COM interface

---
 OutlookCOMM.COM/MailUtilities.cs           | 28 ++-------
 OutlookCOMM.COM/RegisterOCOMMInterface.ps1 | 71 ++++++++++++++--------
 OutlookCOMM.NET/MailUtilities.cs           |  2 +-
 3 files changed, 53 insertions(+), 48 deletions(-)

diff --git a/OutlookCOMM.COM/MailUtilities.cs b/OutlookCOMM.COM/MailUtilities.cs
index bdc6a4e..72100ce 100644
--- a/OutlookCOMM.COM/MailUtilities.cs
+++ b/OutlookCOMM.COM/MailUtilities.cs
@@ -8,29 +8,11 @@
 
 namespace OutlookCOMM.COM
 {
-    [Guid("69C85C8D-DBEB-4d85-83A7-7E5077AD11BA")]
-    [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
-    public interface IOutlookCOMM
-    {
-        /// <summary>
-        /// Method which creates an EML file with passed information.
-        /// </summary>
-        /// <param name="from">The sender address of the mail</param>
-        /// <param name="to">The receiver address of the mail </param>
-        /// <param name="cc">The CC address of the mail</param>
-        /// <param name="bcc">The bcc address of the mail</param>
-        /// <param name="subject">The subject of the mail to send</param>
-        /// <param name="body">The body of the mail to send</param>
-        /// <param name="attachmentPath">The path of the attachment to add to the mail</param>
-        /// <param name="unsent">Set the X-Unsent property of the EML</param>
-        /// <param name="useOutlookAccount">If true uses the sender mail defined in Outlook otherwise uses from parameter</param>
-        [DispId(1)] bool SaveEML(string from, string to, string cc, string bcc, string subject, string body, string attachmentPath, bool unsent, bool useOutlookAccount);
-    }
-    
-    [Guid("0C216A19-E1B7-4b05-86D3-4C516BDDC041")]
-    [ClassInterface(ClassInterfaceType.None)]
+    [ComVisible(true)]
+    [Guid("C79C6ABA-10F6-4DEA-B9AE-69DDB62C5881")]
+    [ClassInterface(ClassInterfaceType.AutoDual)]
     [ProgId("MailUtilities")]  
-    public class MailUtilities:IOutlookCOMM
+    public class MailUtilities
     {
         /// <summary>
         /// Method which creates an EML file with passed information.
@@ -38,7 +20,7 @@ public class MailUtilities:IOutlookCOMM
         /// <param name="from">The sender address of the mail</param>
         /// <param name="to">The receiver address of the mail </param>
         /// <param name="cc">The CC address of the mail</param>
-        /// <param name="bcc">The bcc address of the mail</param>
+        /// <param name="bcc">The BCC address of the mail</param>
         /// <param name="subject">The subject of the mail to send</param>
         /// <param name="body">The body of the mail to send</param>
         /// <param name="attachmentPath">The path of the attachment to add to the mail</param>
diff --git a/OutlookCOMM.COM/RegisterOCOMMInterface.ps1 b/OutlookCOMM.COM/RegisterOCOMMInterface.ps1
index b84bc27..7ab3c43 100644
--- a/OutlookCOMM.COM/RegisterOCOMMInterface.ps1
+++ b/OutlookCOMM.COM/RegisterOCOMMInterface.ps1
@@ -1,35 +1,58 @@
 # Stop execution when an error occurs
 $ErrorActionPreference = "Stop"
 
-# Contains the path of regasm.exe
-$RegAsmPath = "$($env:Windir)\Microsoft.NET\Framework\v2.0.50727\regasm.exe"
-if (-not (Test-Path $RegAsmPath))
-{
-    throw "regasm.exe not found in $RegAsmPath"
+# Detect if PowerShell has administrator privileges
+if (-NOT ([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))
+{   
+	# Run the script with PowerShell with administrator privileges
+    $Script = $MyInvocation.MyCommand.Definition
+    $Ps = Join-Path $PSHome 'powershell.exe'
+    Start-Process $Ps -Verb runas -ArgumentList "& '$Script'"
+    exit(0)
 }
-
-# Ask for [Install] or [Abort]
-$Options = [System.Management.Automation.Host.ChoiceDescription[]] @("&Install", "&Abort")
-$Selection = $host.UI.PromptForChoice("OutlookCOMM for NAV Classic installer", "What do you want to do?", $Options, 0)
-if ($Selection -eq 0)
+else
 {
-    # Create the folder OutlookCOMM in C:\ drive if it does not exists
-    $TargetFolder = "C:\OutlookCOMM"
-    if (-not [IO.Directory]::Exists($TargetFolder))
+    # Contains the path of regasm.exe
+    $RegAsmPath = "$($env:Windir)\Microsoft.NET\Framework\v2.0.50727\regasm.exe"
+    if (-not (Test-Path $RegAsmPath))
     {
-        [IO.Directory]::CreateDirectory($TargetFolder) | Out-Null
+        throw "regasm.exe not found in $RegAsmPath"
     }
 
-    # Copy OutlookCOMM files to $TargetFolder
-    Copy-Item "$PSScriptRoot\OutlookCOMM.COM.dll" -Destination "$TargetFolder" -Force
-    Copy-Item "$PSScriptRoot\OutlookCOMM.COM.tlb" -Destination "$TargetFolder" -Force
+    # Ask for [Install], [Remove] or [Abort]
+    $Options = [System.Management.Automation.Host.ChoiceDescription[]] @("&Install", "&Remove", "&Abort")
+    $Selection = $host.UI.PromptForChoice("Installer of OutlookCOMM for NAV Classic", "What do you want to do?", $Options, 0)
+    if ($Selection -eq 0 -or $Selection -eq 1)
+    {
+        # Create the folder OutlookCOMM in C:\ drive if it does not exists
+        $TargetFolder = "C:\OutlookCOMM"
+        if (-not [IO.Directory]::Exists($TargetFolder))
+        {
+            [IO.Directory]::CreateDirectory($TargetFolder) | Out-Null
+        }
+
+        # Copy OutlookCOMM files to $TargetFolder
+        Copy-Item "$PSScriptRoot\OutlookCOMM.COM.dll" -Destination "$TargetFolder" -Force
+        Copy-Item "$PSScriptRoot\OutlookCOMM.COM.tlb" -Destination "$TargetFolder" -Force
     
-    # Register the COM component with regasm.exe
-    $RegAsmArgs = ($("`"$TargetFolder\OutlookCOMM.COM.dll`""), "/tlb:`"$("$TargetFolder\OutlookCOMM.COM.tlb")`"", "/silent", "/nologo", "/codebase")  
-    & $RegAsmPath @RegAsmArgs
-}
-else
-{
-    # Exit if [Abort]
+        # Create the [Install] command
+        $RegAsmArgs = ($("`"$TargetFolder\OutlookCOMM.COM.dll`""), "/tlb:`"$("$TargetFolder\OutlookCOMM.COM.tlb")`"", "/silent", "/codebase")
+
+        # If user selected [Remove] add /u (unregister) parameter (/unregister is not recognised sometimes)
+        if ($Selection -eq 1)
+        {
+            $RegAsmArgs = @("/u") + $RegAsmArgs
+
+			# Detect if finsql.exe is running (can't unregister until closed)
+            $FinsqlProcess = Get-Process finsql -ErrorAction SilentlyContinue
+            if($FinsqlProcess)
+            {
+                throw "Close all finsql.exe instances before removing OutlookCOMM"
+            }
+        }
+
+        # Run regasm.exe with passed parameters
+        & $RegAsmPath @RegAsmArgs
+    }
     exit(0)
 }
\ No newline at end of file
diff --git a/OutlookCOMM.NET/MailUtilities.cs b/OutlookCOMM.NET/MailUtilities.cs
index 357d1b6..b048ab3 100644
--- a/OutlookCOMM.NET/MailUtilities.cs
+++ b/OutlookCOMM.NET/MailUtilities.cs
@@ -15,7 +15,7 @@ public static class MailUtilities
         /// <param name="from">The sender address of the mail</param>
         /// <param name="to">The receiver address of the mail </param>
         /// <param name="cc">The CC address of the mail</param>
-        /// <param name="bcc">The bcc address of the mail</param>
+        /// <param name="bcc">The BCC address of the mail</param>
         /// <param name="subject">The subject of the mail to send</param>
         /// <param name="body">The body of the mail to send</param>
         /// <param name="attachmentPath">The path of the attachment to add to the mail</param>

From e35db0ffbba56f99aa208a9fed918c9f0a205de0 Mon Sep 17 00:00:00 2001
From: Matteo Parlato <matteo.parlato@outlook.it>
Date: Mon, 4 Nov 2019 23:43:04 +0100
Subject: [PATCH 4/5] Update README.md

---
 README.md | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/README.md b/README.md
index fdd3524..f036391 100644
--- a/README.md
+++ b/README.md
@@ -18,21 +18,15 @@ OutlookCOMM is a component which can be used in Microsoft Dynamics NAV as a work
   2. Restart NAV service(s).
 
 * For NAV 2013:
-  1. Copy the OutlookCOMM.NET.dll into the Add-in folder placed inside both NAV service and RTC installation folders (the dll should be copied in every installed RTC - except for ClickOnce installations).
+  1. Copy the OutlookCOMM.NET.dll into the Add-in folder placed inside both NAV service and RTC installation folders (the dll should be copied in every installed RTC).
   2. Restart NAV service(s).
 
 * For NAV 2009R2 (RTC):
   1. Copy the OutlookCOMM.NET35.dll into the Add-in folder placed inside both NAV service and RTC installation folders (the dll should be copied in every installed RTC).
 
 * For NAV 2009R2 Classic and previous versions:
-  1. Copy the OutlookCOMM.COM.dll into the Add-in folder placed inside NAV Classic installation folder (the dll should be copied in every installed client).
-  2. From a command prompt with administrator rights run the following commands (on both server and clients):
+  1. Run `RegisterOCOMMInterface.ps1` with PowerShell on every installed client.
 
-
-  `cd C:\Windows\Microsoft.NET\Framework\v2.0.50727`
-
-
-  `regasm pathOfDllFile /tlb pathOfTlbFile`
   
 ### Applying changes to NAV objects
 

From 66559478c7225ad26c59ae70477d93188c36f01d Mon Sep 17 00:00:00 2001
From: Matteo Parlato <matteo.parlato@outlook.it>
Date: Mon, 4 Nov 2019 23:45:10 +0100
Subject: [PATCH 5/5] Update README.md

---
 README.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.md b/README.md
index f036391..8e35def 100644
--- a/README.md
+++ b/README.md
@@ -23,6 +23,7 @@ OutlookCOMM is a component which can be used in Microsoft Dynamics NAV as a work
 
 * For NAV 2009R2 (RTC):
   1. Copy the OutlookCOMM.NET35.dll into the Add-in folder placed inside both NAV service and RTC installation folders (the dll should be copied in every installed RTC).
+  2. Restart NAV service(s).
 
 * For NAV 2009R2 Classic and previous versions:
   1. Run `RegisterOCOMMInterface.ps1` with PowerShell on every installed client.