Merge pull request #1707 from ThunderFrame/next

Adds Unit Tests to Outlook
rubberduck-vba · Jun 5, 2016 · ccd6225 · ccd6225
2 parents b96664e + 6ac1979
commit ccd6225
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 3 deletions.
diff --git a/RetailCoder.VBE/UI/Command/AddTestModuleCommand.cs b/RetailCoder.VBE/UI/Command/AddTestModuleCommand.cs
@@ -32,7 +32,8 @@ public override bool CanExecute(object parameter)
             }
 
             // Outlook requires test methods to be located in [ThisOutlookSession] class.
-            return app.ApplicationName != "Outlook";
+            //return app.ApplicationName != "Outlook";
+            return true;
         }
 
         public override void Execute(object parameter)

diff --git a/Rubberduck.VBEEditor/VBEHost/OutlookApp.cs b/Rubberduck.VBEEditor/VBEHost/OutlookApp.cs
@@ -1,6 +1,7 @@
 using System;
 using System.Runtime.InteropServices;
-//using Microsoft.Office.Interop.Outlook;
+using Microsoft.Office.Core;
+using Microsoft.Office.Interop.Outlook;
 
 namespace Rubberduck.VBEditor.VBEHost
 {
@@ -23,7 +24,18 @@ public override void Run(QualifiedMemberName qualifiedMemberName)
             //taskitem.Subject = "Rubberduck";
             //taskitem.Body = qualifiedMemberName.MemberName;
 
-            throw new NotImplementedException();
+            try
+            {
+                var app = Application;
+                var exp = app.ActiveExplorer();
+                CommandBar cb = exp.CommandBars.Add("RubberduckCallbackProxy", Temporary: true);
+                CommandBarControl btn = cb.Controls.Add(MsoControlType.msoControlButton, 1);
+                btn.OnAction = qualifiedMemberName.ToString();
+                btn.Execute();
+                cb.Delete();
+            }
+            catch {             
+            }
         }
     }
 }