如何读出，控制outlook express的邮箱内容，如何读出outlook express的地址簿的内容！

[ogen]

如何读出，控制outlook express的邮箱内容，如何读出outlook express的地址簿的内容！

[jevin8011]

up

[invalid]

outlook express的地址簿就是windows自带的wab格式地址簿，在论坛搜索老帖子。

[jxf_yx]

up

[jxf_yx]

现在搜索不了帖子了，怎么办？

[MEFULEU]

{******************************************************************************}
{ }
{ Web Publishing API interface Unit for Object Pascal }
{ }
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft }
{ Corporation. All Rights Reserved. }
{ }
{ The original file is: wpapi.h, released June 2000. The original Pascal }
{ code is: WPApi.pas, released December 2000. The initial developer of the }
{ Pascal code is Marcel van Brakel ([e-mail]). }
{ }
{ Portions created by Marcel van Brakel are Copyright (C) 1999-2001 }
{ Marcel van Brakel. All Rights Reserved. }
{ }
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) }
{ }
{ You may retrieve the latest version of this file at the Project JEDI home }
{ page, located at http://delphi-jedi.org or my personal homepage located at }
{ http://members.chello.nl/m.vanbrakel2 }
{ }
{ The contents of this file are used with permission, subject to the Mozilla }
{ Public License Version 1.1 (the "License"); you may not use this file except }
{ in compliance with the License. You may obtain a copy of the License at }
{ http://www.mozilla.org/MPL/MPL-1.1.html }
{ }
{ Software distributed under the License is distributed on an "AS IS" basis, }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
{ the specific language governing rights and limitations under the License. }
{ }
{ Alternatively, the contents of this file may be used under the terms of the }
{ GNU Lesser General Public License (the "LGPL License"), in which case the }
{ provisions of the LGPL License are applicable instead of those above. }
{ If you wish to allow use of your version of this file only under the terms }
{ of the LGPL License and not to allow others to use your version of this file }
{ under the MPL, indicate your decision by deleting the provisions above and }
{ replace them with the notice and other provisions required by the LGPL }
{ License. If you do not delete the provisions above, a recipient may use }
{ your version of this file under either the MPL or the LGPL License. }
{ }
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
{ }
{******************************************************************************}

unit JwaWPApi;

{$WEAKPACKAGEUNIT}

{$HPPEMIT ''}
{$HPPEMIT '#include "wpapi.h"'}
{$HPPEMIT ''}

{$I WINDEFINES.INC}

interface

uses
JwaWPTypes, JwaWinType;

//
// Flags
//

const
WPF_NO_RECURSIVE_POST = $00000001; // WpPost
{$EXTERNALSYM WPF_NO_RECURSIVE_POST}
WPF_NO_WIZARD = $00000002; // WpPost
{$EXTERNALSYM WPF_NO_WIZARD}
WPF_MINIMAL_UI = $00000004; // WpPost - OBSOLETE
{$EXTERNALSYM WPF_MINIMAL_UI}
WPF_FIRST_FILE_AS_DEFAULT = $00000008; // WpPost/PostFiles
{$EXTERNALSYM WPF_FIRST_FILE_AS_DEFAULT}
WPF_NO_DIRECT_LOOKUP = $00000010; // WpBindToSite
{$EXTERNALSYM WPF_NO_DIRECT_LOOKUP}
WPF_NO_URL_LOOKUP = $00000020; // WpBindToSite
{$EXTERNALSYM WPF_NO_URL_LOOKUP}
WPF_USE_PROVIDER_PASSED = $00000040; // WpCreateSite
{$EXTERNALSYM WPF_USE_PROVIDER_PASSED}
WPF_NO_VERIFY_POST = $00000080; // WpPost
{$EXTERNALSYM WPF_NO_VERIFY_POST}
WPF_NO_PROGRESS_DLGS = $00000200; // WpPost
{$EXTERNALSYM WPF_NO_PROGRESS_DLGS}
WPF_SHOWPAGE_WELCOME = $00010000; // WpPost/Wizard
{$EXTERNALSYM WPF_SHOWPAGE_WELCOME}
WPF_SHOWPAGE_SRCFILE = $00020000; // WpPost/Wizard
{$EXTERNALSYM WPF_SHOWPAGE_SRCFILE}
WPF_SHOWPAGE_DESTSITE = $00040000; // WpPost/Wizard
{$EXTERNALSYM WPF_SHOWPAGE_DESTSITE}
WPF_SHOWPAGE_PROVIDER = $00080000; // WpPost/Wizard/AddWizardPages
{$EXTERNALSYM WPF_SHOWPAGE_PROVIDER}
WPF_ENABLE_LOCAL_BASE_DIR = $00100000; // WpPost/Wizard
{$EXTERNALSYM WPF_ENABLE_LOCAL_BASE_DIR}

WPF_NO_UI = WPF_NO_WIZARD or WPF_NO_PROGRESS_DLGS;
{$EXTERNALSYM WPF_NO_UI}

WPF_SHOWPAGE_ALL = WPF_SHOWPAGE_WELCOME or WPF_SHOWPAGE_SRCFILE or WPF_SHOWPAGE_DESTSITE or WPF_SHOWPAGE_PROVIDER;
{$EXTERNALSYM WPF_SHOWPAGE_ALL}

//
// Miscellaneous
//

MAX_SITENAME_LEN = 128;
{$EXTERNALSYM MAX_SITENAME_LEN}

//
// Unicode APIs
//

function WpPostW(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPWSTR;
var pdwSiteNameBufLen: DWORD; wsSiteName: LPWSTR; var pdwDestURLBufLen: DWORD;
wsDestURL: LPWSTR; dwFlag: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpPostW}
function WpListSitesW(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOW;
var pdwNumSites: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpListSitesW}
function WpDoesSiteExistW(wsSiteName: LPCWSTR; var pfSiteExists: BOOL): DWORD; stdcall;
{$EXTERNALSYM WpDoesSiteExistW}
function WpDeleteSiteW(wsSiteName: LPCWSTR): DWORD; stdcall;
{$EXTERNALSYM WpDeleteSiteW}
function WpBindToSiteW(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCWSTR;
dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
{$EXTERNALSYM WpBindToSiteW}
function WpCreateSiteW(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL,
wsProviderCLSID: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpCreateSiteW}
function WpEnumProvidersW(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOW;
var pdwNumProviders: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpEnumProvidersW}
function WpGetErrorStringW(uErrCode: UINT; wsOutputBuf: LPWSTR; var pdwBufLen: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpGetErrorStringW}

//
// ANSI APIs
//

function WpPostA(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPSTR;
var pdwSiteNameBufLen: DWORD; wsSiteName: LPSTR; var pdwDestURLBufLen: DWORD;
wsDestURL: LPSTR; dwFlag: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpPostA}
function WpListSitesA(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOA;
var pdwNumSites: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpListSitesA}
function WpDoesSiteExistA(wsSiteName: LPCSTR; var pfSiteExists: BOOL): DWORD; stdcall;
{$EXTERNALSYM WpDoesSiteExistA}
function WpDeleteSiteA(wsSiteName: LPCSTR): DWORD; stdcall;
{$EXTERNALSYM WpDeleteSiteA}
function WpBindToSiteA(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCSTR;
dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
{$EXTERNALSYM WpBindToSiteA}
function WpCreateSiteA(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL,
wsProviderCLSID: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpCreateSiteA}
function WpEnumProvidersA(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOA;
var pdwNumProviders: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpEnumProvidersA}
function WpGetErrorStringA(uErrCode: UINT; wsOutputBuf: LPSTR; var pdwBufLen: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpGetErrorStringA}

{$IFDEF UNICODE}

[MEFULEU]

function WpPost(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPWSTR;
var pdwSiteNameBufLen: DWORD; wsSiteName: LPWSTR; var pdwDestURLBufLen: DWORD;
wsDestURL: LPWSTR; dwFlag: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpPost}
function WpListSites(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOW;
var pdwNumSites: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpListSites}
function WpDoesSiteExist(wsSiteName: LPCWSTR; var pfSiteExists: BOOL): DWORD; stdcall;
{$EXTERNALSYM WpDoesSiteExist}
function WpDeleteSite(wsSiteName: LPCWSTR): DWORD; stdcall;
{$EXTERNALSYM WpDeleteSite}
function WpBindToSite(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCWSTR;
dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
{$EXTERNALSYM WpBindToSite}
function WpCreateSite(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL, wsProviderCLSID: LPCWSTR; dwFlags: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpCreateSite}
function WpEnumProviders(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOW;
var pdwNumProviders: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpEnumProviders}
function WpGetErrorString(uErrCode: UINT; wsOutputBuf: LPWSTR; var pdwBufLen: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpGetErrorString}

{$ELSE}

function WpPost(hwnd: HWND; dwNumLocalPaths: DWORD; pwsLocalPaths: LPSTR;
var pdwSiteNameBufLen: DWORD; wsSiteName: LPSTR; var pdwDestURLBufLen: DWORD;
wsDestURL: LPSTR; dwFlag: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpPost}
function WpListSites(var pdwSitesBufLen: DWORD; pSitesBuffer: LPWPSITEINFOA;
var pdwNumSites: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpListSites}
function WpDoesSiteExist(wsSiteName: LPCSTR; var pfSiteExists: BOOL): DWORD; stdcall;
{$EXTERNALSYM WpDoesSiteExist}
function WpDeleteSite(wsSiteName: LPCSTR): DWORD; stdcall;
{$EXTERNALSYM WpDeleteSite}
function WpBindToSite(hwnd: HWND; wsSiteName, wsSitePostingURL: LPCSTR;
dwFlag, dwReserved: DWORD; out ppvUnk: IUnknown): DWORD; stdcall;
{$EXTERNALSYM WpBindToSite}
function WpCreateSite(wsSiteName, wsSiteLocalBaseDir, wsSitePostingURL, wsProviderCLSID: LPCSTR; dwFlags: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpCreateSite}
function WpEnumProviders(var pdwProvidersBufLen: DWORD; pProvidersBuffer: LPWPPROVINFOA;
var pdwNumProviders: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpEnumProviders}
function WpGetErrorString(uErrCode: UINT; wsOutputBuf: LPSTR; var pdwBufLen: DWORD): DWORD; stdcall;
{$EXTERNALSYM WpGetErrorString}

{$ENDIF}

implementation

const
wpapi_lib = 'wpapi.dll';


{$IFDEF DYNAMIC_LINK}
var
_WpPostA: Pointer;

function WpPostA;
begin
GetProcedureAddress(_WpPostA, wpapi_lib, 'WpPostA');
asm
mov esp, ebp
pop ebp
jmp [_WpPostA]
end;
end;
{$ELSE}
function WpPostA; external wpapi_lib name 'WpPostA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
_WpListSitesA: Pointer;

function WpListSitesA;
begin
GetProcedureAddress(_WpListSitesA, wpapi_lib, 'WpListSitesA');
asm
mov esp, ebp
pop ebp
jmp [_WpListSitesA]
end;
end;
{$ELSE}
function WpListSitesA; external wpapi_lib name 'WpListSitesA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
_WpDoesSiteExistA: Pointer;

function WpDoesSiteExistA;
begin
GetProcedureAddress(_WpDoesSiteExistA, wpapi_lib, 'WpDoesSiteExistA');
asm
mov esp, ebp
pop ebp
jmp [_WpDoesSiteExistA]
end;
end;
{$ELSE}
function WpDoesSiteExistA; external wpapi_lib name 'WpDoesSiteExistA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
_WpDeleteSiteA: Pointer;

function WpDeleteSiteA;
begin
GetProcedureAddress(_WpDeleteSiteA, wpapi_lib, 'WpDeleteSiteA');
asm
mov esp, ebp
pop ebp
jmp [_WpDeleteSiteA]
end;
end;
{$ELSE}
function WpDeleteSiteA; external wpapi_lib name 'WpDeleteSiteA';
{$ENDIF DYNAMIC_LINK}

[gycxy]

说说过程啊,处理的思路啊,

[MEFULEU]

没看到过,只知outlook 地

[szxiaoxiao]

http://community.csdn.net/Expert/topic/3126/3126783.xml?temp=.9278986
到这看看，或许有用。

[szxiaoxiao]

在哪可查到outlook提供的COM接口的名称呀，比如我要地址薄是哪个参数呀，还有我想取出目录服务的全部内部邮箱的地址，又如何做呢？