whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1547)

Database (90)
Files (137)
Forms (107)
Graphic (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Math (76)
Misc (127)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (268)
VCL (243)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

46 Visitors Online


 
...write an Outlook AddIn?
Autor: Andreas Rumsch
Homepage: http://www.ardesign.ch
[ Print tip ]  

Tip Rating (6):  
     


{
  1. Schritt / 1. Step
  Erzeuge eine ActiveX-Library
  Speichere das Projekt unter z.B. "OLAddIn.dpr"

  Create an ActiveX-Library
  Save the project as e.g. "OLAddIn.dpr"

  2. Schritt / 2. Step
  Erzeuge ein Automatisierungs-Objekt
  Benenne die CoClass z.B. mit "AddIn"
  Speichere die Unit als z.B. "AddIn.pas"

  Create an automation object
  Call the CoClass e.g. "AddIn"
  Save the Unit as "AddIn.pas"

  3. Schritt / 3. Step
  Ergänze die uses-Anweisung um
  Add to the uses clause
  - AddInDesignerObjects_TLB
  - Outlook_TLB

  Ergänze die Interface-Liste von TAddIn um
  add to the interface list of TAddIn
  - IDTExtensibility2

  Ergänze die Deklaration um folgende Methoden
  Add the following methods to TAddIn
}

-     procedure OnConnection(const Application: IDispatch; ConnectMode: ext_ConnectMode;
                           const AddInInst: IDispatch; var custom: PSafeArray); safecall;
-     procedure OnDisconnection(RemoveMode: ext_DisconnectMode; var custom: PSafeArray); safecall;
-     procedure OnAddInsUpdate(var custom: PSafeArray); safecall;
-     procedure OnStartupComplete(var custom: PSafeArray); safecall;
-     procedure OnBeginShutdown(var custom: PSafeArray); safecall;

{
  und vervollständige die Unit mit der Implementation dieser Methoden (Ctrl-Shft-C)
  and complete the class by pressing Ctrl-Shft-C

  4. Schritt / 4. Step
  Registriere das COM-Objekt des Addins mit "Run / Register ActiveX Server"
  Registriere das AddIn, so dass Outlook dieses als AddIn erkennt
  - Erzeuge den Schlüssel: HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\Addins\OLAddIn.AddIn
  - Trage dort den DWORD-Wert "LoadBehavior" mit dem Wert 03 ein

  Register the COM-object with "run / register ActiveX Server"
  Register the AddIn, so that the Addin will be recognized by Outlook
  - Create a new key: HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\Addins\OLAddIn.AddIn
  - create a DWOrd "LoadBehavior" with the value 3

  5. Schritt / 5. Step
  Kompiliere das Addin
  Starte Outlook

  Compile the AddIn
  Start Outllok

  Sourcecode

  *********************************************************************************
}


library OLAddIn;

uses
  
ComServ,
  OLAddIn_TLB in 'OLAddIn_TLB.pas',
  AddIn in 'AddIn.pas' {AddIn: CoClass};

exports
  
DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;

{$R *.TLB}

{$R *.RES}

begin
end
.

{
*********************************************************************************
*********************************************************************************
}

unit AddIn;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  
ComObj, ActiveX, OLAddIn_TLB, StdVcl, AddinDesignerObjects_TLB, Outlook_TLB;

type
  
TAddIn = class(TAutoObject, IAddIn, IDTExtensibility2)
  protected
    
{ Protected declarations }
    
procedure OnConnection(const Application: IDispatch; ConnectMode: ext_ConnectMode;
                           const AddInInst: IDispatch; var custom: PSafeArray); safecall;
    procedure OnDisconnection(RemoveMode: ext_DisconnectMode; var custom: PSafeArray); safecall;
    procedure OnAddInsUpdate(var custom: PSafeArray); safecall;
    procedure OnStartupComplete(var custom: PSafeArray); safecall;
    procedure OnBeginShutdown(var custom: PSafeArray); safecall;
  end;

implementation

uses 
ComServ, Dialogs;

{ TAddIn }

procedure TAddIn.OnAddInsUpdate(var custom: PSafeArray);
begin

end
;

procedure TAddIn.OnBeginShutdown(var custom: PSafeArray);
begin

end
;

procedure TAddIn.OnConnection(const Application: IDispatch;
  ConnectMode: ext_ConnectMode; const AddInInst: IDispatch;
  var custom: PSafeArray);
begin
  
// To show, that the AddIn has started just say anything
  
ShowMessage('Das AddIn wurde gestartet');
end;

procedure TAddIn.OnDisconnection(RemoveMode: ext_DisconnectMode;
  var custom: PSafeArray);
begin

end
;

procedure TAddIn.OnStartupComplete(var custom: PSafeArray);
begin

end
;

initialization
  
TAutoObjectFactory.Create(ComServer, TAddIn, Class_AddIn,
    ciMultiInstance, tmApartment);
end.



 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners