mapix.pas

Drag files and Drop to delphi forms 0402

{++

  m a p i x . p a s

  Abstract:

    Automatic conversion of mapix.h.

  Comments:

    This source file automatically converted by
    htrans 0.91 beta 1 Copyright (c) 1997 Alexander Staubo

  Revision history:

    18-06-1997 20:53 alex  [Autogenerated]
    18-06-1997 20:53 alex  Retouched for release
    22-03-2005  anme    Modified to load extended mapi dynamically via location specified in registry.

--}

unit MapiX;

interface

uses
  Windows, SysUtils, ActiveX,
  MapiGuid, MapiDefs;

(*
 *  M A P I X . H
 *  
 *  Definitions of objects/flags, etc used by Extended MAPI.
 *  
 *  Copyright 1986-1996 Microsoft Corporation. All Rights Reserved.
 *)

{ ------------------------------------------------------ }

{ shared with simple mapi }

type
  TFLAGS = ULONG;
  
{ MAPILogon() flags.       }

const
  MAPI_LOGON_UI = $00000001            { Display logon UI                 }
  ;
  MAPI_NEW_SESSION = $00000002         { Don't use shared session         }
  ;
  MAPI_ALLOW_OTHERS = $00000008        { Make this a shared session       }
  ;
  MAPI_EXPLICIT_PROFILE = $00000010    { Don't use default profile        }
  ;
  MAPI_EXTENDED = $00000020            { Extended MAPI Logon              }
  ;
  MAPI_FORCE_DOWNLOAD = $00001000      { Get new mail before return       }
  ;
  MAPI_SERVICE_UI_ALWAYS = $00002000   { Do logon UI in all providers     }
  ;
  MAPI_NO_MAIL = $00008000             { Do not activate transports       }
  ;

{ #define MAPI_NT_SERVICE          0x00010000  Allow logon from an NT service  }

const
  MAPI_PASSWORD_UI = $00020000         { Display password UI only         }
  ;

  MAPI_TIMEOUT_SHORT = $00100000       { Minimal wait for logon resources }
  ;
  MAPI_SIMPLE_DEFAULT = MAPI_LOGON_UI or MAPI_FORCE_DOWNLOAD or MAPI_ALLOW_OTHERS;
  MAPI_SIMPLE_EXPLICIT = MAPI_NEW_SESSION or MAPI_FORCE_DOWNLOAD or MAPI_EXPLICIT_PROFILE;

{ Structure passed to MAPIInitialize(), and its ulFlags values }

type
  TMAPIINIT_0 =     
    record
      ulVersion : ULONG;
      ulFlags : ULONG;
    end;
  
  PMAPIINIT_0 = ^TMAPIINIT_0;
  
  TMAPIINIT = TMAPIINIT_0;
  
  PMAPIINIT = ^TMAPIINIT;
  
const
  MAPI_INIT_VERSION = 0;
  MAPI_MULTITHREAD_NOTIFICATIONS = $00000001;

{ Reserved for MAPI                    0x40000000 }

{ #define MAPI_NT_SERVICE              0x00010000  Use from NT service }

{ IMAPISession Interface -------------------------------------------------- }

{ Flags for OpenEntry and others }

{#define MAPI_MODIFY               ((ULONG) 0x00000001) }

{ Flags for Logoff }

const
  MAPI_LOGOFF_SHARED = $00000001       { Close all shared sessions    }
  ;
  MAPI_LOGOFF_UI = $00000002           { It's OK to present UI        }
  ;

{ Flags for SetDefaultStore. They are mutually exclusive. }

const
  MAPI_DEFAULT_STORE = $00000001       { for incoming messages }
  ;
  MAPI_SIMPLE_STORE_TEMPORARY = $00000002
                                       { for simple MAPI and CMC }
  ;
  MAPI_SIMPLE_STORE_PERMANENT = $00000003
                                       { for simple MAPI and CMC }
  ;
  MAPI_PRIMARY_STORE = $00000004       { Used by some clients }
  ;
  MAPI_SECONDARY_STORE = $00000005     { Used by some clients }
  ;

{ Flags for ShowForm. }

const
  MAPI_POST_MESSAGE = $00000001        { Selects post/send semantics }
  ;
  MAPI_NEW_MESSAGE = $00000002         { Governs copying during submission }
  ;

{  MessageOptions }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{  QueryDefaultMessageOpt }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{ IAddrBook Interface ----------------------------------------------------- }

{  CreateOneOff }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{***** MAPI_SEND_NO_RICH_INFO      ((ULONG) 0x00010000) }

{  RecipOptions }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{  QueryDefaultRecipOpt }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{  GetSearchPath }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{ IMsgServiceAdmin Interface ---------------------------------------------- }

{ Values for PR_RESOURCE_FLAGS in message service table }

const
  SERVICE_DEFAULT_STORE = $00000001;
  SERVICE_SINGLE_COPY = $00000002;
  SERVICE_CREATE_WITH_STORE = $00000004;
  SERVICE_PRIMARY_IDENTITY = $00000008;
  SERVICE_NO_PRIMARY_IDENTITY = $00000020;

{  GetMsgServiceTable }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{  GetProviderTable }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{ IProfAdmin Interface ---------------------------------------------------- }

{ Flags for CreateProfile }

const
  MAPI_DEFAULT_SERVICES = $00000001;

{ GetProfileTable }

{***** MAPI_UNICODE            ((ULONG) 0x80000000) }

{!! Interface declarations }

type
  IAddrBook = interface;
  IMsgServiceAdmin = interface;

  IMAPISession =
    interface(IUnknown)
    [strIID_IMAPISession]
      function GetLastError (hResult : HResult; ulFlags : ULONG;
        var lppMAPIError : PMAPIERROR) : HResult; stdcall;
      function GetMsgStoresTable (ulFlags : ULONG;
        out lppTable : IMAPITable) : HResult; stdcall;
      function OpenMsgStore (ulUIParam : ULONG; cbEntryID : ULONG;
        lpEntryID : PENTRYID; const lpInterface : TIID; ulFlags : ULONG;
        out lppMDB : IMsgStore) : HResult; stdcall;
      function OpenAddressBook (ulUIParam : ULONG; const lpInterface : TIID;
        ulFlags : ULONG; out lppAdrBook : IAddrBook) : HResult; stdcall;
      function OpenProfileSection (lpUID : PMAPIUID; const lpInterface : TIID;
        ulFlags : ULONG; out lppProfSect : IProfSect) : HResult; stdcall;
      function GetStatusTable (ulFlags : ULONG;
        out lppTable : IMAPITable) : HResult; stdcall;