Как написать Outlook AddInDelphi , Интернет и Сети , Почтовый клиентКак написать Outlook AddInАвтор: http://www.swissdelphicenter.ch { 1. Create an ActiveX-Library Save the project as e.g. "OLAddIn.dpr" 2.Create an automation object Call the CoClass e.g. "AddIn" Save the Unit as "AddIn.pas" 3. Add to the uses clause - AddInDesignerObjects_TLB - Outlook_TLB } 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; { and complete the class by pressing Ctrl-Shft-C 4. Step 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. 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. Статья Как написать Outlook AddIn раздела Интернет и Сети Почтовый клиент может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Почтовый клиент ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |