MAPIUtils

unit: MAPIUtils.pas
file path: ..\Library\
version: 2014.хх
uses ActiveX, Classes, Types, ComCtrls, Windows, SysUtils, Dialogs, DB, ExtendedMAPI, IMIEMTypes

Declarations:

PDTCTLArray = ^TDTCTLArray;

  TDTCTLArray = array [0 .. MaxLongint div SizeOf(DTCTL) - 1] of DTCTL;

  POPTIONDATAArray = ^TOPTIONDATAArray;

  TOPTIONDATAArray = array [0 .. MaxLongint div SizeOf(TOPTIONDATA) - 1] of TOPTIONDATA;

  PSPropValueArray = ^TSPropValueArray;

  LPSPropValueArray = PSPropValueArray;

  TSPropValueArray = array [0 .. MaxLongint div SizeOf(TSPropValue) - 1] of TSPropValue;

  PSSortOrderArray = ^TSSortOrderArray;

  TSSortOrderArray = array [0 .. MaxLongint div SizeOf(TSSortOrder) - 1] of TSSortOrder;

  PPSPropValueArray = ^T_PSPropValueArray;

  T_PSPropValueArray = array [0 .. MaxLongint div SizeOf(PSPropValue) - 1] of PSPropValue;

  TSRestrictionArray = array [0 .. MaxLongint div SizeOf(TSRestriction) - 1] of TSRestriction;

  PSRestrictionArray = ^TSRestrictionArray;

  PMapiNamedList = ^TMapiNamedList;

  TMapiNamedList = array [0 .. MaxLongint div SizeOf(TMAPINAMEID) - 1] of TMAPINAMEID;

  PPMapiNamedList = ^TPMapiNamedList;

  TPMapiNamedList = array [0 .. MaxLongint div SizeOf(PMAPINAMEID) - 1] of PMAPINAMEID;

  PSBinArray = ^TSBinArray;

  TSBinArray = array [0 .. MaxLongint div SizeOf(TSBinary) - 1] of TSBinary;

  TPSBinArray = array [0 .. MaxLongint div SizeOf(PSBinary) - 1] of PSBinary;

  PPSBinArray = ^TPSBinArray;

  TADRENTRYArray = array [0 .. MaxLongint div SizeOf(TADRENTRY) - 1] of TADRENTRY;

  PADRENTRYArray = ^TADRENTRYArray;

  TPADRENTRYArray = array [0 .. MaxLongint div SizeOf(PADRENTRY) - 1] of PADRENTRY;

  PPADRENTRYArray = ^TPADRENTRYArray;

  TSRowSetArray = array [0 .. MaxLongint div SizeOf(TSRowSet) - 1] of TSRowSet;

  PSRowSetArray = ^TSRowSetArray;

  TSRowSArray = array [0 .. MaxLongint div SizeOf(TSRow) - 1] of TSRow;

  PSRowSArray = ^TSRowSArray;

  TNOTIFICATIONArray = array [0 .. MaxLongint div SizeOf(TNOTIFICATION) - 1] of TNOTIFICATION;

  PNOTIFICATIONArray = ^TNOTIFICATIONArray;

  _TSingleArray = array [0 .. High(Integer) div SizeOf(single) - 1] of single;

  _PSingleArray = ^_TSingleArray;

  _TDoubleArray = array [0 .. High(Integer) div SizeOf(double) - 1] of double;

  _PDoubleArray = ^_TDoubleArray;

  _TCurrencyArray = array [0 .. High(Integer) div SizeOf(currency) - 1] of currency;

  _PCurrencyArray = ^_TCurrencyArray;

  _CardinalArray = array [0 .. MaxLongint div SizeOf(Cardinal) - 1] of Cardinal;

  _PCardinalArray = ^_CardinalArray;

  _TFileTimeArray = array [0 .. High(Integer) div SizeOf(TFileTime) - 1] of TFileTime;

  _PFileTimeArray = ^_TFileTimeArray;

  _TInt64Array = array [0 .. High(Integer) div SizeOf(int64) - 1] of int64;

  _PInt64Array = ^_TInt64Array;

  _SmallIntArray = array [0 .. High(Integer) div SizeOf(SmallInt) - 1] of SmallInt;

  _PSmallIntArray = ^_SmallIntArray;

  TAnsiCharArray = packed array [0 .. (MaxLongint div SizeOf(PAnsiChar)) - 1] of PAnsiChar;

  PAnsiCharArray = ^TAnsiCharArray;

  TWideCharArray = packed array [0 .. (MaxLongint div SizeOf(PWideChar)) - 1] of PWideChar;

  PWideCharArray = ^TWideCharArray;

  _TGUIDArray = array [0 .. High(Integer) div SizeOf(TGUID) - 1] of TGUID;

  _PGUIDArray = ^_TGUIDArray;

  // Exchange Server Version Info

  TExchangeInfo = packed record // EXCHANGE_STORE_VERSION_NUM

    wMajorVersion, wMinorVersion, wRelease, wBuild: word;

  end;

  PExchangeInfo = ^TExchangeInfo;

{$IF NOT DECLARED(TCPInfoEx)}

  PCPInfoExA = ^TCPInfoExA;

  PCPInfoExW = ^TCPInfoExW;

{$IFDEF UNICODE}

  PCPInfoEx = PCPInfoExW;

{$ELSE}

  PCPInfoEx = PCPInfoExA;

{$ENDIF UNICODE}

// Contains information about a code page. This structure is used by the GetCPInfoEx function.

  _cpinfoExA = record

    MaxCharSize: UINT; { max length (bytes) of a char }

    DefaultChar: array [0 .. MAX_DEFAULTCHAR - 1] of Byte; { default character }

    LeadByte: array [0 .. MAX_LEADBYTES - 1] of Byte; { lead byte ranges }

    UnicodeDefaultChar: WideChar;

    CodePage: UINT;

    CodePageName: array [0 .. MAX_PATH - 1] of AnsiChar;

  end;

  _cpinfoExW = record

    MaxCharSize: UINT; { max length (bytes) of a char }

    DefaultChar: array [0 .. MAX_DEFAULTCHAR - 1] of Byte; { default character }

    LeadByte: array [0 .. MAX_LEADBYTES - 1] of Byte; { lead byte ranges }

    UnicodeDefaultChar: WideChar;

    CodePage: UINT;

    CodePageName: array [0 .. MAX_PATH - 1] of WideChar;

  end;

{$IFDEF UNICODE}

  _cpinfoEx = _cpinfoExW;

{$ELSE}

  _cpinfoEx = _cpinfoExA;

{$ENDIF UNICODE}

  TCPInfoExA = _cpinfoExA;

  TCPInfoExW = _cpinfoExW;

{$IFDEF UNICODE}

  TCPInfoEx = TCPInfoExW;

{$ELSE}

  TCPInfoEx = TCPInfoExA;

{$ENDIF UNICODE}

  CPINFOExA = _cpinfoExA;

  CPINFOExW = _cpinfoExW;

{$IFDEF UNICODE}

  CPINFOEx = CPINFOExW;

{$ELSE}

  CPINFOEx = CPINFOExA;

{$ENDIF UNICODE}

{$IFEND}

Available functions:

function GetResourceFlags - Returns string representation of PR_RESOURCE_FLAGS (a bitmask of flags for message services and providers)

function _WrapText - Add LineBreaks at position MaxCol

procedure BinaryToHex - Converts a binary value into its hexadecimal representation
function BinaryToHex - Converts a binary value into its hexadecimal representation

procedure EntryIdToString - Deprecated - use BinaryToHex

function EntryIdToString - Deprecated - use BinaryToHex

procedure StringToEntryId - Converts a hexadecimal string into binary value

function StringToEntryId - Converts a hexadecimal string into binary value

function CreateOneOff - Creates an entry identifier for an one-off address

function IsOneOffEntryId - Determines is PR_ENTRYID hold an one-off address

function GetOneOffAddress - Returns a decoded one-off address from PR_ENTRYID

function IsWrappedDLEntryId - Determines is PR_ENTRYID holds a wrapped entry identifier of a member of a personal distribution list
function GetUnWrappedDLEntryId - Returns an UnWrapped EntryID of a member of a personal distribution list

function IsContactEntryId - Determines is PR_ENTRYID holds entry identifier of a Contact item

function IsGalEntryID - Determines is PR_ENTRYID holds entry identifier of a Global Address List item

function EncodeOneOffTemplate - Assembles an one-of address from name, address, address type
procedure DecodeOneOffTemplate - Dessembles an one-off address to name, address, address type

function GetExchSiteName - Retrieves Exchange server Site name from user Home-MTA attribute

function GetExchServerName - Retrieves Exchange Server name from user Home-MTA attribute

function CloneTSBinary - Returns a copy of TSBinary using Delphi memory functions

procedure FreeTSBinary - Releases TSBinary structure previously allocated with Delphi memory function
function MAPICloneTSBinary - Returns a copy of TSBinary using MAPI memory functions
procedure FreeMAPITSBinary - Releases TSBinary structure previously allocated with MAPI memory function

function IsSameBinary - Compares two TSBinary structure, whether they are the same
function IsSameNamedProp - Compares two TMAPINAMEID structures, whether they are the same

function GetMAPIError - Returns detailed information about an error, typically generated by MAPI
function SzDecodeMAPIError - Returns a string representation of a basic MAPI error. Deprecated. Use GetMAPIError.
function SzDecodeScode - Alias for SzDecodeMAPIError. Deprecated. Use GetMAPIError.

function SzGetPropTag - Returns a string representation of a PropTag

function SzGetPropType - Returns a string representation of a PropType

function DecodeMAPIInterfaces - Returns a string representation of the known MAPI interfaces

function GetSystemMAPIFolders - Returns entry identifier for Inbox, Outbox, Deleted Items, Sent Items

procedure AppendPropTag - Appends a new PropTag to PSPropTagArray
function DeletePropTag - Deletes a PropTag from PSPropTagArray

function PropTagsToArray - Converts PSPropTagArray to array of Cardinal

function HrOpenSingleProvider - Gets the IProfSect object for a single provider from the ProviderTable in the IProviderAdmin object

function GetMAPIStatus - Gets the IMAPIStatus object from MAPI Session

procedure StringsFromVariant - Converts an array (variant) of strings to TStrings
function StringsToVariant - Converts TStrings to an array (variant) of strings

function CopyProp - Copies the properties defined by an array of SPropValue structures to a new destination.
function CopyOneProp - Copies a single SPropValue structure to a new destination
function DuplicateOneProp - Copies a single SPropValue structure to a new destination

function FindExchangeVersion - Returns Microsoft Exchange Server version

function IsOldExchange - Determines if Microsoft Exchange Server version is < Exchange Server 2000
function IsOldExchStore - Determines if Microsoft Exchange Server Message Store version is < 2000
function IsStoreOffline - Determines if Microsoft Exchange Server Message Store is in "Off Line (Cached)" mode

function GetMAPIVersion - Returns Extended MAPI version

function GetOutlookVersionAsString - Returns Outlook version as string, e.g. '15.0.4551.1004'

function GetOutlookVersion - Returns Outlook version

function FIsExchangeStore - Indicates whether the IMsgStore is Microsoft Exchange Store
function FIsExchangeUserStore - Indicates whether the IMsgStore is Personal Exchange Store

function FIsExchangeDelegateStore - Indicates whether the IMsgStore is Personal Shared (Delegated) Exchange Store

function FIsPublicStore - Indicates whether the IMsgStore is Microsoft Exchange Public Store

function HrMAPIOpenInbox - Returns IPM Inbox folder

function PropIDIndex - Returns position of PropTag (PropID) in the PSPropTagArray

function IsPropIDExist - Indicates whether the PropTag (PropID) exists in PSPropTagArray
function ConcatSPropTagArrays - Takes two PSPropTagArray and combines them

function WideStringToAnsiString - Converts Unicode string to Ansi string using specified code page

function PWideCharToAnsiString - Converts PWideChar to Ansi string using specified code page

function AnsiToUnicode - Converts Ansi string to Unicode string using specified code page

function PAnsiCharToUnicode - Converts PAnsiChar to Unicode string using specified code page

function GetPropString - Returns property value from TSPropValue as string, when PROP_TYPE is PT_STRING8 or PT_UNICODE

function BinaryToStream - Converts PT_BINARY value to IStream or TStream

procedure IStreamToStream - Converts IStream to TStream

procedure StreamToIStream - Converts TStream to IStream

function BytesToHex - Converts TBytes to string
function BytesToHexStr - obsolete, use BytesToHex

function BinaryToBytes - Converts TSBinary to TBytes

procedure BytesToBinary - Converts TBytes to TSBinary

function MemoryStreamToBytes - Converts TMemoryStream to TBytes

function IsSupportsRTF - Checks whether the message or store supports RTF text

function IsSupportsUNICODE - Checks whether the message or store supports UNICODE text/string

function IsSameBytes - Compares two TBytes, whether they are the same
function IsSameTBytes - deprecated, use IsSameBytes

function MAPICopyRestriction - Copies PSRestriction to new PSRestriction

function MapiCopyPropSet - Copies PSPropValue to new PSPropValue array

function FindStringValue - Converts value from TSPropValue as string, when PROP_TYPE is PT_STRING8 or PT_UNICODE

procedure MessageToStream - Converts an IMessage to TStream.

procedure IStorageToStream - Converts an IStorage to TStream.

procedure IStorageFromStream - Creates an IStorage from TStream

function IsOutlook64 - Checks whether the installed Microsoft Office Outlook (version 2010 and above is 64 bit)

function GetResourceFlags(const Flags: Cardinal): TStrings;

description
Returns string representation of PR_RESOURCE_FLAGS (a bitmask of flags for message services and providers)

parameters
Flags: Cardinal

Usage:
ShowMessage(GetResourceFlags(GetPropLong(MsgStore, PR_RESOURCE_FLAGS)).Text);