Im Outlook eine Symbolleiste ein- bzw. ausblenden

[Schodn]

LÖSUNG

Um das Nachrichtenfenster öffnen und eine Symbolleiste aus- bzw. einzublenden

Delphi-Quellcode:

function ShowOutlookSymbolleiste(symbolleiste: string; show: boolean): boolean;
var
  outlook: OleVariant;
  i: Integer;
  vMailItem: variant;
begin
  outlook := CreateOleObject('Outlook.Application');
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Display;
  for i := 1 to outlook.ActiveInspector.commandbars.count do
  begin
    if outlook.ActiveInspector.commandbars.item[i].name = symbolleiste then
    begin
      outlook.ActiveInspector.commandbars.item[i].visible := show;
      result := true;
    end;
  end;
  result := false;
end;

Aufruf    ShowOutlookSymbolleiste('Format', TRUE);