JamesIgoe

    function statusUpdate (icon, text) {
        Office.context.mailbox.item.notificationMessages.replaceAsync("status", {
            type: "informationalMessage",
            icon: icon,
            message: text,
            persistent: false
        });
    }

JamesIgoe

var settingsManager = (function () {
    "use strict";

    var settingsManager = {};
    var _settings;

    settingsManager.initialize = function () {

        //global for custom property
        _settings = Office.context.roamingSettings;

JamesIgoe

The code is less than ideal, and is bit dirty, but turns MDX-based cellsets into pivottables:

- Uses selected pivot to extract MDX and connection (you can replace with your server-side stuff)
- Uses your GetDataTable() to transform cellset to data table
- Uses found code to turn datatable into ADODB recordset
- Creates pivotchache and then pivottable

        private void InsertPivotAsRecordset_Click(object sender, RibbonControlEventArgs e)
        {
            //down and dirty----

JamesIgoe

#light
module EulerLib

open Stat
open Print
open System.Numerics
open System
open System.Collections

let public getPrimes max =

JamesIgoe

        private void ThisAddIn_Startup(object sender, System.EventArgs e)
        {
            SystemEvents.PowerModeChanged += OnPowerChange;  
        }

        void OnPowerChange(Object sender, PowerModeChangedEventArgs e)
        {
            switch (e.Mode)
            {
                case PowerModes.Resume:

JamesIgoe

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using IExcel = Microsoft.Office.Interop.Excel;

namespace AccountHoldingsAddIn.Helpers
{
    public class Charting
    {

JamesIgoe

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Diagnostics;
using System.Net;
using System.Reflection;
using System.ServiceModel;
using System.Threading;

JamesIgoe

Option Explicit

Type Execution
    SheetCodeName As String
    StoredProcedure As String
    Date As String
    Portfolios As String
    Fields As String
End Type

JamesIgoe

            <!-- Rules-based detected entity for right click on spam -->
            <ExtensionPoint xsi:type="DetectedEntity">
              <Label resid="sendSpamButtonLabel" />
              <SourceLocation resid="sendSpamTaskPaneUrl" />
              <Rule xsi:type="RuleCollection" Mode="And">
                <Rule xsi:type="ItemIs" ItemType="Message" Highlight="All" />
                <Rule xsi:type="ItemHasRegularExpressionMatch" RegExName="subjectWithExternal" RegExValue="(\[EXTERNAL\])" PropertyName="Subject" Highlight="All" />
                <Rule xsi:type="ItemHasRegularExpressionMatch" RegExName="allText" RegExValue=".*" PropertyName="BodyAsPlaintext" Highlight="All" />
              </Rule>
            </ExtensionPoint>

JamesIgoe

Public Class DateHelpers

    Public Shared Function GetNextWeekday(ByVal start As DateTime, ByVal day As DayOfWeek) As Integer

        Return (CInt(day) - CInt(start.DayOfWeek) + 7) Mod 7

    End Function

    Public Shared Function DateWeek(item As Date) As Integer