archive
/
windows-server-2003
mirror of https://github.com/selfrender/Windows-Server-2003
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
3 Commits
1 Branch
0 Tags
1.5 GiB
 
 
 
 
 
 
Tree: 827363a95b
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '827363a95b'
${ noResults }
windows-server-2003/inetcore/outlookexpress/wabw/test/wabtests/wabtest.cpp

10127 lines
297 KiB
Raw Blame History

#include "wabtest.h"
#include <assert.h>
#include "resource.h"
#include "..\luieng.dll\luieng.h"
#include "wabtest.h"
#define IDM_CREATEENTRIES 2000
#define IDM_ENUMERATEALL 2001
#define IDM_DELETEENTRIES 2002
#define IDM_DELETEALL 2003
#define IDM_DELETEUSERSONLY 2004
#define IDM_CREATEONEOFF 2005
#define IDM_RESOLVENAME 2006
#define IDM_SETPROPS 2007
#define IDM_QUERYINTERFACE 2008
#define IDM_PREPARERECIPS 2009
#define IDM_COPYENTRIES 2010
#define IDM_RUNBVT 2011
#define IDM_ALLOCATEBUFFER 2012
#define IDM_ALLOCATEMORE 2013
#define IDM_FREEBUFFER 2014
#define IDM_IABOPENENTRY 2015
#define IDM_ICCREATEENTRY 2016
#define IDM_IMUSETGETPROPS 2017
#define IDM_IMUSAVECHANGES 2018
#define IDM_ICRESOLVENAMES 2019
#define IDM_ICOPENENTRY 2020
#define IDM_IABADDRESS 2021
#define IDM_ADDMULTIPLE 2022
#define IDM_IABRESOLVENAME 2023
#define IDM_MULTITHREAD 2024
#define IDM_IABNEWENTRYDET 2025
#define IDM_DELWAB 2026
#define IDM_PERFORMANCE 2027
#define IDM_IDLSUITE 2028
#define IDM_NAMEDPROPS 2029
#define IDM_SETINIFILE 2501
#define ID_MULTITHREADCOMPLETE 2502
//
// Globals
//
GUID WabTestGUID = { /* 683ce274-343a-11d0-9ff1-00a0c905424c */
0x683ce274,
0x343a,
0x11d0,
{0x9f, 0xf1, 0x00, 0xa0, 0xc9, 0x05, 0x42, 0x4c}
};
static char szAppName[]= "WABTESTS";
char szIniFile[BIG_BUF];
CRITICAL_SECTION CriticalSection;
ULONG glblCount = 0, glblTest = 39, glblDN = 0;
#ifdef PAB
LPMAPISESSION lpMAPISession; //Global handle to session
#endif
#ifdef WAB
LPWABOBJECT lpWABObject; //Global handle to session
LPADRBOOK glbllpAdrBook;
#endif
DWORD ThreadIdJunk;
HWND glblhwnd;
HINSTANCE hinstLib, glblhinst;
HANDLE glblThreadManager;
LUIINIT LUIInit;
LUIMSGHANDLER LUIMsgHandler;
LUIOUT LUIOut;
BOOL bLUIInit, glblStop, Seeded;
//***************************************************************
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
LPSTR lpszCmdLine, int nCmdShow)
{
HWND hwnd;
MSG msg;
WNDCLASS wndclass;
//
// Init Global Variables Here
//
#ifdef PAB
lpMAPISession = NULL;
#endif
glblThreadManager = NULL;
bLUIInit = FALSE;
glblStop = FALSE;
Seeded = FALSE;
if (!hPrevInstance)
{
wndclass.style = CS_HREDRAW|CS_VREDRAW;
wndclass.lpfnWndProc = WndProc;
wndclass.hInstance = hInstance;
wndclass.cbClsExtra = 4;
wndclass.cbWndExtra = 0;
wndclass.lpszMenuName = MAKEINTRESOURCE(IDR_MENU1);
wndclass.hIcon = LoadIcon(NULL,IDI_APPLICATION);
wndclass.hCursor = LoadCursor(NULL,IDC_ARROW);
wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
wndclass.lpszClassName = szAppName;
RegisterClass(&wndclass);
}
hwnd = CreateWindow(szAppName,"WABTests", WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,CW_USEDEFAULT,
NULL, NULL, hInstance, NULL);
hinstLib = LoadLibrary("luieng.dll");
if (hinstLib) {
LUIInit = (LUIINIT)GetProcAddress(hinstLib,"LUIInit");
LUIMsgHandler=(LUIMSGHANDLER)GetProcAddress(hinstLib,"LUIMsgHandler");
LUIOut = (LUIOUT)GetProcAddress(hinstLib,"LUIOut");
lstrcpy(szIniFile,INIFILENAME);
MenuStruct Tests[MAXMENU];
MenuStruct Tools[MAXMENU];
MenuStruct TestSettings[MAXMENU];
memset((void *)Tests,0,sizeof(Tests));
memset((void *)Tools,0,sizeof(Tests));
memset((void *)TestSettings,0,sizeof(TestSettings));
Tests[0].nType = LINE;
Tests[1].nItemID = IDM_ALLOCATEBUFFER;
Tests[1].nType = NORMAL;
lstrcpy(Tests[1].lpszItemName,"&AllocateBuffer");
Tests[2].nItemID = IDM_ALLOCATEMORE;
Tests[2].nType = NORMAL;
lstrcpy(Tests[2].lpszItemName,"&AllocateMore");
Tests[3].nItemID = IDM_FREEBUFFER;
Tests[3].nType = NORMAL;
lstrcpy(Tests[3].lpszItemName,"&FreeBuffer");
Tests[4].nItemID = IDM_IABOPENENTRY;
Tests[4].nType = NORMAL;
lstrcpy(Tests[4].lpszItemName,"IAB->OpenEntry");
Tests[5].nItemID = IDM_IABADDRESS;
Tests[5].nType = NORMAL;
lstrcpy(Tests[5].lpszItemName,"IAB->Address");
Tests[6].nItemID = IDM_IABRESOLVENAME;
Tests[6].nType = NORMAL;
lstrcpy(Tests[6].lpszItemName,"IAB->ResolveName");
Tests[7].nItemID = IDM_IABNEWENTRYDET;
Tests[7].nType = NORMAL;
lstrcpy(Tests[7].lpszItemName,"IAB->NewEntry/Det");
Tests[8].nItemID = IDM_ICCREATEENTRY;
Tests[8].nType = NORMAL;
lstrcpy(Tests[8].lpszItemName,"ICtr->CreateEntry");
Tests[9].nItemID = IDM_ICRESOLVENAMES;
Tests[9].nType = NORMAL;
lstrcpy(Tests[9].lpszItemName,"ICtr->ResolveNames");
Tests[10].nItemID = IDM_ICOPENENTRY;
Tests[10].nType = NORMAL;
lstrcpy(Tests[10].lpszItemName,"ICtr->OpenEntry");
Tests[11].nItemID = IDM_IMUSETGETPROPS;
Tests[11].nType = NORMAL;
lstrcpy(Tests[11].lpszItemName,"IMU->Set/GetProps");
Tests[12].nItemID = IDM_IMUSAVECHANGES;
Tests[12].nType = NORMAL;
lstrcpy(Tests[12].lpszItemName,"IMU->SaveChanges");
Tests[13].nItemID = IDM_IDLSUITE;
Tests[13].nType = NORMAL;
lstrcpy(Tests[13].lpszItemName,"IDL Test Suite");
Tests[14].nItemID = IDM_NAMEDPROPS;
Tests[14].nType = NORMAL;
lstrcpy(Tests[14].lpszItemName,"Named Props Suite");
Tests[15].nType= ENDMENU;
/* Tests[15].nType = LINE;
Tests[16].nItemID = IDM_ADDMULTIPLE;
Tests[16].nType = NORMAL;
lstrcpy(Tests[16].lpszItemName,"AddMultipleEntries");
Tests[17].nItemID = IDM_DELWAB;
Tests[17].nType = NORMAL;
lstrcpy(Tests[17].lpszItemName,"DeleteWABFile");
Tests[18].nItemID = IDM_PERFORMANCE;
Tests[18].nType = NORMAL;
lstrcpy(Tests[18].lpszItemName,"Performance Suite");
Tests[19].nItemID = IDM_MULTITHREAD;
Tests[19].nType = NORMAL;
lstrcpy(Tests[19].lpszItemName,"MultiThreadStress");
Tests[6].nItemID = IDM_CREATEENTRIES;
Tests[6].nType = NORMAL;
lstrcpy(Tests[6].lpszItemName,"&CreateEntries");
Tests[7].nItemID = IDM_ENUMERATEALL;
Tests[7].nType = NORMAL;
lstrcpy(Tests[7].lpszItemName,"&EnumerateAll");
Tests[8].nItemID = IDM_DELETEENTRIES;
Tests[8].nType = NORMAL;
lstrcpy(Tests[8].lpszItemName,"&DeleteEntries");
Tests[9].nItemID = IDM_DELETEALL;
Tests[9].nType = NORMAL;
lstrcpy(Tests[9].lpszItemName,"Delete&All");
*/
TestSettings[0].nItemID = IDM_SETINIFILE;
TestSettings[0].nType = NORMAL;
lstrcpy(TestSettings[0].lpszItemName,"&INI File");
TestSettings[1].nType = ENDMENU;
Tools[0].nItemID = IDM_ADDMULTIPLE;
Tools[0].nType = NORMAL;
lstrcpy(Tools[0].lpszItemName,"AddMultipleEntries");
Tools[1].nItemID = IDM_DELWAB;
Tools[1].nType = NORMAL;
lstrcpy(Tools[1].lpszItemName,"DeleteWABFile");
Tools[2].nItemID = IDM_PERFORMANCE;
Tools[2].nType = NORMAL;
lstrcpy(Tools[2].lpszItemName,"Performance Suite");
Tools[4].nType= ENDMENU;
Tools[3].nItemID = IDM_MULTITHREAD;
Tools[3].nType = NORMAL;
lstrcpy(Tools[3].lpszItemName,"MultiThreadStress");
bLUIInit = LUIInit(hwnd,Tests,Tools,/*TestSettings,*/FALSE);
glblhwnd=hwnd;
glblhinst=hInstance;
ShowWindow(hwnd, nCmdShow);
UpdateWindow(hwnd);
while(GetMessage(&msg,NULL,0,0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
FreeLibrary(hinstLib);
}
else MessageBox(NULL,"LoadLibrary Failed: Cannot find testcntl.dll","PabTest Error",MB_OK);
return msg.wParam;
}
//***************************************************************
LRESULT CALLBACK WndProc (HWND hwnd, UINT message, UINT wParam, LONG lParam)
{
static int i;
DWORD retval;
if (bLUIInit)
LUIMsgHandler(message,wParam,lParam);
switch(message)
{
case WM_CREATE:
{
i=0;
return 0;
}
case WM_SIZE:
{
return 0;
}
case WM_COMMAND:
{
switch(LOWORD(wParam))
{
case IDM_STOP :
glblStop = TRUE;
break;
case IDM_ALLOCATEBUFFER:
if (PABAllocateBuffer()) {
LUIOut(L1," ");
LUIOut(LPASS,"AllocateBuffer: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"AllocateBuffer: %d",i);
}
i++;
return 0;
case IDM_ALLOCATEMORE:
if (PABAllocateMore()) {
LUIOut(L1," ");
LUIOut(LPASS,"AllocateMore: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"AllocateMore: %d",i);
}
i++;
return 0;
case IDM_FREEBUFFER :
if (PABFreeBuffer()) {
LUIOut(L1," ");
LUIOut(LPASS,"FreeBuffer: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"FreeBuffer: %d",i);
}
i++;
return 0;
case IDM_IABOPENENTRY :
if (PAB_IABOpenEntry()) {
LUIOut(L1," ");
LUIOut(LPASS,"IAddrBook->OpenEntry: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IAddrBook->OpenEntry: %d",i);
}
i++;
return 0;
case IDM_ICCREATEENTRY :
if (PAB_IABContainerCreateEntry()) {
LUIOut(L1," ");
LUIOut(LPASS,"IABContainer->CreateEntry: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IABContainer->CreateEntry: %d",i);
}
i++;
return 0;
case IDM_IMUSETGETPROPS :
if (PAB_IMailUserSetGetProps()) {
LUIOut(L1," ");
LUIOut(LPASS,"IMailUser->Set/GetProps: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IMailUser->Set/GetProps: %d",i);
}
i++;
return 0;
case IDM_IMUSAVECHANGES :
if (PAB_IMailUserSaveChanges()) {
LUIOut(L1," ");
LUIOut(LPASS,"IMailUser->SaveChanges: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IMailUser->SaveChanges: %d",i);
}
i++;
return 0;
case IDM_ICRESOLVENAMES :
if (PAB_IABContainerResolveNames()) {
LUIOut(L1," ");
LUIOut(LPASS,"IABContainer->ResolveNames: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IABContainer->ResolveNames: %d",i);
}
i++;
return 0;
case IDM_ICOPENENTRY :
if (PAB_IABContainerOpenEntry()) {
LUIOut(L1," ");
LUIOut(LPASS,"IABContainer->OpenEntry: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IABContainer->OpenEntry: %d",i);
}
i++;
return 0;
case IDM_IABADDRESS :
if (PAB_IABAddress()) {
LUIOut(L1," ");
LUIOut(LPASS,"IAdrBook->Address: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IAdrBook->Address: %d",i);
}
i++;
return 0;
case IDM_ADDMULTIPLE :
if (PAB_AddMultipleEntries()) {
LUIOut(L1," ");
LUIOut(LPASS,"AddMultipleEntries: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"AddMultipleEntries: %d",i);
}
i++;
return 0;
case IDM_IABRESOLVENAME :
if (PAB_IABResolveName()) {
LUIOut(L1," ");
LUIOut(LPASS,"IAdrBook->ResolveName: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IAdrBook->ResolveName: %d",i);
}
i++;
return 0;
case IDM_IABNEWENTRYDET :
if (PAB_IABNewEntry_Details()) {
LUIOut(L1," ");
LUIOut(LPASS,"IAdrBook->NewEntry/Details: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"IAdrBook->NewEntry/Details: %d",i);
}
i++;
return 0;
case IDM_CREATEENTRIES :
if (PabCreateEntry()) {
LUIOut(L1," ");
LUIOut(LPASS,"Create Entries: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"Create Entries: %d",i);
}
i++;
return 0;
case IDM_MULTITHREAD :
if (glblThreadManager) {
LUIOut(L1, "In cleanup routine");
TerminateThread(glblThreadManager, (DWORD)0);
CloseHandle(glblThreadManager);
}
glblThreadManager =(HANDLE)CreateThread(
(LPSECURITY_ATTRIBUTES) NULL, // pointer to thread security attributes
(DWORD) 0, // initial thread stack size, in bytes
(LPTHREAD_START_ROUTINE) ThreadManager, // pointer to thread function
(LPVOID) NULL, // argument for new thread
(DWORD) 0, // creation flags
&ThreadIdJunk // pointer to returned thread identifier
);
if (!glblThreadManager) LUIOut(L1, "<ERROR> WndProc: CreateThread returned 0x%X", GetLastError());
return 0;
case ID_MULTITHREADCOMPLETE :
if (glblThreadManager) {
//GetExitCodeThread(glblThreadManager, &retval);
retval = HIWORD(wParam);
if (retval) {
LUIOut(L1," ");
LUIOut(LPASS,"MultiThreadStress: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"MultiThreadStress: %d",i);
}
CloseHandle(glblThreadManager);
}
glblStop = FALSE; //reset stop flag
i++;
return 0;
case IDM_DELWAB :
if (DeleteWABFile()) {
LUIOut(L1," ");
LUIOut(LPASS,"Delete WAB File: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"Delete WAB File: %d",i);
}
i++;
return 0;
case IDM_IDLSUITE :
if (PAB_IDLSuite()) {
LUIOut(L1," ");
LUIOut(LPASS,"Distribution List Test Suite: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"Distribution List Test Suite: %d",i);
}
i++;
return 0;
case IDM_PERFORMANCE :
if (Performance()) {
LUIOut(L1," ");
LUIOut(LPASS,"WAB Performance Suite: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"WAB Performance Suite: %d",i);
}
i++;
return 0;
case IDM_NAMEDPROPS :
if (NamedPropsSuite()) {
LUIOut(L1," ");
LUIOut(LPASS,"Named Properties Test Suite: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"Named Properties Test Suite: %d",i);
}
i++;
return 0;
case IDM_ENUMERATEALL :
if (PabEnumerateAll()) {
LUIOut(L1," ");
LUIOut(LPASS,"Enumerate All: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"Enumerate All: %d",i);
}
i++;
return 0;
case IDM_DELETEENTRIES :
if (PabDeleteEntry()) {
LUIOut(L1," ");
LUIOut(LPASS,"Delete specified Entries: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"Delete specified Entries: %d",i);
}
i++;
return 0;
case IDM_DELETEALL:
if (ClearPab(0)) {
LUIOut(L1," ");
LUIOut(LPASS,"Delete All Entries: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"Delete All Entries: %d",i);
}
i++;
return 0;
case IDM_DELETEUSERSONLY:
if (ClearPab(1)) {
LUIOut(L1," ");
LUIOut(LPASS,"Delete Mail Users Only: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"Delete Mail Users Only: %d",i);
}
i++;
return 0;
case IDM_CREATEONEOFF :
if (CreateOneOff()) {
LUIOut(L1," ");
LUIOut(LPASS,"CreateOneOff: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"CreateOneOff: %d",i);
}
i++;
return 0;
case IDM_RESOLVENAME :
if (PABResolveName()) {
LUIOut(L1," ");
LUIOut(LPASS,"ResolveName: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"ResolveName: %d",i);
}
i++;
return 0;
case IDM_SETPROPS :
if (PABSetProps()) {
LUIOut(L1," ");
LUIOut(LPASS,"SetProps: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"SetProps: %d",i);
}
i++;
return 0;
case IDM_QUERYINTERFACE :
if (PABQueryInterface()) {
LUIOut(L1," ");
LUIOut(LPASS,"QueryInterface: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"QueryInterface: %d",i);
}
i++;
return 0;
case IDM_PREPARERECIPS :
if (PABPrepareRecips()) {
LUIOut(L1," ");
LUIOut(LPASS,"PrepareRecips: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"PrepareRecips: %d",i);
}
i++;
return 0;
case IDM_COPYENTRIES :
if (PABCopyEntries()) {
LUIOut(L1," ");
LUIOut(LPASS,"CopyEntries: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"CopyEntries: %d",i);
}
i++;
return 0;
case IDM_RUNBVT :
if (PABRunBVT()) {
LUIOut(L1," ");
LUIOut(LPASS,"RunBVT: %d",i);
}
else {
LUIOut(L1," ");
LUIOut(LFAIL,"RunBVT: %d",i);
}
i++;
return 0;
case IDM_SETINIFILE :
DialogBox(glblhinst, MAKEINTRESOURCE(IDD_INIFILE), glblhwnd, SetIniFile);
return 0;
}
return 0;
}
case WM_DESTROY:
{
PostQuitMessage(0);
return 0;
}
}
return DefWindowProc(hwnd,message,wParam,lParam);
}
BOOL PABAllocateBuffer()
{
DWORD ** lppBuffer;
//DWORD nCells, counter;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
ULONG cValues = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int i=0,k=0;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
LPMAILUSER lpAddress = NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
LUIOut(L1," ");
LUIOut(L1,"Running AllocateBuffer");
LUIOut(L2,"-> Allocates and confirms memory using the Allocate Buffer");
LUIOut(L2, " routine. confirms by writing a bit pattern and verifying.");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Allocate a buffer and check for success
lppBuffer = new (DWORD*);
#ifdef PAB
if ((MAPIAllocateBuffer(BUFFERSIZE, (LPVOID FAR *)lppBuffer) == S_OK) && *lppBuffer)
LUIOut(L2,"MAPIAllocateBuffer PASSED");
else {
LUIOut(L2,"MAPIAllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
#ifdef WAB
if ((lpWABObject->AllocateBuffer(BUFFERSIZE, (LPVOID FAR *)lppBuffer) == S_OK) && *lppBuffer)
LUIOut(L2,"lpWABObject->AllocateBuffer PASSED");
else {
LUIOut(L2,"lpWABObject->AllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
if ( !VerifyBuffer(lppBuffer,BUFFERSIZE) )
retval = FALSE;
out:
#ifdef PAB
if (*lppBuffer) {
if (MAPIFreeBuffer(*lppBuffer) == S_OK)
LUIOut(L2,"MAPIFreeBuffer Succeded");
else LUIOut(L2,"MAPIFreeBuffer Failed");
}
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
#endif
#ifdef WAB
if (*lppBuffer) {
if (lpWABObject->FreeBuffer(*lppBuffer) == S_OK)
LUIOut(L2,"lpWABObject->FreeBuffer Succeded");
else LUIOut(L2,"lpWABObject->FreeBuffer Failed");
}
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
#endif
if (lpContentsTable)
lpContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PABAllocateMore()
{
DWORD ** lppBuffer, ** lppBuffer2, ** lppBuffer3;
//DWORD nCells, counter;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
ULONG cValues = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int i=0,k=0;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
LPMAILUSER lpAddress = NULL;
LUIOut(L1," ");
LUIOut(L1,"Running AllocateMore");
LUIOut(L2,"-> Allocates memory using the AllocateBuffer routine");
LUIOut(L2, " followed by two calls to AllocateMore using different");
LUIOut(L2, " buffer sizes. It then confirms the buffer by writing");
LUIOut(L2, " a bit pattern and verifying.");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Allocate a buffer and check for success
lppBuffer = new (DWORD*);
#ifdef PAB
if ((MAPIAllocateBuffer(BUFFERSIZE, (LPVOID FAR *)lppBuffer) == S_OK) && *lppBuffer)
LUIOut(L2,"MAPIAllocateBuffer PASSED");
else {
LUIOut(L2,"MAPIAllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
#ifdef WAB
if ((lpWABObject->AllocateBuffer(BUFFERSIZE, (LPVOID FAR *)lppBuffer) == S_OK) && *lppBuffer)
LUIOut(L2,"lpWABObject->AllocateBuffer PASSED");
else {
LUIOut(L2,"lpWABObject->AllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
lppBuffer2 = new (DWORD*);
#ifdef PAB
if ((MAPIAllocateMore(BUFFERSIZE2, *lppBuffer, (LPVOID FAR *)lppBuffer2) == S_OK)
&& *lppBuffer)
LUIOut(L2,"MAPIAllocateMore PASSED, %u bytes allocated", BUFFERSIZE2);
else {
LUIOut(L2,"MAPIAllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
#ifdef WAB
if ((lpWABObject->AllocateMore(BUFFERSIZE2, *lppBuffer, (LPVOID FAR *)lppBuffer2) == S_OK)
&& *lppBuffer)
LUIOut(L2,"lpWABObject->AllocateMore PASSED, %u bytes allocated", BUFFERSIZE2);
else {
LUIOut(L2,"lpWABObject->AllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
lppBuffer3 = new (DWORD*);
#ifdef PAB
if ((MAPIAllocateMore(BUFFERSIZE3, *lppBuffer, (LPVOID FAR *)lppBuffer3) == S_OK)
&& *lppBuffer)
LUIOut(L2,"MAPIAllocateMore PASSED, %u bytes allocated", BUFFERSIZE3);
else {
LUIOut(L2,"MAPIAllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
#ifdef WAB
if ((lpWABObject->AllocateMore(BUFFERSIZE3, *lppBuffer, (LPVOID FAR *)lppBuffer3) == S_OK)
&& *lppBuffer)
LUIOut(L2,"lpWABObject->AllocateMore PASSED, %u bytes allocated", BUFFERSIZE3);
else {
LUIOut(L2,"lpWABObject->AllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
if ( !VerifyBuffer(lppBuffer,BUFFERSIZE) )
retval = FALSE;
if ( !VerifyBuffer(lppBuffer2,BUFFERSIZE2) )
retval = FALSE;
if ( !VerifyBuffer(lppBuffer3,BUFFERSIZE3) )
retval = FALSE;
out:
#ifdef PAB
if (*lppBuffer) {
if (MAPIFreeBuffer(*lppBuffer) == S_OK)
LUIOut(L2,"MAPIFreeBuffer Succeded");
else LUIOut(L2,"MAPIFreeBuffer Failed");
}
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
#endif
#ifdef WAB
if (*lppBuffer) {
if (lpWABObject->FreeBuffer(*lppBuffer) == S_OK)
LUIOut(L2,"lpWABObject->FreeBuffer Succeded");
else LUIOut(L2,"lpWABObject->FreeBuffer Failed");
}
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
#endif
if (lpAddress)
lpAddress->Release();
if (lpContentsTable)
lpContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PABFreeBuffer()
{
DWORD ** lppBuffer, ** lppBuffer2, ** lppBuffer3;
//DWORD nCells, counter;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
ULONG cValues = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int i=0,k=0;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
LPMAILUSER lpAddress = NULL;
LUIOut(L1," ");
LUIOut(L1,"Running FreeBuffer");
LUIOut(L2,"-> Allocates memory using the AllocateBuffer routine");
LUIOut(L2, " followed by two calls to AllocateMore using different");
LUIOut(L2, " buffer sizes. It then frees the initial buffer and verifies");
LUIOut(L2, " that all 3 pointers are nullified.");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Allocate a buffer and check for success
lppBuffer = new (DWORD*);
#ifdef PAB
if ((MAPIAllocateBuffer(BUFFERSIZE, (LPVOID FAR *)lppBuffer) == S_OK) && *lppBuffer)
LUIOut(L2,"MAPIAllocateBuffer PASSED");
else {
LUIOut(L2,"MAPIAllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
#ifdef WAB
if ((lpWABObject->AllocateBuffer(BUFFERSIZE, (LPVOID FAR *)lppBuffer) == S_OK) && *lppBuffer)
LUIOut(L2,"lpWABObject->AllocateBuffer PASSED");
else {
LUIOut(L2,"lpWABObject->AllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
lppBuffer2 = new (DWORD*);
#ifdef PAB
if ((MAPIAllocateMore(BUFFERSIZE2, *lppBuffer, (LPVOID FAR *)lppBuffer2) == S_OK)
&& *lppBuffer)
LUIOut(L2,"MAPIAllocateMore PASSED, %u bytes allocated", BUFFERSIZE2);
else {
LUIOut(L2,"MAPIAllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
#ifdef WAB
if ((lpWABObject->AllocateMore(BUFFERSIZE2, *lppBuffer, (LPVOID FAR *)lppBuffer2) == S_OK)
&& *lppBuffer)
LUIOut(L2,"lpWABObject->AllocateMore PASSED, %u bytes allocated", BUFFERSIZE2);
else {
LUIOut(L2,"lpWABObject->AllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
lppBuffer3 = new (DWORD*);
#ifdef PAB
if ((MAPIAllocateMore(BUFFERSIZE3, *lppBuffer, (LPVOID FAR *)lppBuffer3) == S_OK)
&& *lppBuffer)
LUIOut(L2,"MAPIAllocateMore PASSED, %u bytes allocated", BUFFERSIZE3);
else {
LUIOut(L2,"MAPIAllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
#ifdef WAB
if ((lpWABObject->AllocateMore(BUFFERSIZE3, *lppBuffer, (LPVOID FAR *)lppBuffer3) == S_OK)
&& *lppBuffer)
LUIOut(L2,"lpWABObject->AllocateMore PASSED, %u bytes allocated", BUFFERSIZE3);
else {
LUIOut(L2,"lpWABObject->AllocateBuffer FAILED");
retval = FALSE;
goto out;
}
#endif
// Now free the original buffer
#ifdef PAB
if (*lppBuffer) {
if (MAPIFreeBuffer(*lppBuffer) == S_OK)
LUIOut(L2,"Call to MAPIFreeBuffer Succeded");
else {
LUIOut(L2,"Call to MAPIFreeBuffer Failed");
}
}
#endif
#ifdef WAB
if (*lppBuffer) {
if (lpWABObject->FreeBuffer(*lppBuffer) == S_OK)
LUIOut(L2,"Call to lpWABObject->FreeBuffer Succeded");
else {
LUIOut(L2,"Call to lpWABObject->FreeBuffer Failed");
}
}
#endif
/*
dwTest = INVALIDPTR;
//Verify all 3 pointers are now null
if (IsBadReadPtr(*lppBuffer,BUFFERSIZE)&&IsBadReadPtr(*lppBuffer2, BUFFERSIZE2)
&&IsBadReadPtr(*lppBuffer3, BUFFERSIZE3)){
LUIOut(L2,"MAPIFreeBuffer Succeded, all pointers are invalidated");
}
else {
LUIOut(L2,"MAPIFreeBuffer Failed to invalidate all pointers");
retval = FALSE;
}
*/
out:
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
#endif
if (lpAddress)
lpAddress->Release();
if (lpContentsTable)
lpContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IABOpenEntry()
{
//DWORD nCells, counter;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont= NULL, lpABCont2= NULL;
LPABCONT lpDLCont= NULL;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
ULONG cbEidPAB = 0;
LPENTRYID lpEid=NULL;
ULONG cValues = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int i=0,k=0;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
LPMAILUSER lpAddress = NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
SizedSPropTagArray(2, Cols) = { 2, {PR_OBJECT_TYPE, PR_ENTRYID } };
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueEntryID = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IABOpenEntry");
LUIOut(L2,"-> Verifies IAddrBook->OpenEntry is functional by checking the following:");
LUIOut(L2, " # The return code from OpenEntry");
LUIOut(L2, " # The object type returned is compared to MAPI_ABCONT");
LUIOut(L2, " # QueryInterface is called on the returned object and checked for success");
LUIOut(L2, " # Release is called on the interface ptr returned from QI and the reference");
LUIOut(L2, " count is tested for <= 0 (pass)");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
LUIOut(L2, "Calling IABOpenEntry");
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
// hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (HR_FAILED(hr) || (!lpABCont)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
LUIOut(L3, "The call to IABOpenEntry PASSED");
// Check to make sure the object type is what we expect
LUIOut(L3, "Checking to make sure the returned object type is correct");
if (ulObjType != MAPI_ABCONT) {
LUIOut(L2, "Object type is not MAPI_ABCONT");
retval = FALSE;
goto out;
}
LUIOut(L3, "Object type is MAPI_ABCONT");
// Call QueryInterface on the object
LUIOut(L3, "Calling QueryInterface on the returned object");
hr = (lpABCont->QueryInterface((REFIID)(IID_IABContainer), (VOID **) &lpABCont2));
if (HR_FAILED(hr)) {
LUIOut(L2, "QueryInterface on IID_IABContainer FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "QueryInterface on IID_IABContainer PASSED");
LUIOut(L3, "Trying to release the object QI returned");
if(lpABCont2) {
if ((LPUNKNOWN)(lpABCont2)->Release() <= 0)
LUIOut(L3, "QueryInterface returned a valid ptr and released succesfully");
else {
LUIOut(L2, "Release FAILED:returned a > zero ref count");
}
lpABCont2 = NULL;
}
else {
LUIOut(L2, "QueryInterface did not return a valid ptr");
retval = FALSE;
goto out;
}
out:
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
if (lpAddress)
lpAddress->Release();
if (lpContentsTable)
lpContentsTable->Release();
if (lpABCont)
lpABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IABContainerCreateEntry()
{
//DWORD nCells, counter;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont= NULL, lpABCont2= NULL;
LPABCONT lpPABCont= NULL,lpPABCont2= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
ULONG cValues = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int i=0,k=0;
LPMAILUSER lpAddress=NULL,lpAddress2=NULL,lpAddress3=NULL,lpAddress4=NULL;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
SizedSPropTagArray(2, Cols) = { 2, {PR_OBJECT_TYPE, PR_ENTRYID } };
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueEntryID = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IABContainerCreateEntry");
LUIOut(L2,"-> Verifies IABContainer->CreateEntry is functional by performing the following:");
LUIOut(L2, " Attempts to CreateEntry with the MailUser template and checks...");
LUIOut(L2, " # The return code from CreateEntry");
LUIOut(L2, " # QueryInterface is called on the returned object and checked for success");
LUIOut(L2, " # Release is called on the interface ptr returned from QI and the reference");
LUIOut(L2, " count is tested for <= 0 (pass)");
LUIOut(L2, " Attempts to CreateEntry with the DistList template and checks...");
LUIOut(L2, " # The return code from CreateEntry");
LUIOut(L2, " # QueryInterface is called on the returned object and checked for success");
LUIOut(L2, " # Release is called on the interface ptr returned from QI and the reference");
LUIOut(L2, " count is tested for <= 0 (pass)");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
// hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Try to create a MailUser entry in the container
//
LUIOut(L2, "Creating a Mail User in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_MAILUSER property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpAddress);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
// Call QueryInterface on the object
hr = (lpAddress->QueryInterface((REFIID)(IID_IMailUser), (VOID **) &lpAddress2));
if (HR_FAILED(hr)) {
LUIOut(L2, "QueryInterface on IID_IMailUser FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L2, "QueryInterface on IID_IMailUser PASSED");
if(lpAddress2) {
if ((LPUNKNOWN)(lpAddress2)->Release() <= 0)
LUIOut(L2, "QueryInterface returned a valid ptr and released succesfully");
else {
LUIOut(L2, "Release FAILED:returned a > zero ref count");
}
lpAddress2 = NULL;
}
else {
LUIOut(L2, "QueryInterface did not return a valid ptr");
retval = FALSE;
goto out;
}
#ifdef DISTLIST
//
// Try to create a DL entry in the container
//
LUIOut(L2, "Creating a Distribution List in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_DL property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_DL
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default DL template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which one can pass to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueDL->Value.bin.cb,
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpAddress3);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
// Call QueryInterface on the object
hr = (lpAddress3->QueryInterface((REFIID)(IID_IDistList), (VOID **) &lpAddress4));
if (HR_FAILED(hr)) {
LUIOut(L2, "QueryInterface on IID_IDistList FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L2, "QueryInterface on IID_IDistList PASSED");
if(lpAddress4) {
if ((LPUNKNOWN)(lpAddress4)->Release() <= 0)
LUIOut(L2, "QueryInterface returned a valid ptr and released succesfully");
else {
LUIOut(L2, "Release FAILED:returned a > zero ref count");
}
lpAddress4 = NULL;
}
else {
LUIOut(L2, "QueryInterface did not return a valid ptr");
retval = FALSE;
goto out;
}
#endif
out:
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
if (lpAddress)
lpAddress->Release();
if (lpAddress2)
lpAddress2->Release();
if (lpAddress3)
lpAddress3->Release();
if (lpAddress4)
lpAddress4->Release();
if (lpContentsTable)
lpContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpABCont)
lpABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IDLSuite()
{
BOOL Cleanup;
HRESULT hr = hrSuccess;
int retval=TRUE;
ULONG cbEidPAB = 0;
ULONG cbEid=0; // entry id of the entry being added
ULONG cValues = 0, ulObjType=NULL, cValues2;
ULONG cRows = 0;
UINT Entry, DL, NumEntries, NumDLs, PropIndex;
char szDLTag[SML_BUF], *lpszDisplayName = NULL, *lpszReturnName = NULL;
EntryID *lpEntries, *lpDLs;
char EntryBuf[MAX_BUF];
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
LPADRBOOK lpAdrBook= NULL;
LPABCONT lpABCont= NULL;
LPMAILUSER lpMailUser=NULL;
LPDISTLIST lpDL=NULL,lpDL2=NULL;
LPMAPITABLE lpTable = NULL;
LPSRowSet lpRows = NULL;
SRestriction Restriction;
SPropValue *lpPropValue = NULL; //Used to create props for the mailusers
SPropValue PropValue[1]= {0}; //
LPSPropValue lpSPropValueAddress = NULL; //Used to create default mailuser
LPSPropValue lpSPropValueEntryID = NULL; //Used to getprops on entryid of user
LPSPropValue lpSPropValueDL = NULL; //Used to create default DL
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IDLSuite");
LUIOut(L2,"-> Tests Distribution List functionality by performing the following:");
LUIOut(L2, " Attempts to CreateEntry with the DistList template and checks...");
LUIOut(L2, " # The return code from CreateEntry");
LUIOut(L2, " # QueryInterface is called on the returned object and checked for success");
LUIOut(L2, " # Release is called on the interface ptr returned from QI and the reference");
LUIOut(L2, " count is tested for <= 0 (pass)");
LUIOut(L2, " Calls CreateEntry on the DistList object to add MailUser and DL members and checks...");
LUIOut(L2, " # The return code from CreateEntry");
LUIOut(L2, " # QueryInterface is called on the returned object and checked for success");
LUIOut(L2, " # Release is called on the interface ptr returned from QI and the reference");
LUIOut(L2, " count is tested for <= 0 (pass)");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
// hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (HR_FAILED(hr)) {
LUIOut(L3,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Create MailUsers in the container
//
LUIOut(L2, "Creating MailUsers");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
// Retrieve user info from ini file
lstrcpy(szDLTag,"Address1");
GetPrivateProfileString("DLTestSuite",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
//_itoa(0,(char*)lpszDisplayName[strlen(lpszDisplayName)],10);
NumEntries = GetPrivateProfileInt("DLTestSuite","NumCopies",0,INIFILENAME);
//Allocate an array of String pointers to hold the EntryIDs
lpEntries = (EntryID*)LocalAlloc(LMEM_FIXED, NumEntries * sizeof(EntryID));
lpszDisplayName = (char*)LocalAlloc(LMEM_FIXED, MAX_BUF);
ParseIniBuffer(IN EntryBuf, IN 1, OUT lpszDisplayName);
for (Entry = 0; Entry < NumEntries; Entry++) {
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
CreateProps(IN INIFILENAME, IN "Properties", OUT &lpPropValue, OUT &cValues2, IN Entry, IN &lpszDisplayName, OUT &lpszReturnName);
LUIOut(L3,"MailUser Entry to Add: %s",lpszReturnName);
hr = lpMailUser->SetProps(IN cValues2,
IN lpPropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED with 0x%x",hr);
retval=FALSE;
goto out;
}
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
// Store the EID for deleting this entry later
hr = lpMailUser->GetProps( IN (LPSPropTagArray) &SPTArrayEntryID,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
//Allocate space for the display name
lpEntries[Entry].lpDisplayName = (char*)LocalAlloc(LMEM_FIXED, (strlen(lpszReturnName)+1));
//Copy the DisplayName for use later
strcpy(lpEntries[Entry].lpDisplayName, lpszReturnName);
//Allocate space for the EID (lpb)
lpEntries[Entry].lpb = (LPBYTE)LocalAlloc(LMEM_FIXED, lpSPropValueEntryID->Value.bin.cb);
//Copy the EID for use later
lpEntries[Entry].cb = lpSPropValueEntryID->Value.bin.cb;
memcpy(lpEntries[Entry].lpb,lpSPropValueEntryID->Value.bin.lpb,
lpEntries[Entry].cb);
//Free the SPropValue for use in the next loop
if (lpPropValue) {
for (unsigned int Prop = 0; Prop < cValues2; Prop++) {
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_STRING8) {
if (lpPropValue[Prop].Value.LPSZ) {
LocalFree(lpPropValue[Prop].Value.LPSZ);
lpPropValue[Prop].Value.LPSZ = NULL;
}
}
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_BINARY) {
if (lpPropValue[Prop].Value.bin.lpb) {
LocalFree(lpPropValue[Prop].Value.bin.lpb);
lpPropValue[Prop].Value.bin.lpb = NULL;
}
}
}
LocalFree(lpPropValue);
lpPropValue=NULL;
}
if (lpSPropValueEntryID) {
lpWABObject->FreeBuffer(lpSPropValueEntryID);
lpSPropValueEntryID = NULL;
}
lpMailUser->Release();
lpMailUser = NULL;
}
//
// Create the Distribution Lists in the container
//
NumDLs = GetPrivateProfileInt("DLTestSuite","NumDLs",0,INIFILENAME);
lpDLs = (EntryID*)LocalAlloc(LMEM_FIXED, NumDLs * sizeof(EntryID));
LUIOut(L2, "Creating Distribution Lists");
for (DL = 0; DL < NumDLs; DL++) {
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which can be passed to CreateEntry
//
//LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueDL->Value.bin.cb,
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpDL);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
// Call QueryInterface on the object
hr = (lpDL->QueryInterface((REFIID)(IID_IDistList), (VOID **) &lpDL2));
if (HR_FAILED(hr)) {
LUIOut(L4, "QueryInterface on IID_IDistList FAILED. hr = 0x%x", hr);
retval = FALSE;
goto out;
}
else LUIOut(L4, "QueryInterface on IID_IDistList PASSED");
lstrcpy(szDLTag,"DistList1");
GetPrivateProfileString("DLTestSuite",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
//StrLen2 = (StrLen1 + sprintf((char*)&EntProp[0][StrLen1], " [Thread #%i] - ", *(int *)lpThreadNum));
_itoa(DL,(char*)&EntryBuf[strlen(EntryBuf)],10);
LUIOut(L3,"DistList Entry to Add: %s",EntryBuf);
cValues = 1;
PropValue[0].Value.LPSZ = (LPTSTR)EntryBuf;
hr = lpDL->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"DL->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
hr = lpDL->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"DL->SaveChanges FAILED");
retval=FALSE;
goto out;
}
// Want a container interface to the DL, and since QueryInterface on a DL
// is currently broken (returns a MailUser interface when called with IID_IDistList)
// we do it the hard way. Call GetProps to get the EID for the new DL, and then
// call OpenEntry from the container or AB interfaces to open a DL interface
hr = lpDL->GetProps( IN (LPSPropTagArray) &SPTArrayEntryID,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
lpDL2->Release(); //Free up this pointer so we can recycle it
hr = lpABCont->OpenEntry(IN lpSPropValueEntryID->Value.bin.cb,
IN (LPENTRYID) lpSPropValueEntryID->Value.bin.lpb,
IN &IID_IDistList,
IN MAPI_BEST_ACCESS,
OUT &ulObjType,
OUT (LPUNKNOWN*) &lpDL2);
if (HR_FAILED(hr)) {
LUIOut(L3,"OpenEntry failed for DistList");
retval=FALSE;
goto out;
}
LUIOut(L3, "Adding MailUser Members to the Distribution List");
//
// Now add mailuser entries to the DL
//
for (Entry = 0; Entry < NumEntries; Entry++) {
hr = lpDL2->CreateEntry( IN lpEntries[Entry].cb,
IN (LPENTRYID) lpEntries[Entry].lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
lpMailUser->Release();
lpMailUser = NULL;
}
//Allocate space for the display name
lpDLs[DL].lpDisplayName = (char*)LocalAlloc(LMEM_FIXED, (strlen(EntryBuf)+1));
//Copy the DisplayName for use later
strcpy(lpDLs[DL].lpDisplayName, EntryBuf);
//Allocate space for the EID (lpb)
lpDLs[DL].lpb = (LPBYTE)LocalAlloc(LMEM_FIXED, lpSPropValueEntryID->Value.bin.cb);
//Copy the EID for use later
lpDLs[DL].cb = lpSPropValueEntryID->Value.bin.cb;
memcpy(lpDLs[DL].lpb,lpSPropValueEntryID->Value.bin.lpb,
lpDLs[DL].cb);
if (lpSPropValueEntryID) {
lpWABObject->FreeBuffer(lpSPropValueEntryID);
lpSPropValueEntryID = NULL;
}
if (lpSPropValueDL) {
lpWABObject->FreeBuffer(lpSPropValueDL);
lpSPropValueDL = NULL;
}
lpDL->Release();
lpDL = NULL;
lpDL2->Release();
lpDL2 = NULL;
}
//
// Verify all entries are in the DL
//
LUIOut(L2, "Verifying MailUser Members are in the Distribution List");
for (DL = 0; DL < NumDLs; DL++) {
// Need to get an interface to the DL
hr = lpABCont->OpenEntry(IN lpDLs[DL].cb,
IN (LPENTRYID) lpDLs[DL].lpb,
IN &IID_IDistList,
IN MAPI_BEST_ACCESS,
OUT &ulObjType,
OUT (LPUNKNOWN*) &lpDL);
if (HR_FAILED(hr)) {
LUIOut(L3,"OpenEntry failed for DistList");
retval=FALSE;
goto out;
}
// Create a contents table to verify each added entry exists in the DL
hr = lpDL->GetContentsTable(ULONG(0), &lpTable);
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->GetContentsTable call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
// Allocate the SpropValue ptr in the restriction structure
lpWABObject->AllocateBuffer(sizeof(SPropValue), (void**)&(Restriction.res.resProperty.lpProp));
Restriction.res.resProperty.lpProp = (SPropValue*)Restriction.res.resProperty.lpProp;
for (Entry = 0; Entry < NumEntries; Entry++) {
hr = lpDL->OpenEntry( IN lpEntries[Entry].cb,
IN (LPENTRYID) lpEntries[Entry].lpb,
IN &IID_IMailUser,
IN MAPI_BEST_ACCESS,
OUT &ulObjType,
OUT (LPUNKNOWN*) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"OpenEntry failed for DistList");
retval=FALSE;
goto out;
}
lpMailUser->Release();
lpMailUser = NULL;
// Build the restriction structure to pass to lpTable->Restrict
//** For testing the fail case only, stub out for real testing
// lstrcpy(lpszDisplayNames[Counter2], "This should not match");
//**
Restriction.rt = RES_PROPERTY; //Property restriction
Restriction.res.resProperty.relop = RELOP_EQ; //Equals
Restriction.res.resProperty.ulPropTag = PR_DISPLAY_NAME;
Restriction.res.resProperty.lpProp->ulPropTag = PR_DISPLAY_NAME;
Restriction.res.resProperty.lpProp->Value.LPSZ = lpEntries[Entry].lpDisplayName;
hr = lpTable->Restrict(&Restriction, ULONG(0));
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->Restrict call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
hr = lpTable->QueryRows(LONG(1),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED: Entry #%i, returned 0x%x", Entry, hr);
retval=FALSE;
goto out;
}
if (!lpRows->cRows) {
LUIOut(L2, "QueryRows did not find entry #%i. Test FAILED", Entry);
retval=FALSE;
goto out;
}
//** For testing purposes only, stub out for real testing
//InitializeCriticalSection(&CriticalSection);
//EnterCriticalSection(&CriticalSection);
//DisplayRows(lpRows);
//LeaveCriticalSection(&CriticalSection);
//**
// Does the user want us to cleanup after ourself?
Cleanup = GetPrivateProfileInt("DLTestSuite","Cleanup",1,INIFILENAME);
if (Cleanup) {
// Change the EntryID to a LPENTRYLIST
FindPropinRow(&lpRows->aRow[0],
PR_ENTRYID,
&PropIndex);
hr = HrCreateEntryListFromID(lpWABObject,
IN lpRows->aRow[0].lpProps[PropIndex].Value.bin.cb,
IN (ENTRYID*)lpRows->aRow[0].lpProps[PropIndex].Value.bin.lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpDL->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry %i. DeleteEntry returned 0x%x", Entry, hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeRows(lpWABObject, &lpRows); // Cleanup from first call to queryrows
// Verify the entry was deleted by calling QueryRows again
hr = lpTable->QueryRows(LONG(1),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED: Entry #%i, returned 0x%x", Entry, hr);
retval=FALSE;
goto out;
}
if (lpRows->cRows) { // Should be 0 if deleted
LUIOut(L2, "QueryRows found entry #%i even tho it was deleted. Test FAILED", Entry);
retval=FALSE;
goto out;
}
}
//Cleanup
FreeRows(lpWABObject, &lpRows); // Cleanup from second call to queryrows
if (lpEntryList) {
FreeEntryList(lpWABObject, &lpEntryList);
lpEntryList = NULL;
}
}
LUIOut(L3, "All members verified for Distribution List #%i", DL);
//Free up memory
lpWABObject->FreeBuffer(Restriction.res.resProperty.lpProp);
if (lpTable) {
lpTable->Release();
lpTable = NULL;
}
lpDL->Release();
lpDL = NULL;
}
//
// Cleanup the WAB
//
if (Cleanup) {
LUIOut(L2, "Cleanup: Removing MailUsers");
// First, delete the MailUser entries from the wab
for (Entry = 0; Entry < NumEntries; Entry++) {
hr = HrCreateEntryListFromID(lpWABObject,
IN lpEntries[Entry].cb,
IN (ENTRYID*)lpEntries[Entry].lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
LocalFree((HLOCAL)lpEntries[Entry].lpDisplayName);
LocalFree((HLOCAL)lpEntries[Entry].lpb);
FreeEntryList(lpWABObject, &lpEntryList);
}
LocalFree((HLOCAL)lpEntries);
LUIOut(L2, "Cleanup: Removing Distribution Lists");
// Now, delete the Distribution Lists from the wab
for (DL = 0; DL < NumDLs; DL++) {
hr = HrCreateEntryListFromID(lpWABObject,
IN lpDLs[DL].cb,
IN (ENTRYID*)lpDLs[DL].lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
LocalFree((HLOCAL)lpDLs[DL].lpDisplayName);
LocalFree((HLOCAL)lpDLs[DL].lpb);
FreeEntryList(lpWABObject, &lpEntryList);
}
LocalFree((HLOCAL)lpDLs);
}
else {
LUIOut(L2, "Cleanup: User has requested that the MailUser entries and DistLists not be removed");
for (Entry = 0; Entry < NumEntries; Entry++) {
LocalFree((HLOCAL)lpEntries[Entry].lpDisplayName);
LocalFree((HLOCAL)lpEntries[Entry].lpb);
}
LocalFree((HLOCAL)lpEntries);
for (DL = 0; DL < NumDLs; DL++) {
LocalFree((HLOCAL)lpDLs[DL].lpDisplayName);
LocalFree((HLOCAL)lpDLs[DL].lpb);
}
LocalFree((HLOCAL)lpDLs);
}
out:
#ifdef PAB
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
//if (lpszDisplayName) LocalFree(lpszDisplayName);
if (lpMailUser)
lpMailUser->Release();
if (lpDL)
lpDL->Release();
if (lpDL2)
lpDL2->Release();
if (lpTable)
lpTable->Release();
if (lpABCont)
lpABCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL NamedPropsSuite()
{
BOOL Cleanup;
HRESULT hr = hrSuccess;
int retval=TRUE;
ULONG cbEidPAB = 0;
ULONG cbEid=0; // entry id of the entry being added
ULONG cValues = 0, ulObjType=NULL, cValues2;
ULONG cRows = 0;
UINT Entry, DL, NumEntries, NumDLs, PropIndex;
char szDLTag[SML_BUF], *lpszDisplayName = NULL, *lpszReturnName = NULL;
EntryID *lpEntries, *lpDLs;
char EntryBuf[MAX_BUF];
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
LPADRBOOK lpAdrBook= NULL;
LPABCONT lpABCont= NULL;
LPMAILUSER lpMailUser=NULL;
LPDISTLIST lpDL=NULL,lpDL2=NULL;
LPMAPITABLE lpTable = NULL;
LPSRowSet lpRows = NULL;
SRestriction Restriction;
SPropValue *lpPropValue = NULL; //Used to create props for the mailusers
SPropValue PropValue[1]= {0}; //
LPSPropValue lpSPropValueAddress = NULL; //Used to create default mailuser
LPSPropValue lpSPropValueEntryID = NULL; //Used to getprops on entryid of user
LPSPropValue lpSPropValueDL = NULL; //Used to create default DL
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
MAPINAMEID mnid[3];
LPMAPINAMEID lpmnid = &(mnid[0]);
LPSPropTagArray lpNamedPropTags = NULL;
SPropValue spv[3];
/* LUIOut(L1," ");
LUIOut(L1,"Running PAB_IDLSuite");
LUIOut(L2,"-> Tests Distribution List functionality by performing the following:");
LUIOut(L2, " Attempts to CreateEntry with the DistList template and checks...");
LUIOut(L2, " # The return code from CreateEntry");
LUIOut(L2, " # QueryInterface is called on the returned object and checked for success");
LUIOut(L2, " # Release is called on the interface ptr returned from QI and the reference");
LUIOut(L2, " count is tested for <= 0 (pass)");
LUIOut(L2, " Calls CreateEntry on the DistList object to add MailUser and DL members and checks...");
LUIOut(L2, " # The return code from CreateEntry");
LUIOut(L2, " # QueryInterface is called on the returned object and checked for success");
LUIOut(L2, " # Release is called on the interface ptr returned from QI and the reference");
LUIOut(L2, " count is tested for <= 0 (pass)");
*/ LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
// hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (HR_FAILED(hr)) {
LUIOut(L3,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Create MailUsers in the container
//
LUIOut(L2, "Creating MailUsers");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
// Retrieve user info from ini file
lstrcpy(szDLTag,"Address1");
GetPrivateProfileString("NamedPropsTestSuite",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
//_itoa(0,(char*)lpszDisplayName[strlen(lpszDisplayName)],10);
NumEntries = GetPrivateProfileInt("NamedPropsTestSuite","NumCopies",0,INIFILENAME);
//Allocate an array of String pointers to hold the EntryIDs
lpEntries = (EntryID*)LocalAlloc(LMEM_FIXED, NumEntries * sizeof(EntryID));
lpszDisplayName = (char*)LocalAlloc(LMEM_FIXED, MAX_BUF);
ParseIniBuffer(IN EntryBuf, IN 1, OUT lpszDisplayName);
for (Entry = 0; Entry < NumEntries; Entry++) {
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
CreateProps(IN INIFILENAME, IN "Properties", OUT &lpPropValue, OUT &cValues2, IN Entry, IN &lpszDisplayName, OUT &lpszReturnName);
LUIOut(L3,"MailUser Entry to Add: %s",lpszReturnName);
hr = lpMailUser->SetProps(IN cValues2,
IN lpPropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED with 0x%x",hr);
retval=FALSE;
goto out;
}
//
// Create and save 3 Named Properties
//
mnid[0].lpguid = &WabTestGUID;
mnid[0].ulKind = MNID_STRING; // This means union will contain a UNICODE string...
mnid[0].Kind.lpwstrName = L"A long test string of little meaning or relevance entered here ~!@#$%^&*{}[]()";
mnid[1].lpguid = &WabTestGUID;
mnid[1].ulKind = MNID_ID; // This means union will contain a long...
mnid[1].Kind.lID = 0x00000000; // numeric property 1
mnid[2].lpguid = &WabTestGUID;
mnid[2].ulKind = MNID_ID; // This means union will contain a long...
mnid[2].Kind.lID = 0xFFFFFFFF; // numeric property 1
hr = lpMailUser->GetIDsFromNames(3, // named props in the array
&lpmnid, // &-of because this is an array
MAPI_CREATE,
&lpNamedPropTags);
if (hr) {
//
// I'd really be suprised if I got S_OK for this...
//
if (GetScode(hr) != MAPI_W_ERRORS_RETURNED) {
// Real error here
retval = FALSE;
goto out;
}
// Basically, this means you don't have anything by this name and you
// didn't ask the object to create it.
//$ no biggie
}
LUIOut(L4, "GetIDsFromNames returned %i tags.", lpNamedPropTags->cValues);
//
// Ok, so what can I do with this ptaga? Well, we can set a value for it by doing:
//
spv[0].ulPropTag = CHANGE_PROP_TYPE(lpNamedPropTags->aulPropTag[0],PT_STRING8);
spv[0].Value.lpszA = "More meaningless testing text of no consequence !@#$%&*()_+[]{}";
spv[1].ulPropTag = CHANGE_PROP_TYPE(lpNamedPropTags->aulPropTag[1],PT_LONG);
spv[1].Value.l = 0x5A5A5A5A;
spv[2].ulPropTag = CHANGE_PROP_TYPE(lpNamedPropTags->aulPropTag[2],PT_BINARY);
GenerateRandomBinary(&(spv[2].Value.bin),256); // stick 256 bytes of random data in there
hr = lpMailUser->SetProps(
3,
&spv[0],
NULL);
if (HR_FAILED(hr)) {
goto out;
}
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
// Store the EID for deleting this entry later
hr = lpMailUser->GetProps( IN (LPSPropTagArray) &SPTArrayEntryID,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
//Allocate space for the display name
lpEntries[Entry].lpDisplayName = (char*)LocalAlloc(LMEM_FIXED, (strlen(lpszReturnName)+1));
//Copy the DisplayName for use later
strcpy(lpEntries[Entry].lpDisplayName, lpszReturnName);
//Allocate space for the EID (lpb)
lpEntries[Entry].lpb = (LPBYTE)LocalAlloc(LMEM_FIXED, lpSPropValueEntryID->Value.bin.cb);
//Copy the EID for use later
lpEntries[Entry].cb = lpSPropValueEntryID->Value.bin.cb;
memcpy(lpEntries[Entry].lpb,lpSPropValueEntryID->Value.bin.lpb,
lpEntries[Entry].cb);
//Free the SPropValue for use in the next loop
if (lpPropValue) {
for (unsigned int Prop = 0; Prop < cValues2; Prop++) {
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_STRING8) {
if (lpPropValue[Prop].Value.LPSZ) {
LocalFree(lpPropValue[Prop].Value.LPSZ);
lpPropValue[Prop].Value.LPSZ = NULL;
}
}
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_BINARY) {
if (lpPropValue[Prop].Value.bin.lpb) {
LocalFree(lpPropValue[Prop].Value.bin.lpb);
lpPropValue[Prop].Value.bin.lpb = NULL;
}
}
}
LocalFree(lpPropValue);
lpPropValue=NULL;
}
if (lpSPropValueEntryID) {
lpWABObject->FreeBuffer(lpSPropValueEntryID);
lpSPropValueEntryID = NULL;
}
lpMailUser->Release();
lpMailUser = NULL;
}
//
// Create the Distribution Lists in the container
//
NumDLs = GetPrivateProfileInt("NamedPropsTestSuite","NumDLs",0,INIFILENAME);
lpDLs = (EntryID*)LocalAlloc(LMEM_FIXED, NumDLs * sizeof(EntryID));
LUIOut(L2, "Creating Distribution Lists");
for (DL = 0; DL < NumDLs; DL++) {
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which can be passed to CreateEntry
//
//LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueDL->Value.bin.cb,
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpDL);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
// Call QueryInterface on the object
hr = (lpDL->QueryInterface((REFIID)(IID_IDistList), (VOID **) &lpDL2));
if (HR_FAILED(hr)) {
LUIOut(L4, "QueryInterface on IID_IDistList FAILED. hr = 0x%x", hr);
retval = FALSE;
goto out;
}
else LUIOut(L4, "QueryInterface on IID_IDistList PASSED");
lstrcpy(szDLTag,"DistList1");
GetPrivateProfileString("NamedPropsTestSuite",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
//StrLen2 = (StrLen1 + sprintf((char*)&EntProp[0][StrLen1], " [Thread #%i] - ", *(int *)lpThreadNum));
_itoa(DL,(char*)&EntryBuf[strlen(EntryBuf)],10);
LUIOut(L3,"DistList Entry to Add: %s",EntryBuf);
cValues = 1;
PropValue[0].Value.LPSZ = (LPTSTR)EntryBuf;
hr = lpDL->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"DL->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
hr = lpDL->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"DL->SaveChanges FAILED");
retval=FALSE;
goto out;
}
// Want a container interface to the DL, and since QueryInterface on a DL
// is currently broken (returns a MailUser interface when called with IID_IDistList)
// we do it the hard way. Call GetProps to get the EID for the new DL, and then
// call OpenEntry from the container or AB interfaces to open a DL interface
hr = lpDL->GetProps( IN (LPSPropTagArray) &SPTArrayEntryID,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
lpDL2->Release(); //Free up this pointer so we can recycle it
hr = lpABCont->OpenEntry(IN lpSPropValueEntryID->Value.bin.cb,
IN (LPENTRYID) lpSPropValueEntryID->Value.bin.lpb,
IN &IID_IDistList,
IN MAPI_BEST_ACCESS,
OUT &ulObjType,
OUT (LPUNKNOWN*) &lpDL2);
if (HR_FAILED(hr)) {
LUIOut(L3,"OpenEntry failed for DistList");
retval=FALSE;
goto out;
}
LUIOut(L3, "Adding MailUser Members to the Distribution List");
//
// Now add mailuser entries to the DL
//
for (Entry = 0; Entry < NumEntries; Entry++) {
hr = lpDL2->CreateEntry( IN lpEntries[Entry].cb,
IN (LPENTRYID) lpEntries[Entry].lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
lpMailUser->Release();
lpMailUser = NULL;
}
//Allocate space for the display name
lpDLs[DL].lpDisplayName = (char*)LocalAlloc(LMEM_FIXED, (strlen(EntryBuf)+1));
//Copy the DisplayName for use later
strcpy(lpDLs[DL].lpDisplayName, EntryBuf);
//Allocate space for the EID (lpb)
lpDLs[DL].lpb = (LPBYTE)LocalAlloc(LMEM_FIXED, lpSPropValueEntryID->Value.bin.cb);
//Copy the EID for use later
lpDLs[DL].cb = lpSPropValueEntryID->Value.bin.cb;
memcpy(lpDLs[DL].lpb,lpSPropValueEntryID->Value.bin.lpb,
lpDLs[DL].cb);
if (lpSPropValueEntryID) {
lpWABObject->FreeBuffer(lpSPropValueEntryID);
lpSPropValueEntryID = NULL;
}
if (lpSPropValueDL) {
lpWABObject->FreeBuffer(lpSPropValueDL);
lpSPropValueDL = NULL;
}
lpDL->Release();
lpDL = NULL;
lpDL2->Release();
lpDL2 = NULL;
}
//
// Verify all entries are in the DL
//
LUIOut(L2, "Verifying MailUser Members are in the Distribution List");
for (DL = 0; DL < NumDLs; DL++) {
// Need to get an interface to the DL
hr = lpABCont->OpenEntry(IN lpDLs[DL].cb,
IN (LPENTRYID) lpDLs[DL].lpb,
IN &IID_IDistList,
IN MAPI_BEST_ACCESS,
OUT &ulObjType,
OUT (LPUNKNOWN*) &lpDL);
if (HR_FAILED(hr)) {
LUIOut(L3,"OpenEntry failed for DistList");
retval=FALSE;
goto out;
}
// Create a contents table to verify each added entry exists in the DL
hr = lpDL->GetContentsTable(ULONG(0), &lpTable);
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->GetContentsTable call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
// Allocate the SpropValue ptr in the restriction structure
lpWABObject->AllocateBuffer(sizeof(SPropValue), (void**)&(Restriction.res.resProperty.lpProp));
Restriction.res.resProperty.lpProp = (SPropValue*)Restriction.res.resProperty.lpProp;
for (Entry = 0; Entry < NumEntries; Entry++) {
hr = lpDL->OpenEntry( IN lpEntries[Entry].cb,
IN (LPENTRYID) lpEntries[Entry].lpb,
IN &IID_IMailUser,
IN MAPI_BEST_ACCESS,
OUT &ulObjType,
OUT (LPUNKNOWN*) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"OpenEntry failed for DistList");
retval=FALSE;
goto out;
}
lpMailUser->Release();
lpMailUser = NULL;
// Build the restriction structure to pass to lpTable->Restrict
//** For testing the fail case only, stub out for real testing
// lstrcpy(lpszDisplayNames[Counter2], "This should not match");
//**
Restriction.rt = RES_PROPERTY; //Property restriction
Restriction.res.resProperty.relop = RELOP_EQ; //Equals
Restriction.res.resProperty.ulPropTag = PR_DISPLAY_NAME;
Restriction.res.resProperty.lpProp->ulPropTag = PR_DISPLAY_NAME;
Restriction.res.resProperty.lpProp->Value.LPSZ = lpEntries[Entry].lpDisplayName;
hr = lpTable->Restrict(&Restriction, ULONG(0));
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->Restrict call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
hr = lpTable->QueryRows(LONG(1),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED: Entry #%i, returned 0x%x", Entry, hr);
retval=FALSE;
goto out;
}
if (!lpRows->cRows) {
LUIOut(L2, "QueryRows did not find entry #%i. Test FAILED", Entry);
retval=FALSE;
goto out;
}
//** For testing purposes only, stub out for real testing
//InitializeCriticalSection(&CriticalSection);
//EnterCriticalSection(&CriticalSection);
//DisplayRows(lpRows);
//LeaveCriticalSection(&CriticalSection);
//**
// Does the user want us to cleanup after ourself?
Cleanup = GetPrivateProfileInt("NamedPropsTestSuite","Cleanup",1,INIFILENAME);
if (Cleanup) {
// Change the EntryID to a LPENTRYLIST
FindPropinRow(&lpRows->aRow[0],
PR_ENTRYID,
&PropIndex);
hr = HrCreateEntryListFromID(lpWABObject,
IN lpRows->aRow[0].lpProps[PropIndex].Value.bin.cb,
IN (ENTRYID*)lpRows->aRow[0].lpProps[PropIndex].Value.bin.lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpDL->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry %i. DeleteEntry returned 0x%x", Entry, hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeRows(lpWABObject, &lpRows); // Cleanup from first call to queryrows
// Verify the entry was deleted by calling QueryRows again
hr = lpTable->QueryRows(LONG(1),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED: Entry #%i, returned 0x%x", Entry, hr);
retval=FALSE;
goto out;
}
if (lpRows->cRows) { // Should be 0 if deleted
LUIOut(L2, "QueryRows found entry #%i even tho it was deleted. Test FAILED", Entry);
retval=FALSE;
goto out;
}
}
//Cleanup
FreeRows(lpWABObject, &lpRows); // Cleanup from second call to queryrows
if (lpEntryList) {
FreeEntryList(lpWABObject, &lpEntryList);
lpEntryList = NULL;
}
}
LUIOut(L3, "All members verified for Distribution List #%i", DL);
//Free up memory
lpWABObject->FreeBuffer(Restriction.res.resProperty.lpProp);
if (lpTable) {
lpTable->Release();
lpTable = NULL;
}
lpDL->Release();
lpDL = NULL;
}
//
// Cleanup the WAB
//
if (Cleanup) {
LUIOut(L2, "Cleanup: Removing MailUsers");
// First, delete the MailUser entries from the wab
for (Entry = 0; Entry < NumEntries; Entry++) {
hr = HrCreateEntryListFromID(lpWABObject,
IN lpEntries[Entry].cb,
IN (ENTRYID*)lpEntries[Entry].lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
LocalFree((HLOCAL)lpEntries[Entry].lpDisplayName);
LocalFree((HLOCAL)lpEntries[Entry].lpb);
FreeEntryList(lpWABObject, &lpEntryList);
}
LocalFree((HLOCAL)lpEntries);
LUIOut(L2, "Cleanup: Removing Distribution Lists");
// Now, delete the Distribution Lists from the wab
for (DL = 0; DL < NumDLs; DL++) {
hr = HrCreateEntryListFromID(lpWABObject,
IN lpDLs[DL].cb,
IN (ENTRYID*)lpDLs[DL].lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
LocalFree((HLOCAL)lpDLs[DL].lpDisplayName);
LocalFree((HLOCAL)lpDLs[DL].lpb);
FreeEntryList(lpWABObject, &lpEntryList);
}
LocalFree((HLOCAL)lpDLs);
}
else {
LUIOut(L2, "Cleanup: User has requested that the MailUser entries and DistLists not be removed");
for (Entry = 0; Entry < NumEntries; Entry++) {
LocalFree((HLOCAL)lpEntries[Entry].lpDisplayName);
LocalFree((HLOCAL)lpEntries[Entry].lpb);
}
LocalFree((HLOCAL)lpEntries);
for (DL = 0; DL < NumDLs; DL++) {
LocalFree((HLOCAL)lpDLs[DL].lpDisplayName);
LocalFree((HLOCAL)lpDLs[DL].lpb);
}
LocalFree((HLOCAL)lpDLs);
}
out:
#ifdef PAB
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
//if (lpszDisplayName) LocalFree(lpszDisplayName);
if (lpMailUser)
lpMailUser->Release();
if (lpDL)
lpDL->Release();
if (lpDL2)
lpDL2->Release();
if (lpTable)
lpTable->Release();
if (lpABCont)
lpABCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IMailUserSetGetProps()
{
//DWORD nCells, counter;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont= NULL, lpABCont2= NULL;
LPABCONT lpPABCont= NULL,lpPABCont2= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
char EntProp[10][BIG_BUF]; //MAX_PROP
ULONG cValues = 0, cValues2 = 0, ulObjType=NULL;
int i=0,k=0;
char EntryBuf[MAX_BUF];
char szDLTag[SML_BUF];
LPMAILUSER lpMailUser=NULL,lpMailUser2=NULL,lpDistList=NULL,lpDistList2=NULL;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
SizedSPropTagArray(2, Cols) = { 2, {PR_OBJECT_TYPE, PR_ENTRYID } };
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueMailUser = NULL;
LPSPropValue lpSPropValueDistList = NULL;
LPSPropValue lpSPropValueEntryID = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
SizedSPropTagArray(1,SPTArrayDisplayName) = {1, {PR_DISPLAY_NAME} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IMailUserSetGetProps");
LUIOut(L2,"-> Verifies IMailUser->SetProps and GetProps are functional by performing the following:");
LUIOut(L2, " Attempts to Set/GetProps on a MailUser PR_DISPLAY_NAME using address1 from the");
LUIOut(L2, " ini file and checks...");
LUIOut(L2, " # The return code from both SetProps and GetProps");
LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L2, " Attempts to Set/GetProps on a DistList PR_DISPLAY_NAME using Name1 from the");
LUIOut(L2, " ini file and checks...");
LUIOut(L2, " # The return code from both SetProps and GetProps");
LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
// hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Try to create a MailUser entry in the container
//
LUIOut(L2, "Creating a Mail User in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_MAILUSER property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
lstrcpy(szDLTag,"Address1");
GetPrivateProfileString("CreateEntries",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
LUIOut(L2,"MailUser Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpMailUser->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
LUIOut(L2, "Calling MailUser->GetProps to verify the properties are what we expect");
hr = lpMailUser->GetProps( IN (LPSPropTagArray) &SPTArrayDisplayName,
IN 0,
OUT &cValues2,
OUT (LPSPropValue FAR *)&lpSPropValueMailUser);
if ((HR_FAILED(hr))||(PropError(lpSPropValueMailUser->ulPropTag, cValues2))) {
LUIOut(L3,"MailUser->GetProps call FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->GetProps call PASSED. Now verifying property array...");
for (i=0; i<(int)cValues;i++) {
if (lstrcmp(PropValue[i].Value.LPSZ, lpSPropValueMailUser->Value.LPSZ)) { //FAILED
LUIOut(L3, "Display names are not egual. [%s != %s]",
PropValue[i].Value.LPSZ, lpSPropValueMailUser->Value.LPSZ);
retval = FALSE;
goto out;
}
else LUIOut(L3, "Display names are equal. [%s = %s]",
PropValue[i].Value.LPSZ, lpSPropValueMailUser->Value.LPSZ);
}
LUIOut(L2, "MailUserSet/GetProps PASSED");
#ifdef DISTLIST
//
// Try to create a DL entry in the container
//
LUIOut(L2, "Creating a Distribution List in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_DL property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_DL
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default DL template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which one can pass to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueDL->Value.bin.cb,
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpDistList);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
lstrcpy(szDLTag,"Name1");
GetPrivateProfileString("CreatePDL",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
LUIOut(L2,"DistList Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpDistList->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
LUIOut(L2, "Calling DistList->GetProps to verify the properties are what we expect");
hr = lpDistList->GetProps( IN (LPSPropTagArray) &SPTArrayDisplayName,
IN 0,
OUT &cValues2,
OUT (LPSPropValue FAR *)&lpSPropValueDistList);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDistList->ulPropTag))) {
LUIOut(L3,"DistList->GetProps call FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->GetProps call PASSED. Now verifying property array...");
for (i=0; i<(int)cValues;i++) {
if (lstrcmp(PropValue[i].Value.LPSZ, lpSPropValueDistList->Value.LPSZ)) { //FAILED
LUIOut(L3, "Display names are not egual. [%s != %s]",
PropValue[i].Value.LPSZ, lpSPropValueDistList->Value.LPSZ);
retval = FALSE;
goto out;
}
else LUIOut(L3, "Display names are equal. [%s = %s]",
PropValue[i].Value.LPSZ, lpSPropValueDistList->Value.LPSZ);
}
LUIOut(L2, "DistList Set/GetProps PASSED");
#endif DISTLIST
out:
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueMailUser)
MAPIFreeBuffer(lpSPropValueMailUser);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueMailUser)
lpWABObject->FreeBuffer(lpSPropValueMailUser);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
if (lpMailUser)
lpMailUser->Release();
if (lpMailUser2)
lpMailUser2->Release();
if (lpDistList)
lpDistList->Release();
if (lpDistList2)
lpDistList2->Release();
if (lpContentsTable)
lpContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpABCont)
lpABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IMailUserSaveChanges()
{
//DWORD nCells, counter;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont= NULL, lpABCont2= NULL;
LPABCONT lpPABCont= NULL,lpPABCont2= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
ULONG cValues = 0, cValues2 = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int i=0,k=0;
LPMAILUSER lpMailUser=NULL,lpMailUser2=NULL,lpDistList=NULL,lpDistList2=NULL;
SPropValue* lpPropValue = NULL;
SizedSPropTagArray(2, Cols) = { 2, {PR_OBJECT_TYPE, PR_ENTRYID } };
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueMailUser = NULL;
LPSPropValue lpSPropValueDistList = NULL;
LPSPropValue lpSPropValueEntryID = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
SizedSPropTagArray(1,SPTArrayDisplayName) = {1, {PR_DISPLAY_NAME} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IMailUserSaveChanges");
LUIOut(L2,"-> Verifies IMailUser->SaveChanges is functional by performing the following:");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a MailUser PR_DISPLAY_NAME using address1 from the");
LUIOut(L2, " ini file and checks...");
LUIOut(L2, " # The return code from SaveChanges");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a DistList PR_DISPLAY_NAME using address1 from the");
LUIOut(L2, " ini file and checks...");
LUIOut(L2, " # The return code from SaveChanges");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
// hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Try to create a MailUser entry in the container
//
LUIOut(L2, "Creating a Mail User in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_MAILUSER property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
#ifdef TESTPASS
while (1) {
#endif
CreateProps(IN INIFILENAME, IN "Properties", OUT &lpPropValue, OUT &cValues2, IN AUTONUM_OFF, IN NULL, OUT NULL);
LUIOut(L4, "Creating a MailUser with %i properties.", cValues2);
hr = lpMailUser->SetProps(IN cValues2,
IN lpPropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SetProps call PASSED");
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SaveChanges PASSED, entry added to PAB/WAB");
// Now retrieve all the props and compare to what we expect
hr = lpMailUser->GetProps( IN (LPSPropTagArray) NULL, //Want all props
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
DisplayProp(lpSPropValueEntryID, PR_GIVEN_NAME, cValues);
DisplayProp(lpSPropValueEntryID, PR_SURNAME, cValues);
if (!CompareProps(lpPropValue, cValues2, lpSPropValueEntryID, cValues)) {
retval=FALSE;
goto out;
}
else LUIOut(L4, "Compared expected and found props. No differences detected.");
// Free the memory associated with this ptr so the ptr can be reused below
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpPropValue) {
for (unsigned int Prop = 0; Prop < cValues2; Prop++) {
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_STRING8) {
if (lpPropValue[Prop].Value.LPSZ) {
LocalFree(lpPropValue[Prop].Value.LPSZ);
lpPropValue[Prop].Value.LPSZ = NULL;
}
}
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_BINARY) {
if (lpPropValue[Prop].Value.bin.lpb) {
LocalFree(lpPropValue[Prop].Value.bin.lpb);
lpPropValue[Prop].Value.bin.lpb = NULL;
}
}
}
LocalFree(lpPropValue);
lpPropValue=NULL;
}
#ifdef TESTPASS
}
#endif
// Now delete the entry from the wab
hr = lpMailUser->GetProps( IN (LPSPropTagArray) &SPTArrayEntryID,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
hr = HrCreateEntryListFromID(lpWABObject,
IN lpSPropValueEntryID->Value.bin.cb,
IN (ENTRYID*)lpSPropValueEntryID->Value.bin.lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeEntryList(lpWABObject, &lpEntryList);
out:
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
if (lpPropValue) {
for (unsigned int Prop = 0; Prop < cValues2; Prop++) {
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_STRING8) {
if (lpPropValue[Prop].Value.LPSZ) {
LocalFree(lpPropValue[Prop].Value.LPSZ);
lpPropValue[Prop].Value.LPSZ = NULL;
}
}
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_BINARY) {
if (lpPropValue[Prop].Value.bin.lpb) {
LocalFree(lpPropValue[Prop].Value.bin.lpb);
lpPropValue[Prop].Value.bin.lpb = NULL;
}
}
}
LocalFree(lpPropValue);
lpPropValue=NULL;
}
if (lpMailUser)
lpMailUser->Release();
if (lpMailUser2)
lpMailUser2->Release();
if (lpDistList)
lpDistList->Release();
if (lpDistList2)
lpDistList2->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpABCont)
lpABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IABContainerResolveNames()
{
//DWORD nCells, counter;
BOOL Found = FALSE;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
int NumEntries, NumProps;
unsigned int i = 0, idx = 0, cMaxProps =0, cEntries = 0;
char lpszInput[] = "Resolve THIS buddy!01234567891123456789212345678931234567894123456789512345678961234567897123456789812345678991234567890123456789112345678921234567893123456789412345678951234567896123456789712345678981234567899123456789012345678911234567892123456789312345678941234567895123456789612345678971234567898123456789", lpszInput2[] = "Resolve THIS DL buddy!";
LPADRLIST lpAdrList = NULL;
ULONG rgFlagList[2];
LPFlagList lpFlagList = (LPFlagList)rgFlagList;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont= NULL, lpABCont2= NULL;
LPABCONT lpPABCont= NULL,lpPABCont2= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
char EntProp[10][BIG_BUF]; //MAX_PROP
ULONG cValues = 0, cValues2 = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int k=0;
LPMAILUSER lpMailUser=NULL,lpMailUser2=NULL,lpDistList=NULL,lpDistList2=NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
SizedSPropTagArray(2, SPTArrayCols) = { 2, {PR_DISPLAY_NAME, PR_ENTRYID } };
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueMailUser = NULL;
LPSPropValue lpSPropValueDistList = NULL;
LPSPropValue lpSPropValueEntryID = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
SizedSPropTagArray(1,SPTArrayDisplayName) = {1, {PR_DISPLAY_NAME} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IABContainerResolveNames");
LUIOut(L2,"-> Verifies IABContainer->ResolveNames is functional by performing the following:");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a MailUser PR_DISPLAY_NAME using a test string, and checks...");
LUIOut(L2, " # The return code from ResolveNames (called with a PropertyTagArray containing PR_DISPLAY_NAME and PR_ENTRY_ID)");
LUIOut(L2, " # Walks the returned lpAdrList and checks each PropertyTagArray for PR_DISPLAY_NAME and then compares the ");
LUIOut(L2, " string to the original test string.");
LUIOut(L2, " # Walks the returned lpAdrList and verifies that an EntryID exists in each PropertyTagArray");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a DistList PR_DISPLAY_NAME using a test string, and checks...");
LUIOut(L2, " # The return code from ResolveNames (called with a PropertyTagArray containing PR_DISPLAY_NAME and PR_ENTRY_ID)");
LUIOut(L2, " # Walks the returned lpAdrList and checks each PropertyTagArray for PR_DISPLAY_NAME and then compares the ");
LUIOut(L2, " string to the original test string.");
LUIOut(L2, " # Walks the returned lpAdrList and verifies that an EntryID exists in each PropertyTagArray");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
// hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Try to create a MailUser entry in the container
//
LUIOut(L2, "Creating a Mail User in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_MAILUSER property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
/* lstrcpy(szDLTag,"Address1");
GetPrivateProfileString("CreateEntries",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
*/
lstrcpy((LPTSTR)EntProp[0], lpszInput);
LUIOut(L2,"MailUser Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpMailUser->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SaveChanges PASSED, entry added to PAB/WAB");
//
// Do a ResolveNames on the string
//
LUIOut(L2, "Retrieving the entry and verifying against what we tried to save.");
NumEntries = 1, NumProps = 1;
AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList);
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszInput;
lpFlagList->cFlags = 1;
lpFlagList->ulFlag[0] = MAPI_UNRESOLVED;
hr = lpABCont->ResolveNames(
(LPSPropTagArray)&SPTArrayCols, // tag set for disp_name and eid
0, // ulFlags
lpAdrList,
lpFlagList);
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->ResolveNames call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
else LUIOut(L3,"ABContainer->ResolveNames call PASSED");
VerifyResolvedAdrList(lpAdrList, lpszInput);
// Now delete the entry from the wab
hr = lpMailUser->GetProps( IN (LPSPropTagArray) &SPTArrayEntryID,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
hr = HrCreateEntryListFromID(lpWABObject,
IN lpSPropValueEntryID->Value.bin.cb,
IN (ENTRYID*)lpSPropValueEntryID->Value.bin.lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeEntryList(lpWABObject, &lpEntryList);
FreeAdrList(lpWABObject, &lpAdrList); // Free lpAdrList and properties
#ifdef DISTLIST
//
// Try to create a DL entry in the container
//
LUIOut(L2, "Creating a Distribution List in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_DL property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_DL
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default DL template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which one can pass to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueDL->Value.bin.cb,
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpDistList);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
/* lstrcpy(szDLTag,"Name1");
GetPrivateProfileString("CreatePDL",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
*/
lstrcpy((LPTSTR)EntProp[0], lpszInput2);
LUIOut(L2,"DistList Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpDistList->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
hr = lpDistList->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SaveChanges FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SaveChanges PASSED, entry added to PAB/WAB");
//
// Do a ResolveNames on the string
//
LUIOut(L2, "Retrieving the entry and verifying against what we tried to save.");
// use WAB Allocators here
#ifdef PAB
if (! (sc = MAPIAllocateBuffer(sizeof(ADRLIST) + sizeof(ADRENTRY), (void **)&lpAdrList))) {
#endif //PAB
#ifdef WAB
if (! (sc = lpWABObject->AllocateBuffer(sizeof(ADRLIST) + sizeof(ADRENTRY), (void **)&lpAdrList))) {
#endif //WAB
lpAdrList->cEntries = 1;
lpAdrList->aEntries[0].ulReserved1 = 0;
lpAdrList->aEntries[0].cValues = 1;
#ifdef PAB
if (! (sc = MAPIAllocateMore(sizeof(SPropValue), lpAdrList,
(void **)&lpAdrList->aEntries[0].rgPropVals))) {
#endif //WAB
#ifdef WAB
if (! (sc = lpWABObject->AllocateMore(sizeof(SPropValue), lpAdrList,
(void **)&lpAdrList->aEntries[0].rgPropVals))) {
#endif //WAB
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszInput2;
lpFlagList->cFlags = 1;
lpFlagList->ulFlag[0] = MAPI_UNRESOLVED;
hr = lpABCont->ResolveNames(
(LPSPropTagArray)&SPTArrayCols, // tag set for disp_name and eid
0, // ulFlags
lpAdrList,
lpFlagList);
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->ResolveNames call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
else LUIOut(L3,"ABContainer->ResolveNames call PASSED");
Found = FALSE;
// Search through returned AdrList for our entry
for(i=0; ((i<(int) lpAdrList->cEntries) && (!Found)); ++i) {
cMaxProps = (int)lpAdrList->aEntries[i].cValues;
//Check to see if Display Name exists
idx=0;
while((lpAdrList->aEntries[i].rgPropVals[idx].ulPropTag != PR_DISPLAY_NAME )
&& retval) {
idx++;
if(idx == cMaxProps) {
LUIOut(L4, "PR_DISPLAY_NAME was not found in the lpAdrList");
retval = FALSE;
}
}
LUIOut(L4,"Display Name: %s",lpAdrList->aEntries[i].rgPropVals[idx].Value.LPSZ);
if (!lstrcmp(lpAdrList->aEntries[i].rgPropVals[idx].Value.LPSZ,lpszInput2)) {
LUIOut(L3, "Found the entry we just added");
Found = TRUE;
}
//Check to see if EntryID exists
LUIOut(L3, "Verifying a PR_ENTRYID entry exists in the PropertyTagArray");
idx=0;
while((lpAdrList->aEntries[i].rgPropVals[idx].ulPropTag != PR_ENTRYID )
&& retval) {
idx++;
if(idx == cMaxProps) {
LUIOut(L4, "PR_ENTRYID was not found in the lpAdrList");
retval = FALSE;
}
}
if (!Found) LUIOut(L3, "Did not find the entry. Test FAILED");
if (idx < cMaxProps) LUIOut(L3, "EntryID found");
if (!(retval && Found)) retval = FALSE;
else {
// Store EID for call to OpenEntry
}
}
}
#ifdef PAB
MAPIFreeBuffer(lpAdrList);
#endif //PAB
#ifdef WAB
lpWABObject->FreeBuffer(lpAdrList);
#endif //WAB
}
#endif //DISTLIST
out:
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
if (lpMailUser)
lpMailUser->Release();
if (lpMailUser2)
lpMailUser2->Release();
if (lpDistList)
lpDistList->Release();
if (lpDistList2)
lpDistList2->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpABCont)
lpABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IABContainerOpenEntry()
{
//DWORD nCells, counter;
BOOL Found = FALSE;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE, NumEntries, NumProps;
unsigned int i = 0, idx = 0, cMaxProps =0, cEntries = 0, PropIndex;
char lpszInput[] = "Resolve THIS buddy!", lpszInput2[] = "Resolve THIS DL buddy!";
LPADRLIST lpAdrList = NULL;
FlagList rgFlagList;
LPFlagList lpFlagList = (LPFlagList)&rgFlagList;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont= NULL, lpABCont2= NULL;
LPABCONT lpPABCont= NULL,lpPABCont2= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
char EntProp[10][BIG_BUF]; //MAX_PROP
ULONG cValues = 0, cValues2 = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
ULONG cbLookupEID;
LPENTRYID lpLookupEID;
int k=0;
LPMAILUSER lpMailUser=NULL,lpMailUser2=NULL,lpDistList=NULL,lpDistList2=NULL;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
SizedSPropTagArray(2, SPTArrayCols) = { 2, {PR_DISPLAY_NAME, PR_ENTRYID } };
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueMailUser = NULL;
LPSPropValue lpSPropValueDistList = NULL;
LPSPropValue lpSPropValueEntryID = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
SizedSPropTagArray(1,SPTArrayDisplayName) = {1, {PR_DISPLAY_NAME} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IABContainerOpenEntry");
LUIOut(L2,"-> Verifies IABContainer->ResolveNames is functional by performing the following:");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a MailUser PR_DISPLAY_NAME using a test string, and checks...");
LUIOut(L2, " # The return code from ResolveNames (called with a PropertyTagArray containing PR_DISPLAY_NAME and PR_ENTRY_ID)");
LUIOut(L2, " # Walks the returned lpAdrList and checks each PropertyTagArray for PR_DISPLAY_NAME and then compares the ");
LUIOut(L2, " string to the original test string.");
LUIOut(L2, " # Walks the returned lpAdrList and verifies that an EntryID exists in each PropertyTagArray");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a DistList PR_DISPLAY_NAME using a test string, and checks...");
LUIOut(L2, " # The return code from ResolveNames (called with a PropertyTagArray containing PR_DISPLAY_NAME and PR_ENTRY_ID)");
LUIOut(L2, " # Walks the returned lpAdrList and checks each PropertyTagArray for PR_DISPLAY_NAME and then compares the ");
LUIOut(L2, " string to the original test string.");
LUIOut(L2, " # Walks the returned lpAdrList and verifies that an EntryID exists in each PropertyTagArray");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Try to create a MailUser entry in the container
//
LUIOut(L2, "Creating a Mail User in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_MAILUSER property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
/* lstrcpy(szDLTag,"Address1");
GetPrivateProfileString("CreateEntries",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
*/
lstrcpy((LPTSTR)&(EntProp[0]), lpszInput);
LUIOut(L2,"MailUser Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpMailUser->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SaveChanges PASSED, entry added to PAB/WAB");
//
// Do a ResolveNames on the string
//
LUIOut(L2, "Retrieving the entry and verifying against what we tried to save.");
NumEntries = 1, NumProps = 1;
AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList);
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszInput;
lpFlagList->cFlags = 1;
lpFlagList->ulFlag[0] = MAPI_UNRESOLVED;
hr = lpABCont->ResolveNames(
(LPSPropTagArray)&SPTArrayCols, // tag set for disp_name and eid
0, // ulFlags
lpAdrList,
lpFlagList);
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->ResolveNames call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
else LUIOut(L3,"ABContainer->ResolveNames call PASSED");
switch((ULONG)*lpFlagList->ulFlag) {
case MAPI_AMBIGUOUS: {
LUIOut(L4, "ResolveNames returned the MAPI_AMBIGUOUS flag. Test FAILED");
retval = FALSE;
break;
}
case MAPI_RESOLVED: {
LUIOut(L4, "ResolveNames returned the MAPI_RESOLVED flag. Test PASSED");
break;
}
case MAPI_UNRESOLVED: {
LUIOut(L4, "ResolveNames returned the MAPI_UNRESOLVED flag. Test FAILED");
retval = FALSE;
break;
}
default: {
LUIOut(L4, "Undefined flag value [%i] returned. Test FAILED", (ULONG)lpFlagList->ulFlag);
retval = FALSE;
}
}
// Search through returned AdrList for our entry
VerifyResolvedAdrList(lpAdrList, lpszInput);
FindProp(&lpAdrList->aEntries[0],
PR_ENTRYID,
&PropIndex);
lpLookupEID = (ENTRYID*)lpAdrList->aEntries[0].rgPropVals[PropIndex].Value.bin.lpb;
cbLookupEID = lpAdrList->aEntries[0].rgPropVals[PropIndex].Value.bin.cb;
hr = lpABCont->OpenEntry( IN cbLookupEID,
IN lpLookupEID,
IN 0, // Interface
IN MAPI_BEST_ACCESS, // Flags
OUT &ulObjType,
OUT (LPUNKNOWN *) &lpMailUser2
);
if (HR_FAILED(hr)) {
LUIOut(L3,"OpenEntry FAILED");
retval=FALSE;
goto dl;
}
// Check to make sure the object type is what we expect
LUIOut(L3, "Checking to make sure the returned object type is correct");
if (ulObjType != MAPI_MAILUSER) {
LUIOut(L2, "Object type is not MAPI_MAILUSER");
retval = FALSE;
goto out;
}
LUIOut(L3, "Object type is MAPI_MAILUSER");
// Call QueryInterface on the object
LUIOut(L3, "Calling QueryInterface on the returned object");
hr = (lpMailUser2->QueryInterface((REFIID)(IID_IMailUser), (VOID **) &lpABCont2));
if (HR_FAILED(hr)) {
LUIOut(L2, "QueryInterface on IID_IMailUser FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "QueryInterface on IID_IMailUser PASSED");
LUIOut(L3, "Trying to release the object QI returned");
if(lpABCont2) {
if ((LPUNKNOWN)(lpABCont2)->Release() <= 0)
LUIOut(L3, "QueryInterface returned a valid ptr and released succesfully");
else {
LUIOut(L2, "Release FAILED:returned a > zero ref count");
}
lpABCont2 = NULL;
}
else {
LUIOut(L2, "QueryInterface did not return a valid ptr");
retval = FALSE;
goto out;
}
//
// Delete the test entry we created in the wab
//
hr = HrCreateEntryListFromID(lpWABObject,
IN cbLookupEID,
IN lpLookupEID,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeEntryList(lpWABObject, &lpEntryList);
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
dl:
#ifdef DISTLIST
//
// Try to create a DL entry in the container
//
LUIOut(L2, "Creating a Distribution List in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_DL property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_DL
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default DL template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which one can pass to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueDL->Value.bin.cb,
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpDistList);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
/* lstrcpy(szDLTag,"Name1");
GetPrivateProfileString("CreatePDL",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
*/
lstrcpy((LPTSTR)EntProp[0], lpszInput2);
LUIOut(L2,"DistList Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpDistList->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
hr = lpDistList->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SaveChanges FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SaveChanges PASSED, entry added to PAB/WAB");
//
// Do a ResolveNames on the string
//
LUIOut(L2, "Retrieving the entry and verifying against what we tried to save.");
// use WAB Allocators here
#ifdef PAB
if (! (sc = MAPIAllocateBuffer(sizeof(ADRLIST) + sizeof(ADRENTRY), (void **)&lpAdrList))) {
#endif //PAB
#ifdef WAB
if (! (sc = lpWABObject->AllocateBuffer(sizeof(ADRLIST) + sizeof(ADRENTRY), (void **)&lpAdrList))) {
#endif //WAB
lpAdrList->cEntries = 1;
lpAdrList->aEntries[0].ulReserved1 = 0;
lpAdrList->aEntries[0].cValues = 1;
#ifdef PAB
if (! (sc = MAPIAllocateMore(sizeof(SPropValue), lpAdrList,
(void **)&lpAdrList->aEntries[0].rgPropVals))) {
#endif //WAB
#ifdef WAB
if (! (sc = lpWABObject->AllocateMore(sizeof(SPropValue), lpAdrList,
(void **)&lpAdrList->aEntries[0].rgPropVals))) {
#endif //WAB
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszInput2;
lpFlagList->cFlags = 1;
lpFlagList->ulFlag[0] = MAPI_UNRESOLVED;
hr = lpABCont->ResolveNames(
(LPSPropTagArray)&SPTArrayCols, // tag set for disp_name and eid
0, // ulFlags
lpAdrList,
lpFlagList);
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->ResolveNames call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
else LUIOut(L3,"ABContainer->ResolveNames call PASSED");
Found = FALSE;
// Search through returned AdrList for our entry
for(i=0; ((i<(int) lpAdrList->cEntries) && (!Found)); ++i) {
cMaxProps = (int)lpAdrList->aEntries[i].cValues;
//Check to see if Display Name exists
idx=0;
while((lpAdrList->aEntries[i].rgPropVals[idx].ulPropTag != PR_DISPLAY_NAME )
&& retval) {
idx++;
if(idx == cMaxProps) {
LUIOut(L4, "PR_DISPLAY_NAME was not found in the lpAdrList");
retval = FALSE;
}
}
LUIOut(L4,"Display Name: %s",lpAdrList->aEntries[i].rgPropVals[idx].Value.LPSZ);
if (!lstrcmp(lpAdrList->aEntries[i].rgPropVals[idx].Value.LPSZ,lpszInput2)) {
LUIOut(L3, "Found the entry we just added");
Found = TRUE;
}
//Check to see if EntryID exists
LUIOut(L3, "Verifying a PR_ENTRYID entry exists in the PropertyTagArray");
idx=0;
while((lpAdrList->aEntries[i].rgPropVals[idx].ulPropTag != PR_ENTRYID )
&& retval) {
idx++;
if(idx == cMaxProps) {
LUIOut(L4, "PR_ENTRYID was not found in the lpAdrList");
retval = FALSE;
}
}
if (!Found) LUIOut(L3, "Did not find the entry. Test FAILED");
if (idx < cMaxProps) LUIOut(L3, "EntryID found");
if (!(retval && Found)) retval = FALSE;
else {
// Store EID for call to OpenEntry
lpLookupEID = (ENTRYID*)lpAdrList->aEntries[i].rgPropVals[idx].Value.bin.lpb;
cbLookupEID = lpAdrList->aEntries[i].rgPropVals[idx].Value.bin.cb;
}
}
}
hr = lpABCont->OpenEntry( IN cbLookupEID,
IN lpLookupEID,
IN 0, // Interface
IN MAPI_BEST_ACCESS, // Flags
OUT &ulObjType,
OUT (LPUNKNOWN *) &lpDistList2
);
if (HR_FAILED(hr)) {
LUIOut(L3,"OpenEntry FAILED");
retval=FALSE;
//goto out;
}
// Check to make sure the object type is what we expect
LUIOut(L3, "Checking to make sure the returned object type is correct");
if (ulObjType != MAPI_DISTLIST) {
LUIOut(L2, "Object type is not MAPI_DISTLIST");
retval = FALSE;
goto out;
}
LUIOut(L3, "Object type is MAPI_DISTLIST");
// Call QueryInterface on the object
LUIOut(L3, "Calling QueryInterface on the returned object");
hr = (lpABCont->QueryInterface((REFIID)(IID_IDistList), (VOID **) &lpABCont2));
if (HR_FAILED(hr)) {
LUIOut(L2, "QueryInterface on IID_IDistList FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "QueryInterface on IID_IDistList PASSED");
LUIOut(L3, "Trying to release the object QI returned");
if(lpABCont2) {
if ((LPUNKNOWN)(lpABCont2)->Release() <= 0)
LUIOut(L3, "QueryInterface returned a valid ptr and released succesfully");
else {
LUIOut(L2, "Release FAILED:returned a > zero ref count");
}
lpABCont2 = NULL;
}
else {
LUIOut(L2, "QueryInterface did not return a valid ptr");
retval = FALSE;
goto out;
}
#ifdef PAB
MAPIFreeBuffer(lpAdrList);
#endif //PAB
#ifdef WAB
lpWABObject->FreeBuffer(lpAdrList);
#endif //WAB
}
#endif //DISTLIST
out:
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
if (lpMailUser)
lpMailUser->Release();
if (lpMailUser2)
lpMailUser2->Release();
if (lpDistList)
lpDistList->Release();
if (lpDistList2)
lpDistList2->Release();
if (lpContentsTable)
lpContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpABCont)
lpABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IABAddress()
{
//DWORD nCells, counter;
HWND hwnd = glblhwnd;
ADRPARM AdrParms;
LPADRPARM lpAdrParms = &AdrParms;
LPADRLIST lpAdrList = NULL;
char lpszCaptionText[64], lpszDestWellsText[64];
char lpszDisplayName[MAXSTRING], lpszDisplayName2[MAXSTRING], lpszDisplayName3[MAXSTRING];
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE, NumEntries, NumProps;
unsigned int i = 0, idx = 0, cMaxProps =0, cEntries = 0;
ULONG rgFlagList[2];
LPFlagList lpFlagList = (LPFlagList)rgFlagList;
LPADRBOOK lpAdrBook = NULL;
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IABAddress");
LUIOut(L2,"-> Verifies IABContainer->ResolveNames is functional by performing the following:");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a MailUser PR_DISPLAY_NAME using a test string, and checks...");
LUIOut(L2, " # The return code from ResolveNames (called with a PropertyTagArray containing PR_DISPLAY_NAME and PR_ENTRY_ID)");
LUIOut(L2, " # Walks the returned lpAdrList and checks each PropertyTagArray for PR_DISPLAY_NAME and then compares the ");
LUIOut(L2, " string to the original test string.");
LUIOut(L2, " # Walks the returned lpAdrList and verifies that an EntryID exists in each PropertyTagArray");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a DistList PR_DISPLAY_NAME using a test string, and checks...");
LUIOut(L2, " # The return code from ResolveNames (called with a PropertyTagArray containing PR_DISPLAY_NAME and PR_ENTRY_ID)");
LUIOut(L2, " # Walks the returned lpAdrList and checks each PropertyTagArray for PR_DISPLAY_NAME and then compares the ");
LUIOut(L2, " string to the original test string.");
LUIOut(L2, " # Walks the returned lpAdrList and verifies that an EntryID exists in each PropertyTagArray");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
//
// MULTISELECT MODE - To well only
//
// Fill in the ADRPARM structure
ZeroMemory(lpAdrParms, sizeof(ADRPARM));
NumEntries = 3, NumProps = 2;
AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList);
strcpy(lpszDisplayName, "Abraham Lincoln");
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszDisplayName;
lpAdrList->aEntries[0].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[0].rgPropVals[1].Value.l = MAPI_TO;
strcpy(lpszDisplayName2, "Carl Sagon");
lpAdrList->aEntries[1].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[1].rgPropVals[0].Value.LPSZ = lpszDisplayName2;
lpAdrList->aEntries[1].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[1].rgPropVals[1].Value.l = MAPI_TO;
strcpy(lpszDisplayName3, "Ren & Stimpy");
lpAdrList->aEntries[2].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[2].rgPropVals[0].Value.LPSZ = lpszDisplayName3;
lpAdrList->aEntries[2].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[2].rgPropVals[1].Value.l = MAPI_TO;
LUIOut(L2, "Calling IABAddress with multiselect mode and only the To well");
MessageBox(NULL, "Calling IAB->Address in multi-select mode with To: well only. You should see 3 entries in the To: well.",
"WAB Test Harness", MB_OK);
lpAdrParms->ulFlags = ( DIALOG_MODAL );
strcpy(lpszCaptionText, "WABTEST - MultiSelect mode");
strcpy(lpszDestWellsText, "WABTEST - Destination well text");
lpAdrParms->lpszCaption = lpszCaptionText;
lpAdrParms->lpszDestWellsTitle = lpszDestWellsText;
lpAdrParms->cDestFields = 1;
hr = lpAdrBook->Address((ULONG*)&hwnd, lpAdrParms, &lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L2, "IAdrBook->Address call FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "IAdrBook->Address call PASSED");
if (lpAdrList) DisplayAdrList(lpAdrList, lpAdrList->cEntries);
else {
LUIOut(L3, "IAdrBook->Address returned a NULL lpAdrList. No entries were selected.");
}
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
if (MessageBox(NULL, "Did the multi-select UI display correctly?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "Test operator reports the UI did not display correctly. Test FAILED");
retval = FALSE;
goto out;
}
//
// MULTISELECT MODE - To and CC wells only
//
// Fill in the ADRPARM structure
ZeroMemory(lpAdrParms, sizeof(ADRPARM));
NumEntries = 3, NumProps = 2;
AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList);
strcpy(lpszDisplayName, "Abraham Lincoln");
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszDisplayName;
lpAdrList->aEntries[0].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[0].rgPropVals[1].Value.l = MAPI_TO;
strcpy(lpszDisplayName2, "Carl Sagon");
lpAdrList->aEntries[1].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[1].rgPropVals[0].Value.LPSZ = lpszDisplayName2;
lpAdrList->aEntries[1].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[1].rgPropVals[1].Value.l = MAPI_CC;
strcpy(lpszDisplayName3, "Ren & Stimpy");
lpAdrList->aEntries[2].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[2].rgPropVals[0].Value.LPSZ = lpszDisplayName3;
lpAdrList->aEntries[2].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[2].rgPropVals[1].Value.l = MAPI_BCC;
LUIOut(L2, "Calling IABAddress with multiselect mode and both To and CC wells");
MessageBox(NULL, "Calling IAB->Address in multi-select mode with both To: and CC: wells. You should see 1 entry in each of the wells.",
"WAB Test Harness", MB_OK);
lpAdrParms->ulFlags = ( DIALOG_MODAL );
strcpy(lpszCaptionText, "WABTEST - MultiSelect mode");
strcpy(lpszDestWellsText, "WABTEST - Destination well text");
lpAdrParms->lpszCaption = lpszCaptionText;
lpAdrParms->lpszDestWellsTitle = lpszDestWellsText;
lpAdrParms->cDestFields = 2;
hr = lpAdrBook->Address((ULONG*)&hwnd, lpAdrParms, &lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L2, "IAdrBook->Address call FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "IAdrBook->Address call PASSED");
if (lpAdrList) DisplayAdrList(lpAdrList, lpAdrList->cEntries);
else {
LUIOut(L3, "IAdrBook->Address returned a NULL lpAdrList. No entries were selected.");
}
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
if (MessageBox(NULL, "Did the multi-select UI display correctly?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "Test operator reports the UI did not display correctly. Test FAILED");
retval = FALSE;
goto out;
}
//
// MULTISELECT MODE - To, CC and BCC wells
//
// Fill in the ADRPARM structure
ZeroMemory(lpAdrParms, sizeof(ADRPARM));
NumEntries = 3, NumProps = 2;
AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList);
strcpy(lpszDisplayName, "Abraham Lincoln");
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszDisplayName;
lpAdrList->aEntries[0].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[0].rgPropVals[1].Value.l = MAPI_TO;
strcpy(lpszDisplayName2, "Carl Sagon");
lpAdrList->aEntries[1].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[1].rgPropVals[0].Value.LPSZ = lpszDisplayName2;
lpAdrList->aEntries[1].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[1].rgPropVals[1].Value.l = MAPI_CC;
strcpy(lpszDisplayName3, "Ren & Stimpy");
lpAdrList->aEntries[2].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[2].rgPropVals[0].Value.LPSZ = lpszDisplayName3;
lpAdrList->aEntries[2].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[2].rgPropVals[1].Value.l = MAPI_BCC;
LUIOut(L2, "Calling IABAddress with multiselect mode and To, CC and BCC wells");
MessageBox(NULL, "Calling IAB->Address in multi-select mode with To:, CC: and BCC: wells. You should see 1 entry in each well.",
"WAB Test Harness", MB_OK);
lpAdrParms->ulFlags = ( DIALOG_MODAL );
strcpy(lpszCaptionText, "WABTEST - MultiSelect mode");
strcpy(lpszDestWellsText, "WABTEST - Destination well text");
lpAdrParms->lpszCaption = lpszCaptionText;
lpAdrParms->lpszDestWellsTitle = lpszDestWellsText;
lpAdrParms->cDestFields = 3;
hr = lpAdrBook->Address((ULONG*)&hwnd, lpAdrParms, &lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L2, "IAdrBook->Address call FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "IAdrBook->Address call PASSED");
if (lpAdrList) DisplayAdrList(lpAdrList, lpAdrList->cEntries);
else {
LUIOut(L3, "IAdrBook->Address returned a NULL lpAdrList. No entries were selected.");
}
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
if (MessageBox(NULL, "Did the multi-select UI display correctly?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "Test operator reports the UI did not display correctly. Test FAILED");
retval = FALSE;
goto out;
}
//
// BROWSE MODE - Modal
//
ZeroMemory(lpAdrParms, sizeof(ADRPARM));
NumEntries = 2, NumProps = 2;
AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList);
strcpy(lpszDisplayName, "Abraham Lincoln");
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszDisplayName;
lpAdrList->aEntries[0].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[0].rgPropVals[1].Value.l = MAPI_TO;
strcpy(lpszDisplayName2, "Carl Sagon");
lpAdrList->aEntries[1].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[1].rgPropVals[0].Value.LPSZ = lpszDisplayName2;
lpAdrList->aEntries[1].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[1].rgPropVals[1].Value.l = MAPI_CC;
LUIOut(L2, "Calling IABAddress with browse mode (modal)");
MessageBox(NULL, "Calling IAB->Address in browse mode with the modal flag set.",
"WAB Test Harness", MB_OK);
lpAdrParms->ulFlags = ( DIALOG_MODAL );
strcpy(lpszCaptionText, "WABTEST - Browse mode (modal)");
lpAdrParms->lpszCaption = lpszCaptionText;
lpAdrParms->cDestFields = 0;
hr = lpAdrBook->Address((ULONG*)&hwnd, lpAdrParms, &lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L2, "IAdrBook->Address call FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "IAdrBook->Address call PASSED");
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
if (MessageBox(NULL, "Did the modal, browse UI display correctly?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "Test operator reports the UI did not display correctly. Test FAILED");
retval = FALSE;
goto out;
}
//
// BROWSE MODE - Modeless
//
ZeroMemory(lpAdrParms, sizeof(ADRPARM));
NumEntries = 2, NumProps = 2;
AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList);
strcpy(lpszDisplayName, "Abraham Lincoln");
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszDisplayName;
lpAdrList->aEntries[0].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[0].rgPropVals[1].Value.l = MAPI_TO;
strcpy(lpszDisplayName2, "Carl Sagon");
lpAdrList->aEntries[1].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[1].rgPropVals[0].Value.LPSZ = lpszDisplayName2;
lpAdrList->aEntries[1].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[1].rgPropVals[1].Value.l = MAPI_CC;
LUIOut(L2, "Calling IABAddress with browse mode (modeless)");
MessageBox(NULL, "Calling IAB->Address in browse mode with the SDI (modeless) flag set.",
"WAB Test Harness", MB_OK);
lpAdrParms->ulFlags = ( DIALOG_SDI );
strcpy(lpszCaptionText, "WABTEST - Browse mode (modeless)");
lpAdrParms->lpszCaption = lpszCaptionText;
lpAdrParms->cDestFields = 0;
hr = lpAdrBook->Address((ULONG*)&hwnd, lpAdrParms, &lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L2, "IAdrBook->Address call FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "IAdrBook->Address call PASSED");
//Reset the hwnd as the modeless call returns the hwnd of the modeless dialog
hwnd = glblhwnd;
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
if (MessageBox(NULL, "Did the modeless, browse UI display correctly?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "Test operator reports the UI did not display correctly. Test FAILED");
retval = FALSE;
goto out;
}
//
// SINGLESELECT MODE
//
NumEntries = 1, NumProps = 2;
AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList);
strcpy(lpszDisplayName, "Abraham Lincoln");
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszDisplayName;
lpAdrList->aEntries[0].rgPropVals[1].ulPropTag = PR_RECIPIENT_TYPE;
lpAdrList->aEntries[0].rgPropVals[1].Value.l = MAPI_TO;
LUIOut(L2, "Calling IABAddress with single select mode");
MessageBox(NULL, "Calling IAB->Address in single select mode.",
"WAB Test Harness", MB_OK);
lpAdrParms->ulFlags = ( DIALOG_MODAL | ADDRESS_ONE );
strcpy(lpszCaptionText, "WABTEST - SingleSelect mode");
lpAdrParms->lpszCaption = lpszCaptionText;
lpAdrParms->cDestFields = 0;
hr = lpAdrBook->Address((ULONG*)&hwnd, lpAdrParms, &lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L2, "IAdrBook->Address call FAILED");
retval = FALSE;
goto out;
}
else LUIOut(L3, "IAdrBook->Address call PASSED");
if (lpAdrList) DisplayAdrList(lpAdrList, lpAdrList->cEntries);
else {
LUIOut(L3, "IAdrBook->Address returned a NULL lpAdrList. No entries were selected.");
}
// Free lpAdrList and properties
FreeAdrList(lpWABObject, &lpAdrList);
if (MessageBox(NULL, "Did the single select UI display correctly?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "Test operator reports the UI did not display correctly. Test FAILED");
retval = FALSE;
goto out;
}
out:
FreeAdrList(lpWABObject, &lpAdrList);
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL ThreadStress(LPVOID lpThreadNum) {
HRESULT hr;
LPENTRYLIST lpEntryList=NULL;
LPADRBOOK lpLocalAdrBook;
LPVOID Reserved1 = NULL;
DWORD Reserved2 = 0;
LPWABOBJECT lpLocalWABObject;
BOOL retval = TRUE;
LPSPropValue lpSPropValueAddress = NULL, lpSCompareProps = NULL;
ULONG cValues = 0, cValues2 = 0, cbEidPAB = 0, ulObjType = 0;
LPENTRYID lpEidPAB = NULL;
LPABCONT lpABCont= NULL;
char szDLTag[SML_BUF], *lpszReturnName = NULL, *lpszDisplayName = NULL, **lpszDisplayNames;
char EntryBuf[MAX_BUF];
unsigned int NumEntries, Counter1, Counter2, StrLen1, PropIndex;
LPMAILUSER lpMailUser = NULL;
LPMAPITABLE lpTable = NULL;
LPSRowSet lpRows = NULL;
SRestriction Restriction;
SPropValue* lpPropValue;
SizedSPropTagArray(1, SPTArrayCols) = { 1, {PR_ENTRYID} };
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
WAB_PARAM WP;
LUIOut(L2, "Thread #%i initializing.", *(int *)lpThreadNum);
ZeroMemory((void *)&WP, sizeof(WAB_PARAM));
WP.cbSize=sizeof(WAB_PARAM);
hr = WABOpen(&lpLocalAdrBook, &lpLocalWABObject, &WP, Reserved2);
if (HR_FAILED(hr)) {
LUIOut(L2,"WABOpen Failed");
retval=FALSE;
goto out;
}
//lpWABObject = lpLocalWABObject; //AllocateAdrList expects a global ptr to the WAB obj
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpLocalAdrBook != NULL);
hr = OpenPABID( IN lpLocalAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
retval=FALSE;
goto out;
}
//
// Try to create a MailUser entry in the container
//
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
// Retrieve user info from ini file
lstrcpy(szDLTag,"Address1");
GetPrivateProfileString("CreateEntriesStress",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
NumEntries = GetPrivateProfileInt("CreateEntriesStress","NumCopies",0,INIFILENAME);
//Allocate an array of String pointers to hold the display names
lpszDisplayNames = (char**)LocalAlloc(LMEM_FIXED, NumEntries * sizeof(LPSTR));
lpszDisplayName = (char*)LocalAlloc(LMEM_FIXED, MAX_BUF*sizeof(char));
ParseIniBuffer(IN EntryBuf, IN 1, OUT lpszDisplayName);
StrLen1 = strlen(lpszDisplayName);
sprintf(&(lpszDisplayName[StrLen1]), " [Thread #%i] - ", *(int *)lpThreadNum);
LUIOut(L2, "Thread #%i adding %i entries", *(int *)lpThreadNum, NumEntries);
for (Counter1 = 0; Counter1 < NumEntries; Counter1++) {
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
CreateProps(IN INIFILENAME, IN "Properties", OUT &lpPropValue, OUT &cValues, IN Counter1, IN &lpszDisplayName, OUT &lpszReturnName);
//Allocate space for the display name
lpszDisplayNames[Counter1] = (char*)LocalAlloc(LMEM_FIXED, (strlen(lpszReturnName)+1)*sizeof(char));
//Copy the DisplayName for use later
strcpy(lpszDisplayNames[Counter1], lpszReturnName);
//LUIOut(L2,"MailUser Entry to Add: %s",lpszDisplayName);
hr = lpMailUser->SetProps(IN cValues,
IN lpPropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED for %s properties",lpszReturnName);
retval=FALSE;
goto out;
}
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED with error code 0x%x",hr);
retval=FALSE;
goto out;
}
// Now retrieve all the props and compare to what we expect
hr = lpMailUser->GetProps( IN (LPSPropTagArray) NULL, //Want all props
IN 0, //Flags
OUT &cValues2,
OUT &lpSCompareProps);
if ((HR_FAILED(hr))||(PropError(lpSCompareProps->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
if (!CompareProps(lpPropValue, cValues, lpSCompareProps, cValues2)) {
retval=FALSE;
goto out;
}
//Free the SPropValue for use in the next loop
if (lpPropValue) {
for (unsigned int Prop = 0; Prop < cValues; Prop++) {
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_STRING8) {
if (lpPropValue[Prop].Value.LPSZ) {
LocalFree(lpPropValue[Prop].Value.LPSZ);
lpPropValue[Prop].Value.LPSZ = NULL;
}
}
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_BINARY) {
if (lpPropValue[Prop].Value.bin.lpb) {
LocalFree(lpPropValue[Prop].Value.bin.lpb);
lpPropValue[Prop].Value.bin.lpb = NULL;
}
}
}
LocalFree(lpPropValue);
lpPropValue=NULL;
}
if (lpSCompareProps) {
lpLocalWABObject->FreeBuffer(lpSCompareProps);
lpSCompareProps = NULL;
}
lpMailUser->Release();
lpMailUser = NULL;
}
//LUIOut(L2, "Thread #%i added %i entries with %i properties", *(int *)lpThreadNum, NumEntries, cValues);
if (retval) LUIOut(L2, "Thread #%i compared %i props. No differences found", *(int *)lpThreadNum, cValues);
//
// Verify each entry we added now exists in the WAB and then delete it
//
LUIOut(L2, "Thread #%i verifying and deleting %i entries", *(int *)lpThreadNum, NumEntries);
// Create a contents table to verify each added entry exists in the store
hr = lpABCont->GetContentsTable(ULONG(0), &lpTable);
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->GetContentsTable call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
//else LUIOut(L3,"ABContainer->ResolveNames call PASSED");
// Allocate the SpropValue ptr in the restriction structure
lpLocalWABObject->AllocateBuffer(sizeof(SPropValue), (void**)&(Restriction.res.resProperty.lpProp));
Restriction.res.resProperty.lpProp = (SPropValue*)Restriction.res.resProperty.lpProp;
//Now walk the FlagList and make sure everything resolved, if it did then delete it now
for (Counter2 = 0; Counter2 < NumEntries; Counter2++) {
// Build the restriction structure to pass to lpTable->Restrict
//** For testing the fail case only, stub out for real testing
// lstrcpy(lpszDisplayNames[Counter2], "This should not match");
//**
Restriction.rt = RES_PROPERTY; //Property restriction
Restriction.res.resProperty.relop = RELOP_EQ; //Equals
Restriction.res.resProperty.ulPropTag = PR_DISPLAY_NAME;
Restriction.res.resProperty.lpProp->ulPropTag = PR_DISPLAY_NAME;
Restriction.res.resProperty.lpProp->Value.LPSZ = lpszDisplayNames[Counter2];
hr = lpTable->Restrict(&Restriction, ULONG(0));
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->Restrict call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
hr = lpTable->QueryRows(LONG(1),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED: Entry #%i, returned 0x%x", Counter2, hr);
retval=FALSE;
goto out;
}
if (!lpRows->cRows) {
LUIOut(L2, "QueryRows did not find entry #%i. Test FAILED", Counter2);
retval=FALSE;
goto out;
}
//** For testing purposes only, stub out for real testing
//EnterCriticalSection(&CriticalSection);
//DisplayRows(lpRows);
//LeaveCriticalSection(&CriticalSection);
//**
// Change the EntryID to a LPENTRYLIST
FindPropinRow(&lpRows->aRow[0],
PR_ENTRYID,
&PropIndex);
hr = HrCreateEntryListFromID(lpLocalWABObject,
IN lpRows->aRow[0].lpProps[PropIndex].Value.bin.cb,
IN (ENTRYID*)lpRows->aRow[0].lpProps[PropIndex].Value.bin.lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry %i. DeleteEntry returned 0x%x", Counter2, hr);
FreeEntryList(lpLocalWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeRows(lpLocalWABObject, &lpRows); // Cleanup from first call to queryrows
// Verify the entry was deleted by calling QueryRows again
hr = lpTable->QueryRows(LONG(1),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED: Entry #%i, returned 0x%x", Counter2, hr);
retval=FALSE;
goto out;
}
if (lpRows->cRows) { // Should be 0 if deleted
LUIOut(L2, "Thread #%i: QueryRows found entry #%i even tho it was deleted. Test FAILED", *(int *)lpThreadNum, Counter2);
retval=FALSE;
goto out;
}
//Cleanup
FreeRows(lpLocalWABObject, &lpRows); // Cleanup from second call to queryrows
if (lpEntryList) {
FreeEntryList(lpLocalWABObject, &lpEntryList);
lpEntryList = NULL;
}
LocalFree((HLOCAL)lpszDisplayNames[Counter2]);
lpszDisplayNames[Counter2] = NULL;
}
out:
if (lpszDisplayName) {
LocalFree(lpszDisplayName);
lpszDisplayName = NULL;
}
if (lpPropValue) {
for (unsigned int Prop = 0; Prop < cValues; Prop++) {
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_STRING8) {
if (lpPropValue[Prop].Value.LPSZ) {
LocalFree(lpPropValue[Prop].Value.LPSZ);
lpPropValue[Prop].Value.LPSZ = NULL;
}
}
if (PROP_TYPE(lpPropValue[Prop].ulPropTag) == PT_BINARY) {
if (lpPropValue[Prop].Value.bin.lpb) {
LocalFree(lpPropValue[Prop].Value.bin.lpb);
lpPropValue[Prop].Value.bin.lpb = NULL;
}
}
}
LocalFree(lpPropValue);
lpPropValue=NULL;
}
if (lpEntryList) {
FreeEntryList(lpLocalWABObject, &lpEntryList);
lpEntryList = NULL;
}
if (Restriction.res.resProperty.lpProp) {
lpLocalWABObject->FreeBuffer(Restriction.res.resProperty.lpProp);
Restriction.res.resProperty.lpProp = NULL;
}
if (lpszDisplayNames) {
for (unsigned int FreeCounter = 0; FreeCounter < NumEntries; FreeCounter++) {
if (lpszDisplayNames[FreeCounter]) LocalFree((HLOCAL)lpszDisplayNames[FreeCounter]);
}
LocalFree((HLOCAL)lpszDisplayNames);
}
FreeRows(lpLocalWABObject, &lpRows);
#ifdef PAB
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
#endif
#ifdef WAB
if (lpEidPAB)
lpLocalWABObject->FreeBuffer(lpEidPAB);
if (lpSCompareProps) {
lpLocalWABObject->FreeBuffer(lpSCompareProps);
lpSCompareProps = NULL;
}
if (lpSPropValueAddress)
lpLocalWABObject->FreeBuffer(lpSPropValueAddress);
#endif
if (lpTable)
lpTable->Release();
if (lpMailUser)
lpMailUser->Release();
if (lpABCont)
lpABCont->Release();
if (lpLocalAdrBook)
lpLocalAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpLocalWABObject)
lpLocalWABObject->Release();
#endif
return(retval);
}
BOOL ThreadManager()
{
int NumReps, NumThreads, Counter1, Counter2, Counter3;
BOOL retval = TRUE;
HANDLE *lpThreads; //ptr to Array of thread handles
int * lpThreadParams; //ptr to Array of params passed to threads
DWORD ThreadId; //Don't care about thread IDs so it gets overwritten each time
DWORD ThreadRetVal;
// how many reps and threads
// Retrieve user info from ini file
InitializeCriticalSection(&CriticalSection);
NumReps = GetPrivateProfileInt("CreateEntriesStress","NumReps",1,INIFILENAME);
NumThreads = GetPrivateProfileInt("CreateEntriesStress","NumThreads",3,INIFILENAME);
LUIOut(L1, "ThreadManager: Preparing to run %i repititions with %i threads each",
NumReps, NumThreads);
// allocate lpThreads for NumThreads
lpThreads = (HANDLE*)LocalAlloc(LMEM_FIXED, NumThreads * sizeof(HANDLE));
lpThreadParams = (int*)LocalAlloc(LMEM_FIXED, NumThreads * sizeof(int));
if (lpThreads) {
for (Counter1 = 0; ((Counter1 < NumReps) || ((NumReps == 0) && (!glblStop))) && retval; Counter1++) {
for (Counter2 = 0; (Counter2 < NumThreads); Counter2++) {
lpThreadParams[Counter2] = Counter2;
lpThreads[Counter2] = CreateThread(
(LPSECURITY_ATTRIBUTES) NULL, // pointer to thread security attributes
(DWORD) 0, // initial thread stack size, in bytes
(LPTHREAD_START_ROUTINE) ThreadStress, // pointer to thread function
(LPVOID) &(lpThreadParams[Counter2]), // argument for new thread
(DWORD) 0, // creation flags
(LPDWORD) &ThreadId // pointer to returned thread identifier
);
if (!lpThreads[Counter2]) {
LUIOut(L1, "<ERROR> ThreadManager: Unable to create one of the helper threads");
retval = FALSE;
break; //We're outta here, just go on to cleanup the threads that launched
}
}
//Threads are off and running at this point
//Wait till they complete, collect retvals and cleanup
WaitForMultipleObjects(
(DWORD) (Counter2), // number of handles in handle array or
// partial if not all threads made it
lpThreads, // address of object-handle array
TRUE, // wait flag - TRUE = wait for all threads
INFINITE // time-out interval in milliseconds
);
//Check each thread for errors and then free the handles
for (Counter3 = 0; Counter3 < Counter2; Counter3++) {
GetExitCodeThread(
(HANDLE) lpThreads[Counter3], // handle to the thread
(LPDWORD) &ThreadRetVal // address to receive termination status
);
if (!(ThreadRetVal)) retval = FALSE;
CloseHandle(lpThreads[Counter3]);
}
}
DeleteCriticalSection(&CriticalSection);
LocalFree((HLOCAL)lpThreadParams);
LocalFree((HLOCAL)lpThreads);
}
else {
LUIOut(L1, "<ERROR> ThreadManager: Couldn't allocate the thread handle array.");
//Tell the app that ThreadManager has finished and pass back the return value in
//the HIWORD of the wParam - since we know it failed at this point, no need to
//stuff the HIWORD since it's already zero.
PostMessage(glblhwnd, WM_COMMAND, (WPARAM)ID_MULTITHREADCOMPLETE, (LPARAM)0);
return(FALSE);
}
//Tell the app that ThreadManager has finished and pass back the return value in
//the HIWORD of the wParam
PostMessage(glblhwnd, WM_COMMAND,
(WPARAM)(ID_MULTITHREADCOMPLETE | (retval << 16)), (LPARAM)0);
return(retval);
}
BOOL PAB_AddMultipleEntries()
{
//DWORD nCells, counter;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont= NULL;
LPABCONT lpPABCont= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
char EntProp[10][BIG_BUF]; //MAX_PROP
ULONG cValues = 0, cValues2 = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int i=0,k=0;
char EntryBuf[MAX_BUF];
char szDLTag[SML_BUF];
unsigned int NumEntries, counter, StrLen;
LPMAILUSER lpMailUser=NULL,lpDistList=NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_AddMultipleEntries");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
// hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Try to create a MailUser entry in the container
//
LUIOut(L2, "Creating a Mail User in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_MAILUSER property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
// Retrieve user info from ini file
cValues = 3; //# of props we are setting
lstrcpy(szDLTag,"Address1");
GetPrivateProfileString("CreateEntriesStress",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
StrLen = (strlen(EntProp[0]));
_itoa(0,(char*)&EntProp[0][StrLen],10);
EntProp[0][StrLen+1]= '\0';
NumEntries = GetPrivateProfileInt("CreateEntriesStress","NumCopies",0,INIFILENAME);
for (counter = 0; counter < NumEntries; counter++) {
// LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
PropValue[1].ulPropTag = PR_ADDRTYPE;
PropValue[2].ulPropTag = PR_EMAIL_ADDRESS;
_itoa(counter,(char*)&EntProp[0][StrLen],10);
LUIOut(L2,"MailUser Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpMailUser->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
// else LUIOut(L3,"MailUser->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
// else LUIOut(L3,"MailUser->SaveChanges PASSED, entry added to PAB/WAB");
if (lpMailUser) {
lpMailUser->Release();
lpMailUser = NULL;
}
}
#ifdef DISTLIST
//
// Try to create a DL entry in the container
//
LUIOut(L2, "Creating a Distribution List in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_DL property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_DL
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default DL template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which one can pass to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueDL->Value.bin.cb,
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpDistList);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
lstrcpy(szDLTag,"Name1");
GetPrivateProfileString("CreatePDL",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
LUIOut(L2,"DistList Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpDistList->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
hr = lpDistList->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SaveChanges FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SaveChanges PASSED, entry added to PAB/WAB");
#endif DISTLIST
out:
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
if (lpMailUser)
lpMailUser->Release();
if (lpDistList)
lpDistList->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpABCont)
lpABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IABResolveName()
{
//DWORD nCells, counter;
char lpTitleText[64];
BOOL Found = FALSE;
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
unsigned int i = 0, idx = 0, cMaxProps =0, cEntries = 0;
ENTRYLIST* lpEntryList;
char lpszMatch[MAXSTRING], lpszNoMatch[MAXSTRING], lpszOneOff[MAXSTRING], lpszOneOff2[MAXSTRING];
char lpszMatchDisplayName[MAXSTRING], lpszMatchAddrType[MAXSTRING], lpszMatchEmailAddress[MAXSTRING];
char lpszOneOff2DisplayName[MAXSTRING], lpszOneOff2EmailAddress[MAXSTRING];
char lpszOneOffDisplayName[MAXSTRING], lpszOneOffEmailAddress[MAXSTRING];
LPADRLIST lpAdrList = NULL;
ULONG rgFlagList[2];
LPFlagList lpFlagList = (LPFlagList)rgFlagList;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont = NULL;
LPABCONT lpDLCont = NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL, lpLookupEID=NULL;
ULONG cbLookupEID, cValues = 0, cValues2 = 0, ulObjType=NULL;
int k=0, NumEntries, NumProps;
LPMAILUSER lpMailUser=NULL,lpDistList=NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
SizedSPropTagArray(2, SPTArrayCols) = { 2, {PR_DISPLAY_NAME, PR_ENTRYID } };
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueMailUser = NULL;
LPSPropValue lpSPropValueDistList = NULL;
LPSPropValue lpSPropValueEntryID = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
SizedSPropTagArray(1,SPTArrayDisplayName) = {1, {PR_DISPLAY_NAME} };
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IABResolveName");
LUIOut(L2,"-> Verifies IAdrBook->ResolveNames is functional by performing the following:");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a MailUser PR_DISPLAY_NAME using a test string, and checks...");
LUIOut(L2, " # Verifies the resolve UI is displayed when it should be by asking the test operator.");
LUIOut(L2, " # The return code from ResolveNames (called with a PropertyTagArray containing PR_DISPLAY_NAME and PR_ENTRY_ID)");
LUIOut(L2, " # Walks the returned lpAdrList and checks each PropertyTagArray for PR_DISPLAY_NAME and then compares the ");
LUIOut(L2, " string to the original test string.");
LUIOut(L2, " # Walks the returned lpAdrList and verifies that an EntryID exists in each PropertyTagArray");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L2, " Calls SetProps followed by SaveChanges on a DistList PR_DISPLAY_NAME using a test string, and checks...");
LUIOut(L2, " # Verifies the resolve UI is displayed when it should be by asking the test operator.");
LUIOut(L2, " # The return code from ResolveNames (called with a PropertyTagArray containing PR_DISPLAY_NAME and PR_ENTRY_ID)");
LUIOut(L2, " # Walks the returned lpAdrList and checks each PropertyTagArray for PR_DISPLAY_NAME and then compares the ");
LUIOut(L2, " string to the original test string.");
LUIOut(L2, " # Walks the returned lpAdrList and verifies that an EntryID exists in each PropertyTagArray");
// LUIOut(L2, " # Verifies that the display name returned from GetProps is what we set");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Try to create a MailUser entry in the container
//
LUIOut(L2, "Creating a Mail User in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_MAILUSER property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_MAILUSER
assert(lpABCont != NULL);
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for Default MailUser template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which can be passed to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueAddress->Value.bin.cb,
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpMailUser);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
// Read in the ini file strings to resolve against
// Only adding 1 entry for the first ResName in the ini file
// but will attempt to resolve all ResNames in the multientry resolve case
GetPrivateProfileString("ResolveName","ResName1","no ini found",lpszMatch,MAXSTRING,INIFILENAME);
GetPrivateProfileString("ResolveName","NonExistentName","no ini found",lpszNoMatch,MAXSTRING,INIFILENAME);
GetPrivateProfileString("ResolveName","OneOffAddress","no ini found",lpszOneOff,MAXSTRING,INIFILENAME);
GetPrivateProfileString("ResolveName","OneOffAddress2","no ini found",lpszOneOff2,MAXSTRING,INIFILENAME);
ParseIniBuffer(lpszMatch, 1, lpszMatchDisplayName);
ParseIniBuffer(lpszMatch, 2, lpszMatchAddrType);
ParseIniBuffer(lpszMatch, 3, lpszMatchEmailAddress);
ParseIniBuffer(lpszOneOff2, 1, lpszOneOff2DisplayName);
ParseIniBuffer(lpszOneOff2, 3, lpszOneOff2EmailAddress);
ParseIniBuffer(lpszOneOff, 1, lpszOneOffDisplayName);
ParseIniBuffer(lpszOneOff, 3, lpszOneOffEmailAddress);
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
PropValue[1].ulPropTag = PR_ADDRTYPE;
PropValue[2].ulPropTag = PR_EMAIL_ADDRESS;
PropValue[0].Value.LPSZ = lpszMatchDisplayName;
PropValue[1].Value.LPSZ = lpszMatchAddrType;
PropValue[2].Value.LPSZ = lpszMatchEmailAddress;
/*
cValues = 3; //# of props we are setting
GetPropsFromIniBufEntry(lpszMatch,cValues,EntProp);
//lstrcpy((LPTSTR)EntProp[0], lpszMatch);
LUIOut(L2,"MailUser Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
*/
LUIOut(L2,"MailUser Entry to Add: %s",PropValue[0].Value.LPSZ);
hr = lpMailUser->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
hr = lpMailUser->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"MailUser->SaveChanges FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"MailUser->SaveChanges PASSED, entry added to PAB/WAB");
//
// Call ResolveName on the entry we just added which will be an exact match,
// not display the UI and return a valid EID
//
// Allocate an AdrList for NumEntries of NumProps
NumEntries = 1; // How many AdrEntries
NumProps = 1; // How many props for each entry
if (!AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList)) {
LUIOut(L2, "Couldn't allocate AdrList. Test FAILED");
retval = FALSE;
goto out;
}
// Fill in the properties we want
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszMatchDisplayName;
LUIOut(L2, "Calling IAdrBook->ResolveName with an exact match. Expect no UI and success.");
MessageBox(NULL, "Calling IAB->ResolveName on the entry that was just added. Since this will be an exact match, you should not see the resolve dialog box.",
"WAB Test Harness", MB_OK);
strcpy(lpTitleText, "IAdrBook->ResolveName Test");
hr = lpAdrBook->ResolveName((ULONG)glblhwnd,
MAPI_DIALOG, // ulFlags
lpTitleText,
lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L3,"IAdrBook->ResolveName call FAILED");
if (hr == MAPI_E_AMBIGUOUS_RECIP)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_AMBIGUOUS_RECIP");
else if (hr == MAPI_E_NOT_FOUND)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_NOT_FOUND");
else if (hr == MAPI_E_USER_CANCEL)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_USER_CANCEL");
else
LUIOut(L3, "IAdrBook->ResolveName returned UNKNOWN result code");
retval=FALSE;
goto out;
}
else LUIOut(L3,"IAdrBook->ResolveName call PASSED");
if (MessageBox(NULL, "Did you see the ResolveName dialog box appear?",
"WAB Test Harness", MB_YESNO) == IDYES) {
LUIOut(L3, "IABResolveName dialog displayed even tho we had an exact match. Test FAILED");
retval = FALSE;
goto out;
}
// Search through returned AdrList and verify each entry is resolved correctly
if (!VerifyResolvedAdrList(lpAdrList, NULL)) retval = FALSE;
// Store EID for multiple entry test case later on which needs a valid EID
//lpLookupEID = (ENTRYID*)lpAdrList->aEntries[0].rgPropVals[idx].Value.bin.lpb;
//cbLookupEID = lpAdrList->aEntries[0].rgPropVals[idx].Value.bin.cb;
lpLookupEID = (ENTRYID*)NULL;
cbLookupEID = 0;
// Cleanup
FreeAdrList(lpWABObject, &lpAdrList);
//
// Call ResolveName on a OneOff Address which should succede with
// no UI and return a valid EID. One off has a foo@com type DN and no email address
//
// Allocate an AdrList for NumEntries of NumProps
NumEntries = 1; // How many AdrEntries
NumProps = 1; // How many props for each entry
if (!AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList)) {
LUIOut(L2, "Couldn't allocate AdrList. Test FAILED");
retval = FALSE;
goto out;
}
// Fill in the properties we want
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszOneOff;
LUIOut(L2, "Calling IAdrBook->ResolveName with a one-off address (DN = foo@com type and no email addr). Expect no UI and success.");
MessageBox(NULL, "Calling IAB->ResolveName on a one-off address. Since this will be an exact match, you should not see the resolve dialog box.",
"WAB Test Harness", MB_OK);
strcpy(lpTitleText, "IAdrBook->ResolveName Test");
hr = lpAdrBook->ResolveName((ULONG)glblhwnd,
MAPI_DIALOG, // ulFlags
lpTitleText,
lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L3,"IAdrBook->ResolveName call FAILED");
if (hr == MAPI_E_AMBIGUOUS_RECIP)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_AMBIGUOUS_RECIP");
else if (hr == MAPI_E_NOT_FOUND)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_NOT_FOUND");
else if (hr == MAPI_E_USER_CANCEL)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_USER_CANCEL");
else
LUIOut(L3, "IAdrBook->ResolveName returned UNKNOWN result code");
retval=FALSE;
goto out;
}
else LUIOut(L3,"IAdrBook->ResolveName call PASSED");
if (MessageBox(NULL, "Did you see the ResolveName dialog box appear?",
"WAB Test Harness", MB_YESNO) == IDYES) {
LUIOut(L3, "IABResolveName dialog displayed even tho we had an exact match. Test FAILED");
retval = FALSE;
goto out;
}
if (!VerifyResolvedAdrList(lpAdrList, NULL)) retval = FALSE;
FreeAdrList(lpWABObject, &lpAdrList);
//
// Call ResolveName on a OneOff Address which should succede with
// no UI and return a valid EID. One off has a DN of foo and an email address
// of type foo@com
//
// Allocate an AdrList for NumEntries of NumProps
NumEntries = 1; // How many AdrEntries
NumProps = 2; // How many props for each entry
if (!AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList)) {
LUIOut(L2, "Couldn't allocate AdrList. Test FAILED");
retval = FALSE;
goto out;
}
// Fill in the properties we want
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszOneOff2DisplayName;
lpAdrList->aEntries[0].rgPropVals[1].ulPropTag = PR_EMAIL_ADDRESS;
lpAdrList->aEntries[0].rgPropVals[1].Value.LPSZ = lpszOneOff2EmailAddress;
LUIOut(L2, "Calling IAdrBook->ResolveName with a one-off address (DN = foo, email addr = foo@...). Expect no UI and success.");
MessageBox(NULL, "Calling IAB->ResolveName on a second type of one-off address (DN = foo, EMail = foo@com type). Since this will be an exact match, you should not see the resolve dialog box.",
"WAB Test Harness", MB_OK);
strcpy(lpTitleText, "IAdrBook->ResolveName Test");
hr = lpAdrBook->ResolveName((ULONG)glblhwnd,
MAPI_DIALOG, // ulFlags
lpTitleText,
lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L3,"IAdrBook->ResolveName call FAILED");
if (hr == MAPI_E_AMBIGUOUS_RECIP)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_AMBIGUOUS_RECIP");
else if (hr == MAPI_E_NOT_FOUND)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_NOT_FOUND");
else if (hr == MAPI_E_USER_CANCEL)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_USER_CANCEL");
else
LUIOut(L3, "IAdrBook->ResolveName returned UNKNOWN result code");
retval=FALSE;
goto out;
}
else LUIOut(L3,"IAdrBook->ResolveName call PASSED");
if (MessageBox(NULL, "Did you see the ResolveName dialog box appear?",
"WAB Test Harness", MB_YESNO) == IDYES) {
LUIOut(L3, "IABResolveName dialog displayed even tho we had an exact match. Test FAILED");
retval = FALSE;
goto out;
}
if (!VerifyResolvedAdrList(lpAdrList, NULL)) retval = FALSE;
FreeAdrList(lpWABObject, &lpAdrList);
//
// Call ResolveName on an entry we don't expect to match exactly
// Should bring up the resolve UI. Have the user select an entry and
// then check for success
//
// Allocate an AdrList for NumEntries of NumProps
NumEntries = 1; // How many AdrEntries
NumProps = 1; // How many props for each entry
if (!AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList)) {
LUIOut(L2, "Couldn't allocate AdrList. Test FAILED");
retval = FALSE;
goto out;
}
// Fill in the properties we want
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszNoMatch;
LUIOut(L2, "Calling IAdrBook->ResolveName with a non-exact match. Expect to see UI and success (user presses OK).");
MessageBox(NULL, "Calling IAB->ResolveName on 'No such name' which should not match. This should cause the resolve dialog box to display. Please select any entry from the ListBox and press the OK button",
"WAB Test Harness", MB_OK);
strcpy(lpTitleText, "IAdrBook->ResolveName Test");
hr = lpAdrBook->ResolveName((ULONG)glblhwnd,
MAPI_DIALOG, // ulFlags
lpTitleText,
lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L3,"IAdrBook->ResolveName call FAILED");
if (hr == MAPI_E_AMBIGUOUS_RECIP)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_AMBIGUOUS_RECIP");
else if (hr == MAPI_E_NOT_FOUND)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_NOT_FOUND");
else if (hr == MAPI_E_USER_CANCEL)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_USER_CANCEL");
else
LUIOut(L3, "IAdrBook->ResolveName returned UNKNOWN result code");
retval=FALSE;
goto out;
}
else LUIOut(L3,"IAdrBook->ResolveName call PASSED");
if (MessageBox(NULL, "Did you see the ResolveName dialog box appear?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "IABResolveName dialog did not display even tho we did not have an exact match. Test FAILED");
retval = FALSE;
goto out;
}
if (!VerifyResolvedAdrList(lpAdrList, NULL)) retval = FALSE;
FreeAdrList(lpWABObject, &lpAdrList);
//
// Call ResolveName on an entry we don't expect to match exactly
// Should bring up the resolve UI. Have the user cancel from the UI
// then check for MAPI_E_USER_CANCEL
//
// Allocate an AdrList for NumEntries of NumProps
NumEntries = 1; // How many AdrEntries
NumProps = 1; // How many props for each entry
if (!AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList)) {
LUIOut(L2, "Couldn't allocate AdrList. Test FAILED");
retval = FALSE;
goto out;
}
// Fill in the properties we want
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszNoMatch;
LUIOut(L2, "Calling IAdrBook->ResolveName with a non-exact match. Expect to see UI and MAPI_E_USER_CANCEL (user presses CANCEL).");
MessageBox(NULL, "Calling IAB->ResolveName on 'No such name' which should not match. This should cause the resolve dialog box to display. When the ListBox is displayed, please press the CANCEL button",
"WAB Test Harness", MB_OK);
strcpy(lpTitleText, "IAdrBook->ResolveName Test");
hr = lpAdrBook->ResolveName(
(ULONG)glblhwnd,
MAPI_DIALOG, // ulFlags
lpTitleText,
lpAdrList);
if (hr == MAPI_E_USER_CANCEL) {
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_USER_CANCEL");
LUIOut(L3,"IAdrBook->ResolveName call PASSED");
}
else if (hr == MAPI_E_AMBIGUOUS_RECIP) {
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_AMBIGUOUS_RECIP");
LUIOut(L3,"IAdrBook->ResolveName call FAILED");
retval=FALSE;
goto out;
}
else if (hr == MAPI_E_NOT_FOUND) {
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_NOT_FOUND");
LUIOut(L3,"IAdrBook->ResolveName call FAILED");
retval=FALSE;
goto out;
}
else {
LUIOut(L3, "IAdrBook->ResolveName returned UNKNOWN result code");
LUIOut(L3,"IAdrBook->ResolveName call FAILED");
retval=FALSE;
goto out;
}
if (MessageBox(NULL, "Did you see the ResolveName dialog box appear?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "IABResolveName dialog did not display even tho we did not have an exact match. Test FAILED");
retval = FALSE;
goto out;
}
// Don't want to track the success of verify for this case
VerifyResolvedAdrList(lpAdrList, NULL);
FreeAdrList(lpWABObject, &lpAdrList);
//
// Call ResolveName on 4 entries as follows:
// * Entry with a non-zero EID prop -> already resolved so no UI
// * One-off entry with NULL EID -> will resolve but not bring up UI
// * non-exact match with NULL EID -> Will resolve and bring up UI
// * exact match with NULL EID -> Will resolve but not bring up UI
//
// When the UI is presented to the user, they should select a valid
// entry and press OK. VerifyAdrList is expected to succede.
//
// Allocate an AdrList for NumEntries of NumProps
NumEntries = 2; // How many AdrEntries
NumProps = 1; // How many props for each entry
if (!AllocateAdrList(lpWABObject, NumEntries, NumProps, &lpAdrList)) {
LUIOut(L2, "Couldn't allocate AdrList. Test FAILED");
retval = FALSE;
goto out;
}
// [ENTRY #1] - Exact match pre-resolve
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszMatchDisplayName;
// [ENTRY #2] - One-off pre-resolve
lpAdrList->aEntries[1].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[1].rgPropVals[0].Value.LPSZ = lpszOneOffDisplayName;
// Pre-resolve these entries
strcpy(lpTitleText, "IAdrBook->ResolveName Test");
hr = lpAdrBook->ResolveName((ULONG)glblhwnd,
(ULONG)0, // want no UI this time
lpTitleText,
lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L3,"PRE-RESOLVE FAILED: IAdrBook->ResolveName call FAILED");
if (hr == MAPI_E_AMBIGUOUS_RECIP)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_AMBIGUOUS_RECIP");
else if (hr == MAPI_E_NOT_FOUND)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_NOT_FOUND");
else if (hr == MAPI_E_USER_CANCEL)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_USER_CANCEL");
else
LUIOut(L3, "IAdrBook->ResolveName returned UNKNOWN result code");
retval=FALSE;
goto out;
}
// Allocate the final AdrList for NumEntries of NumProps
NumEntries = 5; // How many AdrEntries
NumProps = 2; // How many props for each new entry
if (!GrowAdrList(NumEntries, NumProps, &lpAdrList)) {
LUIOut(L2, "Couldn't grow AdrList. Test FAILED");
retval = FALSE;
goto out;
}
// [ENTRY #3] - Non-exact match not resolved
lpAdrList->aEntries[2].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[2].rgPropVals[0].Value.LPSZ = lpszNoMatch;
lpAdrList->aEntries[2].rgPropVals[1].ulPropTag = PR_NULL;
// [ENTRY #4] - Exact match not resolved
lpAdrList->aEntries[3].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[3].rgPropVals[0].Value.LPSZ = lpszMatchDisplayName;
lpAdrList->aEntries[3].rgPropVals[1].ulPropTag = PR_NULL;
// [ENTRY #5] - one-off type 2 (dispname and email addr) not resolved
// Fill in the properties we want
//PropValue[0].ulPropTag = PR_DISPLAY_NAME;
//PropValue[1].ulPropTag = PR_ADDRTYPE;
//PropValue[2].ulPropTag = PR_EMAIL_ADDRESS;
lpAdrList->aEntries[4].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[4].rgPropVals[0].Value.LPSZ = lpszOneOff2DisplayName;
lpAdrList->aEntries[4].rgPropVals[1].ulPropTag = PR_EMAIL_ADDRESS;
lpAdrList->aEntries[4].rgPropVals[1].Value.LPSZ = lpszOneOff2EmailAddress;
LUIOut(L2, "Calling IAdrBook->ResolveName with 5 Entries. Expect to see UI once and success (user presses OK).");
MessageBox(NULL, "Calling IAB->ResolveName with multiple entries. This should cause the resolve dialog box to display only once. Please select any entry from the ListBox and press the OK button",
"WAB Test Harness", MB_OK);
strcpy(lpTitleText, "IAdrBook->ResolveName Test");
hr = lpAdrBook->ResolveName((ULONG)glblhwnd,
MAPI_DIALOG, // ulFlags
lpTitleText,
lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(L3,"IAdrBook->ResolveName call FAILED");
if (hr == MAPI_E_AMBIGUOUS_RECIP)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_AMBIGUOUS_RECIP");
else if (hr == MAPI_E_NOT_FOUND)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_NOT_FOUND");
else if (hr == MAPI_E_USER_CANCEL)
LUIOut(L3, "IAdrBook->ResolveName returned MAPI_E_USER_CANCEL");
else
LUIOut(L3, "IAdrBook->ResolveName returned UNKNOWN result code");
retval=FALSE;
goto out;
}
else LUIOut(L3,"IAdrBook->ResolveName call PASSED");
if (MessageBox(NULL, "Did you see the ResolveName dialog box appear?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "IABResolveName dialog did not display even tho we did not have an exact match. Test FAILED");
retval = FALSE;
goto out;
}
if (!VerifyResolvedAdrList(lpAdrList, NULL)) retval = FALSE;
// Now delete the entry from the wab
hr = lpMailUser->GetProps( IN (LPSPropTagArray) &SPTArrayEntryID,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag, cValues))) {
LUIOut(L3,"GetProps FAILED for MailUser");
retval=FALSE;
goto out;
}
hr = HrCreateEntryListFromID(lpWABObject,
IN lpSPropValueEntryID->Value.bin.cb,
IN (ENTRYID*)lpSPropValueEntryID->Value.bin.lpb,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeEntryList(lpWABObject, &lpEntryList);
FreeAdrList(lpWABObject, &lpAdrList);
#ifdef DISTLIST
//
// Try to create a DL entry in the container
//
LUIOut(L2, "Creating a Distribution List in the container");
LUIOut(L3, "Calling GetProps on the container with the PR_DEF_CREATE_DL property");
// Need to get the template ID so we call GetProps with PR_DEF_CREATE_DL
hr = lpABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default DL template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which one can pass to CreateEntry
//
LUIOut(L3, "Calling IABContainer->CreateEntry with the EID from GetProps");
hr = lpABCont->CreateEntry( IN lpSPropValueDL->Value.bin.cb,
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb,
IN 0,
OUT (LPMAPIPROP *) &lpDistList);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
lstrcpy((LPTSTR)EntProp[0], lpszInput2);
LUIOut(L2,"DistList Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpDistList->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SetProps call FAILED for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SetProps call PASSED for %s properties",PropValue[0].Value.LPSZ);
hr = lpDistList->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"DistList->SaveChanges FAILED");
retval=FALSE;
goto out;
}
else LUIOut(L3,"DistList->SaveChanges PASSED, entry added to PAB/WAB");
//
// Do a ResolveNames on the string
//
LUIOut(L2, "Retrieving the entry and verifying against what we tried to save.");
// use WAB Allocators here
#ifdef PAB
if (! (sc = MAPIAllocateBuffer(sizeof(ADRLIST) + sizeof(ADRENTRY), (void **)&lpAdrList))) {
#endif //PAB
#ifdef WAB
if (! (sc = lpWABObject->AllocateBuffer(sizeof(ADRLIST) + sizeof(ADRENTRY), (void **)&lpAdrList))) {
#endif //WAB
lpAdrList->cEntries = 1;
lpAdrList->aEntries[0].ulReserved1 = 0;
lpAdrList->aEntries[0].cValues = 1;
#ifdef PAB
if (! (sc = MAPIAllocateMore(sizeof(SPropValue), lpAdrList,
(void **)&lpAdrList->aEntries[0].rgPropVals))) {
#endif //WAB
#ifdef WAB
if (! (sc = lpWABObject->AllocateMore(sizeof(SPropValue), lpAdrList,
(void **)&lpAdrList->aEntries[0].rgPropVals))) {
#endif //WAB
lpAdrList->aEntries[0].rgPropVals[0].ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals[0].Value.LPSZ = lpszInput2;
lpFlagList->cFlags = 1;
lpFlagList->ulFlag[0] = MAPI_UNRESOLVED;
hr = lpABCont->ResolveNames(
(LPSPropTagArray)&SPTArrayCols, // tag set for disp_name and eid
0, // ulFlags
lpAdrList,
lpFlagList);
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->ResolveNames call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
else LUIOut(L3,"ABContainer->ResolveNames call PASSED");
Found = FALSE;
// Search through returned AdrList for our entry
for(i=0; ((i<(int) lpAdrList->cEntries) && (!Found)); ++i) {
cMaxProps = (int)lpAdrList->aEntries[i].cValues;
//Check to see if Display Name exists
idx=0;
while((lpAdrList->aEntries[i].rgPropVals[idx].ulPropTag != PR_DISPLAY_NAME )
&& retval) {
idx++;
if(idx == cMaxProps) {
LUIOut(L4, "PR_DISPLAY_NAME was not found in the lpAdrList");
retval = FALSE;
}
}
LUIOut(L4,"Display Name: %s",lpAdrList->aEntries[i].rgPropVals[idx].Value.LPSZ);
if (!lstrcmp(lpAdrList->aEntries[i].rgPropVals[idx].Value.LPSZ,lpszInput2)) {
LUIOut(L3, "Found the entry we just added");
Found = TRUE;
}
//Check to see if EntryID exists
LUIOut(L3, "Verifying a PR_ENTRYID entry exists in the PropertyTagArray");
idx=0;
while((lpAdrList->aEntries[i].rgPropVals[idx].ulPropTag != PR_ENTRYID )
&& retval) {
idx++;
if(idx == cMaxProps) {
LUIOut(L4, "PR_ENTRYID was not found in the lpAdrList");
retval = FALSE;
}
}
if (!Found) LUIOut(L3, "Did not find the entry. Test FAILED");
if (idx < cMaxProps) LUIOut(L3, "EntryID found");
if (!(retval && Found)) retval = FALSE;
else {
// Store EID for call to OpenEntry
}
}
}
#ifdef PAB
MAPIFreeBuffer(lpAdrList);
#endif //PAB
#ifdef WAB
lpWABObject->FreeBuffer(lpAdrList);
#endif //WAB
}
#endif //DISTLIST
out:
FreeAdrList(lpWABObject, &lpAdrList);
#ifdef PAB
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
#endif
#ifdef WAB
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
lpWABObject->FreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
lpWABObject->FreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
lpWABObject->FreeBuffer(lpSPropValueDL);
#endif
if (lpMailUser)
lpMailUser->Release();
if (lpDistList)
lpDistList->Release();
if (lpABCont)
lpABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return retval;
}
BOOL PAB_IABNewEntry_Details()
{
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpABCont= NULL;
ULONG cbEidPAB = 0, cbEid = 0;
LPENTRYID lpEidPAB = NULL, lpEid = NULL;
ULONG ulObjType=NULL;
HRESULT hr = hrSuccess;
int retval=TRUE;
ULONG UIParam = (ULONG)glblhwnd;
LUIOut(L1," ");
LUIOut(L1,"Running PAB_IABNewEntry//Details");
LUIOut(L2,"-> Verifies IAdrBook->NewEntry and Details are functional by performing the following:");
LUIOut(L2, " Calls NewEntry and then passes the returned EID to Details");
LUIOut(L1," ");
if (!GetAB(OUT &lpAdrBook)) {
retval = FALSE;
goto out;
}
// Call IAddrBook::OpenEntry to get the root container to PAB - MAPI
assert(lpAdrBook != NULL);
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->OpenEntry Failed");
retval=FALSE;
goto out;
}
//
// Bringing up the NewEntry UI
//
LUIOut(L2, "Calling NewEntry");
assert(lpABCont != NULL);
MessageBox(NULL, "Calling IAB->NewEntry, which will bring up the property panes for creating a new WAB entry. Fill in as many fields as possible and press the OK button",
"WAB Test Harness", MB_OK);
hr = lpAdrBook->NewEntry(
IN (ULONG)glblhwnd,
IN 0, //ulFlags - reserved, must be zero
IN cbEidPAB,
IN lpEidPAB,
IN 0, //cbEIDNewEntryTpl - not supported by WAB, must be zero
IN NULL, //lpEIDNewEntryTpl - not supported by WAB, must be zero
OUT &cbEid,
OUT &lpEid);
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->NewEntry Failed");
retval=FALSE;
goto out;
}
MessageBox(NULL, "Calling IAB->Details, which will bring up the property panes for the WAB entry you just created. Please verify the values of the fields are as expected and press the OK button",
"WAB Test Harness", MB_OK);
hr = lpAdrBook->Details(
&UIParam,
IN NULL, //lpfnDismiss - must be NULL for tier1 WAB
IN 0, //lpvDismissContext
IN cbEid,
IN lpEid,
IN NULL, //lpfButtonCallback - not supported in WAB, must be NULL
IN NULL, //lpvButtonContext - not supported in WAB, must be NULL
IN NULL, //lpszButtonText - not supported in WAB, must be NULL
IN 0); //ulFlags - not supported in WAB, must be zero
if (HR_FAILED(hr)) {
LUIOut(L2,"IAddrBook->Details Failed");
retval=FALSE;
goto out;
}
if (MessageBox(NULL, "Did the new entry get added/displayed properly?",
"WAB Test Harness", MB_YESNO) == IDNO) {
LUIOut(L3, "User ansered No to the pass-test message box. Test FAILED");
retval = FALSE;
goto out;
}
out:
#ifdef PAB
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
#endif
#ifdef WAB
if (lpEid)
lpWABObject->FreeBuffer(lpEid);
if (lpEidPAB)
lpWABObject->FreeBuffer(lpEidPAB);
#endif
if (lpABCont)
lpABCont->Release();
if (lpAdrBook)
lpAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpWABObject)
lpWABObject->Release();
#endif
return(retval);
}
BOOL Performance()
{
HRESULT hr;
int retval=TRUE;
DWORD StartTime, StopTime, Elapsed;
LPVOID Reserved1 = NULL;
DWORD Reserved2 = 0;
LPADRBOOK lpLocalAdrBook;
LPABCONT lpABCont= NULL;
ULONG cbEidPAB = 0;
LPENTRYID lpEidPAB = NULL;
LPMAPITABLE lpTable = NULL;
LPSRowSet lpRows = NULL;
LPWABOBJECT lpLocalWABObject;
ENTRYLIST EntryList,*lpEntryList = &EntryList;
ULONG cValues = 0, ulObjType=NULL;
int i=0,k=0;
unsigned int NumEntries;
DWORD PerfData;
WAB_PARAM WP;
LUIOut(L1, "WAB Performance Suite");
NumEntries = 20;
LUIOut(L1, " ");
LUIOut(L2, "Running performance data for %u entries.", NumEntries);
DeleteWABFile();
CreateMultipleEntries(NumEntries,&PerfData);
LUIOut(L2, "** Time for SaveChanges (Avg. per entry) = %u milliseconds", PerfData);
hr = WABOpen(&lpLocalAdrBook, &lpLocalWABObject, &WP, Reserved2);
if (HR_FAILED(hr)) {
LUIOut(L2,"WABOpen Failed");
retval=FALSE;
goto out;
}
assert(lpLocalAdrBook != NULL);
hr = OpenPABID( IN lpLocalAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
retval=FALSE;
goto out;
}
StartTime = GetTickCount();
hr = lpABCont->GetContentsTable(ULONG(0), &lpTable);
StopTime = GetTickCount();
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->GetContentsTable call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to GetContentsTable (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
hr = lpTable->QueryRows(LONG(0x7FFFFFFF),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED with errorcode 0x%x", hr);
retval=FALSE;
goto out;
}
if (!lpRows->cRows) {
LUIOut(L2, "QueryRows did not find any entries. Test FAILED");
retval=FALSE;
goto out;
}
else
LUIOut(L3, "QueryRows returned %u rows.", lpRows->cRows);
// Change the EntryIDs to a LPENTRYLIST
hr = HrCreateEntryListFromRows(IN lpLocalWABObject,
IN &lpRows,
OUT (ENTRYLIST**)&lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
StartTime = GetTickCount();
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
StopTime = GetTickCount();
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to DeleteEntries (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entries. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpLocalWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeRows(lpLocalWABObject, &lpRows); // Cleanup from first call to queryrows
FreeEntryList(lpLocalWABObject, (ENTRYLIST**)&lpEntryList);
if (lpTable) {
lpTable->Release();
lpTable = NULL;
}
lpLocalWABObject->FreeBuffer(lpEidPAB);
lpEidPAB = NULL;
lpABCont->Release();
lpABCont = NULL;
lpLocalAdrBook->Release();
lpLocalAdrBook = NULL;
lpLocalWABObject->Release();
lpLocalWABObject = NULL;
NumEntries = 100;
LUIOut(L1, " ");
LUIOut(L2, "Running performance data for %u entries.", NumEntries);
DeleteWABFile();
CreateMultipleEntries(NumEntries,&PerfData);
LUIOut(L2, "** Time for SaveChanges (Avg. per entry) = %u milliseconds", PerfData);
hr = WABOpen(&lpLocalAdrBook, &lpLocalWABObject, &WP, Reserved2);
if (HR_FAILED(hr)) {
LUIOut(L2,"WABOpen Failed");
retval=FALSE;
goto out;
}
assert(lpLocalAdrBook != NULL);
hr = OpenPABID( IN lpLocalAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
retval=FALSE;
goto out;
}
StartTime = GetTickCount();
hr = lpABCont->GetContentsTable(ULONG(0), &lpTable);
StopTime = GetTickCount();
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->GetContentsTable call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to GetContentsTable (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
hr = lpTable->QueryRows(LONG(0x7FFFFFFF),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED with errorcode 0x%x", hr);
retval=FALSE;
goto out;
}
if (!lpRows->cRows) {
LUIOut(L2, "QueryRows did not find any entries. Test FAILED");
retval=FALSE;
goto out;
}
else
LUIOut(L3, "QueryRows returned %u rows.", lpRows->cRows);
// Change the EntryIDs to a LPENTRYLIST
hr = HrCreateEntryListFromRows(IN lpLocalWABObject,
IN &lpRows,
OUT (ENTRYLIST**)&lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
StartTime = GetTickCount();
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
StopTime = GetTickCount();
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to DeleteEntries (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entries. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpLocalWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeRows(lpLocalWABObject, &lpRows); // Cleanup from first call to queryrows
FreeEntryList(lpLocalWABObject, (ENTRYLIST**)&lpEntryList);
if (lpTable) {
lpTable->Release();
lpTable = NULL;
}
lpLocalWABObject->FreeBuffer(lpEidPAB);
lpEidPAB = NULL;
lpABCont->Release();
lpABCont = NULL;
lpLocalAdrBook->Release();
lpLocalAdrBook = NULL;
lpLocalWABObject->Release();
lpLocalWABObject = NULL;
NumEntries = 500;
LUIOut(L1, " ");
LUIOut(L2, "Running performance data for %u entries.", NumEntries);
DeleteWABFile();
CreateMultipleEntries(NumEntries,&PerfData);
LUIOut(L2, "** Time for SaveChanges (Avg. per entry) = %u milliseconds", PerfData);
hr = WABOpen(&lpLocalAdrBook, &lpLocalWABObject, &WP, Reserved2);
if (HR_FAILED(hr)) {
LUIOut(L2,"WABOpen Failed");
retval=FALSE;
goto out;
}
assert(lpLocalAdrBook != NULL);
hr = OpenPABID( IN lpLocalAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
retval=FALSE;
goto out;
}
StartTime = GetTickCount();
hr = lpABCont->GetContentsTable(ULONG(0), &lpTable);
StopTime = GetTickCount();
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->GetContentsTable call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to GetContentsTable (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
hr = lpTable->QueryRows(LONG(0x7FFFFFFF),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED with errorcode 0x%x", hr);
retval=FALSE;
goto out;
}
if (!lpRows->cRows) {
LUIOut(L2, "QueryRows did not find any entries. Test FAILED");
retval=FALSE;
goto out;
}
else
LUIOut(L3, "QueryRows returned %u rows.", lpRows->cRows);
// Change the EntryIDs to a LPENTRYLIST
hr = HrCreateEntryListFromRows(IN lpLocalWABObject,
IN &lpRows,
OUT (ENTRYLIST**)&lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
StartTime = GetTickCount();
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
StopTime = GetTickCount();
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to DeleteEntries (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entries. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpLocalWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeRows(lpLocalWABObject, &lpRows); // Cleanup from first call to queryrows
FreeEntryList(lpLocalWABObject, (ENTRYLIST**)&lpEntryList);
if (lpTable) {
lpTable->Release();
lpTable = NULL;
}
lpLocalWABObject->FreeBuffer(lpEidPAB);
lpEidPAB = NULL;
lpABCont->Release();
lpABCont = NULL;
lpLocalAdrBook->Release();
lpLocalAdrBook = NULL;
lpLocalWABObject->Release();
lpLocalWABObject = NULL;
NumEntries = 1000;
LUIOut(L1, " ");
LUIOut(L2, "Running performance data for %u entries.", NumEntries);
DeleteWABFile();
CreateMultipleEntries(NumEntries,&PerfData);
LUIOut(L2, "** Time for SaveChanges (Avg. per entry) = %u milliseconds", PerfData);
hr = WABOpen(&lpLocalAdrBook, &lpLocalWABObject, &WP, Reserved2);
if (HR_FAILED(hr)) {
LUIOut(L2,"WABOpen Failed");
retval=FALSE;
goto out;
}
assert(lpLocalAdrBook != NULL);
hr = OpenPABID( IN lpLocalAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
retval=FALSE;
goto out;
}
StartTime = GetTickCount();
hr = lpABCont->GetContentsTable(ULONG(0), &lpTable);
StopTime = GetTickCount();
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->GetContentsTable call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to GetContentsTable (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
hr = lpTable->QueryRows(LONG(0x7FFFFFFF),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED with errorcode 0x%x", hr);
retval=FALSE;
goto out;
}
if (!lpRows->cRows) {
LUIOut(L2, "QueryRows did not find any entries. Test FAILED");
retval=FALSE;
goto out;
}
else
LUIOut(L3, "QueryRows returned %u rows.", lpRows->cRows);
// Change the EntryIDs to a LPENTRYLIST
hr = HrCreateEntryListFromRows(IN lpLocalWABObject,
IN &lpRows,
OUT (ENTRYLIST**)&lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
StartTime = GetTickCount();
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
StopTime = GetTickCount();
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to DeleteEntries (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entries. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpLocalWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeRows(lpLocalWABObject, &lpRows); // Cleanup from first call to queryrows
FreeEntryList(lpLocalWABObject, (ENTRYLIST**)&lpEntryList);
if (lpTable) {
lpTable->Release();
lpTable = NULL;
}
lpLocalWABObject->FreeBuffer(lpEidPAB);
lpEidPAB = NULL;
lpABCont->Release();
lpABCont = NULL;
lpLocalAdrBook->Release();
lpLocalAdrBook = NULL;
lpLocalWABObject->Release();
lpLocalWABObject = NULL;
NumEntries = 5000;
LUIOut(L1, " ");
LUIOut(L2, "Running performance data for %u entries.", NumEntries);
DeleteWABFile();
CreateMultipleEntries(NumEntries,&PerfData);
LUIOut(L2, "** Time for SaveChanges (Avg. per entry) = %u milliseconds", PerfData);
hr = WABOpen(&lpLocalAdrBook, &lpLocalWABObject, &WP, Reserved2);
if (HR_FAILED(hr)) {
LUIOut(L2,"WABOpen Failed");
retval=FALSE;
goto out;
}
assert(lpLocalAdrBook != NULL);
hr = OpenPABID( IN lpLocalAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
retval=FALSE;
goto out;
}
StartTime = GetTickCount();
hr = lpABCont->GetContentsTable(ULONG(0), &lpTable);
StopTime = GetTickCount();
if (HR_FAILED(hr)) {
LUIOut(L3,"ABContainer->GetContentsTable call FAILED, returned 0x%x", hr);
retval=FALSE;
goto out;
}
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to GetContentsTable (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
hr = lpTable->QueryRows(LONG(0x7FFFFFFF),
ULONG(0),
&lpRows);
if (HR_FAILED(hr)) {
LUIOut(L3,"Table->QueryRows call FAILED with errorcode 0x%x", hr);
retval=FALSE;
goto out;
}
if (!lpRows->cRows) {
LUIOut(L2, "QueryRows did not find any entries. Test FAILED");
retval=FALSE;
goto out;
}
else
LUIOut(L3, "QueryRows returned %u rows.", lpRows->cRows);
// Change the EntryIDs to a LPENTRYLIST
hr = HrCreateEntryListFromRows(IN lpLocalWABObject,
IN &lpRows,
OUT (ENTRYLIST**)&lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
// Then pass the lpEntryList to DeleteEntries to delete ...
StartTime = GetTickCount();
hr = lpABCont->DeleteEntries(IN lpEntryList,IN 0);
StopTime = GetTickCount();
Elapsed = StopTime-StartTime;
LUIOut(L2, "** Time to DeleteEntries (Avg. per entry) = %u.%03u milliseconds", Elapsed/NumEntries, ((Elapsed*1000)/NumEntries)-((Elapsed/NumEntries)*1000));
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entries. DeleteEntry returned 0x%x", hr);
FreeEntryList(lpLocalWABObject, &lpEntryList);
retval=FALSE;
goto out;
}
FreeRows(lpLocalWABObject, &lpRows); // Cleanup from first call to queryrows
FreeEntryList(lpLocalWABObject, (ENTRYLIST**)&lpEntryList);
if (lpTable) {
lpTable->Release();
lpTable = NULL;
}
lpLocalWABObject->FreeBuffer(lpEidPAB);
lpEidPAB = NULL;
lpABCont->Release();
lpABCont = NULL;
lpLocalAdrBook->Release();
lpLocalAdrBook = NULL;
// Don't want to release the WABObject at this point since we'll need it to free memory below
// lpLocalWABObject->Release();
// lpLocalWABObject = NULL;
out:
FreeRows(lpLocalWABObject, &lpRows); // Cleanup from first call to queryrows
FreeEntryList(lpLocalWABObject, (ENTRYLIST**)&lpEntryList);
if (lpTable) {
lpTable->Release();
lpTable = NULL;
}
#ifdef PAB
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
#endif
#ifdef WAB
if (lpEidPAB)
lpLocalWABObject->FreeBuffer(lpEidPAB);
#endif
if (lpABCont)
lpABCont->Release();
if (lpLocalAdrBook)
lpLocalAdrBook->Release();
#ifdef PAB
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
#ifdef WAB
if (lpLocalWABObject) {
lpLocalWABObject->Release();
lpLocalWABObject = NULL;
}
if (lpWABObject) {
lpWABObject->Release();
lpWABObject = NULL;
}
#endif
return retval;
}
BOOL PabCreateEntry()
{
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
#ifdef PAB
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL;
LPABCONT lpDLCont= NULL;
ULONG cbEidPAB = 0, cbDLEntryID = 0;
LPENTRYID lpEidPAB = NULL, lpDLEntryID= NULL;
LPENTRYLIST lpEntryList=NULL; // needed for copy entry to PDL
ULONG cbEid=0; // entry id of the entry being added
LPENTRYID lpEid=NULL;
char EntProp[10][BIG_BUF]; //MAX_PROP
ULONG cValues = 0, ulObjType=NULL;
ULONG cRows = 0;
ULONG iEntry = 0;
int cEntriesToAdd,i=0,k=0;
char szEntryTag[SML_BUF],szTagBuf[SML_BUF],EntryBuf[MAX_BUF];
char szDLTag[SML_BUF];
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
LPMAILUSER lpAddress = NULL;
SPropValue PropValue[3] = {0}; // This value is 3 because we
// will be setting 3 properties:
// EmailAddress, DisplayName and
// AddressType.
SizedSPropTagArray(2, Cols) = { 2, {PR_OBJECT_TYPE, PR_ENTRYID } };
LPSPropValue lpSPropValueAddress = NULL;
LPSPropValue lpSPropValueEntryID = NULL;
LPSPropValue lpSPropValueDL = NULL;
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
SizedSPropTagArray(1,SPTArrayDL) = {1, {PR_DEF_CREATE_DL} };
SizedSPropTagArray(1,SPTArrayEntryID) = {1, {PR_ENTRYID} };
LUIOut(L1," ");
LUIOut(L1,"Running CreateEntries");
LUIOut(L2,"-> Creates specified entries in PAB");
LUIOut(L2, " And also copies them into a Distribution List");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(L2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
// Create an Entry of type "Other Address" in PAB
// OpenPAB
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpPABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
LUIOut(L3,"Could not Open PAB");
retval=FALSE;
goto out;
}
// Create a PDL to fill
hr = lpPABCont->GetProps( IN (LPSPropTagArray) &SPTArrayDL,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default DL template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_DL is an
// EntryID which one can pass to CreateEntry
//
hr = lpPABCont->CreateEntry(
IN lpSPropValueDL->Value.bin.cb, //Template cbEid
IN (LPENTRYID) lpSPropValueDL->Value.bin.lpb, //Template lpEid
IN 0,
OUT (LPMAPIPROP *) &lpAddress);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_DL");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
cValues = 1; //# of props we are setting
lstrcpy(szDLTag,"Name1");
GetPrivateProfileString("CreatePDL",szDLTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
LUIOut(L2,"PDL Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpAddress->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"SetProps on failed for %s properties",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
//else LUIOut(L3,"SetProps Passed for %s properties",PropValue[0].Value.LPSZ);
hr = lpAddress->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"SaveChanges failed for SetProps");
retval=FALSE;
goto out;
}
else LUIOut(L3,"PDL Entry Added to PAB");
if (lpAddress) {
lpAddress->Release();
lpAddress = NULL;
}
//***
//Get the PAB table so we can extract the DL
hr = lpPABCont->GetContentsTable( IN 0, //Flags
OUT &lpContentsTable);
if (HR_FAILED(hr)) {
LUIOut(L3,"GetContentsTable: Failed");
retval = FALSE;
goto out;
}
// look for the first PDL that you can find
hr = lpContentsTable->SetColumns(IN (LPSPropTagArray) &Cols,
IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"SetColumns Failed");
retval = FALSE;
goto out;
}
do
{
hr = lpContentsTable->QueryRows(IN 1,
IN 0,
OUT &lpRowSet);
if (HR_FAILED(hr)){
LUIOut(L3,"QueryRows Failed");
retval = FALSE;
goto out;
}
cRows = lpRowSet->cRows;
for (iEntry = 0; iEntry < cRows; iEntry++)
{
//
// For each entry, process it.
//
//lpSPropValue = lpRowSet->aRow[iEntry].lpProps;
if ((lpRowSet->aRow[iEntry].lpProps[0].ulPropTag == PR_OBJECT_TYPE) &&
(lpRowSet->aRow[iEntry].lpProps[0].Value.ul == MAPI_DISTLIST))
{
if (lpRowSet->aRow[iEntry].lpProps[1].ulPropTag == PR_ENTRYID)
{
cbDLEntryID = lpRowSet->aRow[iEntry].lpProps[1].Value.bin.cb;
if ( !MAPIAllocateBuffer(cbDLEntryID, (LPVOID *)&lpDLEntryID)) {
CopyMemory(lpDLEntryID, (LPENTRYID)lpRowSet->aRow[iEntry].lpProps[1].Value.bin.lpb, cbDLEntryID);
}
else {
LUIOut(L3,"MAPIAllocateBuffer Failed");
retval = FALSE;
}
break;
}
}
}
//
// done, clean up
//
if(lpRowSet) {
FreeProws(lpRowSet);
lpRowSet = NULL;
}
}while((0!=cRows)&& (0==(cbDLEntryID)));
if (cbDLEntryID == 0)
LUIOut(L3,"PDL does not exist");
hr = lpPABCont->OpenEntry(
IN cbDLEntryID,
IN lpDLEntryID,
IN NULL, //default interface
IN MAPI_BEST_ACCESS, //flags
OUT &ulObjType,
OUT (LPUNKNOWN *) &lpDLCont);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenEntry Failed");
retval=FALSE;
goto out;
}
//***
// Get Entry displayname, addresstype and (email)address from INI
cEntriesToAdd= GetPrivateProfileInt("CreateEntries","NumEntries",0,INIFILENAME);
for (k= 0; k<cEntriesToAdd; k++) {
lstrcpy((LPSTR)szEntryTag,"Address");
lstrcat(szEntryTag,_itoa(k+1,szTagBuf,10));
// Addresses are comma delimited and enclosed in quotes
GetPrivateProfileString("CreateEntries",szEntryTag,"",EntryBuf,MAX_BUF,INIFILENAME);
// parse the buffer for properties: displayname, emailaddress and address type
// if no email address specified
// then user will enter
// else enter programatically
// else part implemented below
hr = lpPABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default template");
retval=FALSE;
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which one can pass to CreateEntry
//
hr = lpPABCont->CreateEntry(
IN lpSPropValueAddress->Value.bin.cb, //Template cbEid
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb, //Template lpEid
IN 0,
OUT (LPMAPIPROP *) &lpAddress);
if (HR_FAILED(hr)) {
LUIOut(L3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
PropValue[1].ulPropTag = PR_ADDRTYPE;
PropValue[2].ulPropTag = PR_EMAIL_ADDRESS;
cValues = 3; //# of props we are setting
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
LUIOut(L2,"Entry to Add: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpAddress->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"SetProps failed for %s",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
//else LUIOut(L3,"SetProps Passed for %s properties",PropValue[0].Value.LPSZ);
hr = lpAddress->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"SaveChanges failed for SetProps");
retval=FALSE;
goto out;
}
else LUIOut(L3,"Entry Added to PAB");
/** */
// Now copy the entry to the default DL
// Get EntryID
hr = lpAddress->GetProps(
IN (LPSPropTagArray) &SPTArrayEntryID,
IN 0,
OUT &cValues,
OUT &lpSPropValueEntryID);
if ((HR_FAILED(hr))||(PropError(lpSPropValueEntryID->ulPropTag))) {
{
LUIOut( L2,"GetProps on entry in PAB failed" );
retval = FALSE;
goto out;
}
cbEid = lpSPropValueEntryID->Value.bin.cb;
if ( !MAPIAllocateBuffer(cbEid, (LPVOID *)&lpEid)) {
CopyMemory(lpEid, (VOID*)(LPENTRYID) lpSPropValueEntryID->Value.bin.lpb, cbEid);
} else {
LUIOut(L3,"MAPIAllocateBuffer Failed");
retval = FALSE;
}
/** */
// Now copy the entry to the default DL
hr = HrCreateEntryListFromID(lpLocalWABObject, lpLocalWABObject, IN cbEid,
IN lpEid,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
hr = lpDLCont->CopyEntries(IN lpEntryList,IN NULL, IN NULL, IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Copy Entry %s", EntProp[0]);
retval=FALSE;
goto out;
} else LUIOut(L3,"Copied Entry: %s to PDL", EntProp[0]);
/** */
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpAddress) {
lpAddress->Release();
lpAddress = NULL;
}
}
out:
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpSPropValueEntryID)
MAPIFreeBuffer(lpSPropValueEntryID);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpAddress)
lpAddress->Release();
if (lpContentsTable)
lpContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL PabDeleteEntry()
{
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
#ifdef PAB
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL;
ULONG cbEidPAB = 0;
LPENTRYID lpEidPAB = NULL;
char szDispName[BIG_BUF];
ULONG cValues = 0;
int cEntriesToDelete,i=0,k=0;
char szEntryTag[SML_BUF],szTagBuf[SML_BUF];
ULONG cRows = 0;
ULONG iEntry = 0;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
SPropValue PropValue = {0};
LPSPropValue lpSPropValue = NULL;
SizedSPropTagArray(2, Cols) = { 2, {PR_DISPLAY_NAME, PR_ENTRYID } };
LPENTRYLIST lpEntryList=NULL;
ULONG cbEid=0;
LPENTRYID lpEid=NULL;
LPVOID *lpEid2=NULL;
LUIOut(L1," ");
LUIOut(L1,"Running DeleteEntries");
LUIOut(L2,"-> Deletes specified entries from the PAB");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(L2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
// OpenPAB
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpPABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
LUIOut(L3,"Could not Open PAB");
retval=FALSE;
goto out;
}
// Get Entry displayname from INI
cEntriesToDelete = GetPrivateProfileInt("DeleteEntries","NumEntries",0,INIFILENAME);
for (k= 0; k<cEntriesToDelete; k++) {
lstrcpy((LPSTR)szEntryTag,"Name");
lstrcat(szEntryTag,_itoa(k+1,szTagBuf,10));
GetPrivateProfileString("DeleteEntries",szEntryTag,"",szDispName,MAX_BUF,INIFILENAME);
if (szDispName[0]==0) continue;
LUIOut(L2,"Entry to Delete: %s",szDispName);
cbEid=0;
//
// Get the Contents Table for the PAB container
//
hr = lpPABCont->GetContentsTable( IN 0, //Flags
OUT &lpContentsTable);
if (HR_FAILED(hr)) {
LUIOut(L3,"GetContentsTable: Failed");
goto out;
}
//
// Only interested in 2 columns:
// PR_DISPLAY_NAME and PR_ENTRYID
//
hr = lpContentsTable->SetColumns(IN (LPSPropTagArray) &Cols,
IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"SetColumns Failed");
retval = FALSE;
goto out;
}
//
// Since we don't know how many entries exist in the PAB,
// we will scan them 1000 at a time till we find the desired
// contact or reach the end of the table...
do
{
hr = lpContentsTable->QueryRows(IN 1000,
IN 0,
OUT &lpRowSet);
if (HR_FAILED(hr)){
LUIOut(L3,"QueryRows Failed");
retval = FALSE;
goto out;
}
cRows = lpRowSet->cRows;
for (iEntry = 0; iEntry < cRows; iEntry++)
{
//
// For each entry, process it.
//
lpSPropValue = lpRowSet->aRow[iEntry].lpProps;
if ( (lpSPropValue[0].ulPropTag == PR_DISPLAY_NAME) &&
(!lstrcmpi(lpSPropValue[0].Value.LPSZ, szDispName)) )
{
if (lpSPropValue[1].ulPropTag == PR_ENTRYID)
{
cbEid = lpSPropValue[1].Value.bin.cb;
lpEid = (LPENTRYID) lpSPropValue[1].Value.bin.lpb;
if ( !MAPIAllocateBuffer(cbEid, (LPVOID *)&lpEid2)) {
CopyMemory(lpEid2, lpEid, cbEid);
lpEid= (LPENTRYID)lpEid2;
}
else {
LUIOut(L3,"MAPIAllocateBuffer Failed");
retval = FALSE;
}
//lpEid = (LPENTRYID) lpSPropValue[1].Value.bin.lpb;
// if ( !MAPIAllocateBuffer(cbEid, (LPVOID*)lppEid))
// {
// CopyMemory(*lppEid, lpEid, *lpcbEid);
// }
break;
}
}
}
//
// done, clean up
//
if(lpRowSet) {
FreeProws(lpRowSet);
lpRowSet = NULL;
}
}while((0!=cRows)&& (0==(cbEid)));
if (cbEid == 0)
LUIOut(L3,"Entry does not exist");
else {
//
// Change the EntryID to a LPENTRYLIST
//
hr = HrCreateEntryListFromID(lpLocalWABObject, IN cbEid,
IN lpEid,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
//
// Then pass the lpEntryList to DeleteEntries to delete ...
//
hr = lpPABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry %s", szDispName);
retval=FALSE;
goto out;
} else LUIOut(L3,"Deleted Entry: %s", szDispName);
}
}
out:
if (lpSPropValue)
MAPIFreeBuffer(lpSPropValue);
if (lpContentsTable)
lpContentsTable->Release();
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpPABCont)
lpPABCont->Release();
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL PabEnumerateAll()
{
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int i = 0,j = 0,retval=TRUE, bDistList = FALSE;
#ifdef PAB
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL, lpDLCont = NULL;
ULONG ulEntries=0, ulEntriesDL = 0;
ULONG cbEid=0, cbDLEid=0;
LPENTRYID lpEid=NULL, lpDLEid = NULL;
ULONG ulObjType=NULL,cValues=0;
LPMAILUSER lpUser=NULL, lpDLUser = NULL;
ULONG cbEidPAB = 0;
LPENTRYID lpEidPAB = NULL;
LPMAPITABLE lpContentsTable = NULL, lpDLContentsTable = NULL;
LPSRowSet lpRowSet = NULL, lpRowSetDL= NULL;
LPSPropValue lpSPropValue = NULL, lpSPropValueDL = NULL;
SizedSPropTagArray(2,SPTTagArray) = {2, {PR_DISPLAY_NAME, PR_EMAIL_ADDRESS} };
LUIOut(L1," ");
LUIOut(L1,"Running EnumerateAll");
LUIOut(L2,"-> Enumerates all the entries in the PAB");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(L2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
if(! OpenPABID(IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpPABCont, OUT &ulObjType))
{
LUIOut(L2,"OpenPABID Failed");
LUIOut(L3,"Could not Open PAB");
retval=FALSE;
goto out;
}
assert(lpPABCont != NULL);
hr = lpPABCont->GetContentsTable( IN 0, //Flags
OUT &lpContentsTable);
if (HR_FAILED(hr)) {
LUIOut(L2,"GetContentsTable: Failed");
retval=FALSE;
goto out;
}
assert(lpRowSet == NULL);
assert(lpRowSetDL == NULL);
assert(lpContentsTable != NULL);
while(!HR_FAILED(hr = lpContentsTable->QueryRows(IN 1,
IN 0,
OUT &lpRowSet))) {
assert(lpRowSet != NULL);
bDistList = FALSE;
if (lpRowSet->cRows) {
ulEntries++;
i=0;
while(lpRowSet->aRow[0].lpProps[i].ulPropTag != PR_ENTRYID )
if (++i >= (int) lpRowSet->aRow[0].cValues)
{
LUIOut( L2, "Didn't find PR_ENTRYID in the row!" );
retval=FALSE;
goto out;
}
cbEid = lpRowSet->aRow[0].lpProps[i].Value.bin.cb;
lpEid = (LPENTRYID)lpRowSet->aRow[0].lpProps[i].Value.bin.lpb;
assert(lpEid != NULL);
// Is this a DL
i=0;
while(lpRowSet->aRow[0].lpProps[i].ulPropTag != PR_OBJECT_TYPE )
if (++i >= (int) lpRowSet->aRow[0].cValues)
{
LUIOut( L2, "Didn't find PR_OBJECT_TYPE in the row!" );
retval=FALSE;
goto out;
}
if (lpRowSet->aRow[0].lpProps[i].Value.ul == MAPI_DISTLIST)
bDistList = TRUE;
//d lpUser = NULL;
assert(lpUser == NULL);
assert(lpPABCont != NULL);
hr = lpPABCont->OpenEntry(
IN cbEid,
IN lpEid,
IN NULL, //default interface
IN MAPI_BEST_ACCESS, //flags
OUT &ulObjType,
OUT (LPUNKNOWN *) &lpUser);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenEntry Failed");
retval=FALSE;
goto out;
}
else
{
//d assert(lpUser != NULL);
//LUIOut( L2,"OpenEntry on EntryID for User Passed" );
assert(lpUser != NULL);
hr = lpUser->GetProps(
IN (LPSPropTagArray) &SPTTagArray,
IN 0,
OUT &cValues,
OUT &lpSPropValue);
if ((HR_FAILED(hr))||(PropError(lpSPropValue->ulPropTag, cValues))) {
{
LUIOut( L2,"GetProps on User Object failed" );
}
else
{
LUIOut(L2,"Entry Name: %s",lpSPropValue->Value.LPSZ);
if (lpSPropValue) {
MAPIFreeBuffer(lpSPropValue);
lpSPropValue = NULL;
}
assert(lpSPropValue == NULL);
}
/* */
if (bDistList) {
//d lpDLCont = NULL;
assert(lpDLCont == NULL);
assert(lpPABCont != NULL);
hr = lpPABCont->OpenEntry(
IN cbEid,
IN lpEid,
IN NULL, //default interface
IN MAPI_BEST_ACCESS, //flags
OUT &ulObjType,
OUT (LPUNKNOWN *) &lpDLCont);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenEntry Failed");
retval=FALSE;
goto out;
}
//d set to NULL?
assert(lpDLContentsTable == NULL);
assert(lpDLCont != NULL);
hr = lpDLCont->GetContentsTable( IN 0, //Flags
OUT &lpDLContentsTable);
if (HR_FAILED(hr)) {
LUIOut(L2,"GetContentsTable: Failed");
retval=FALSE;
goto out;
}
assert(lpRowSetDL == NULL);
assert(lpDLContentsTable != NULL);
while(!HR_FAILED(hr = lpDLContentsTable->QueryRows(IN 1,
IN 0,
OUT &lpRowSetDL))) {
if (lpRowSetDL->cRows) {
ulEntriesDL++;
j=0;
while(lpRowSetDL->aRow[0].lpProps[j].ulPropTag != PR_ENTRYID )
if (++j >= (int) lpRowSetDL->aRow[0].cValues)
{
LUIOut( L2, "Didn't find PR_ENTRYID in the row!" );
retval=FALSE;
goto out;
}
cbDLEid = lpRowSetDL->aRow[0].lpProps[j].Value.bin.cb;
lpDLEid = (LPENTRYID)lpRowSetDL->aRow[0].lpProps[j].Value.bin.lpb;
assert(lpDLEid != NULL);
//d lpDLUser = NULL;
//d assert(lpDLUser == NULL);
assert(lpDLCont != NULL);
hr = lpDLCont->OpenEntry(
IN cbDLEid,
IN lpDLEid,
IN NULL, //default interface
IN MAPI_BEST_ACCESS, //flags
OUT &ulObjType,
OUT (LPUNKNOWN *) &lpDLUser);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenEntry Failed");
retval=FALSE;
goto out;
}
else
{
assert(lpSPropValueDL == NULL);
//LUIOut( L2,"OpenEntry on EntryID for User Passed" );
assert(lpDLUser != NULL);
hr = lpDLUser->GetProps(
IN (LPSPropTagArray) &SPTTagArray,
IN 0,
OUT &cValues,
OUT &lpSPropValueDL);
if ((HR_FAILED(hr))||(PropError(lpSPropValueDL->ulPropTag, cValues))) {
assert( lpSPropValueDL == NULL);
LUIOut( L3,"GetProps on User Object failed" );
}
else {
LUIOut(L3,"Entry Name: %s",lpSPropValueDL->Value.LPSZ);
assert( lpSPropValueDL != NULL);
if (lpSPropValueDL) {
MAPIFreeBuffer(lpSPropValueDL);
lpSPropValueDL = NULL;
}
assert( lpSPropValueDL == NULL);
}
}
if (lpRowSetDL) {
FreeProws( lpRowSetDL );
lpRowSetDL = NULL;
}
assert( lpRowSetDL == NULL);
if(lpDLUser) {
lpDLUser->Release();
lpDLUser = NULL;
}
/* */ }
else // no more rows in table
{
//Free Row
if (lpRowSetDL) {
FreeProws(lpRowSetDL);
lpRowSetDL = NULL;
}
assert( lpRowSetDL == NULL);
break;
}
if(ulEntriesDL == 50) // we only handle the first 50 entries otherwise this would take forever
break;
assert(lpRowSetDL == NULL);
//***//
}
if (lpDLCont)
lpDLCont->Release();
lpDLCont = NULL;
assert(lpRowSetDL == NULL);
if (lpDLContentsTable)
lpDLContentsTable->Release();
lpDLContentsTable = NULL;
}
}
//Free Row
if (lpRowSet) {
FreeProws(lpRowSet);
lpRowSet = NULL;
}
assert( lpRowSet == NULL);
}
else // no more rows in table
{
//Free Row
if (lpRowSet) {
FreeProws(lpRowSet);
lpRowSet = NULL;
}
assert( lpRowSet == NULL);
break;
}
if(ulEntries == 50) // we only handle the first 50 entries otherwise this would take forever
break;
assert(lpRowSet == NULL);
assert(lpRowSetDL == NULL);
assert(lpContentsTable != NULL);
if(lpUser) {
lpUser->Release();
lpUser = NULL;
}
}//while
assert(lpRowSet == NULL);
assert(lpRowSetDL == NULL);
LUIOut(L2,"Total Entries: %d", ulEntries);
if (HR_FAILED(hr)){
LUIOut(L2,"QueryRows Failed");
retval = FALSE;
goto out;
}
out:
if (lpSPropValue)
MAPIFreeBuffer(lpSPropValue);
if (lpSPropValueDL)
MAPIFreeBuffer(lpSPropValueDL);
if (lpContentsTable)
lpContentsTable->Release();
if (lpDLContentsTable)
lpDLContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpDLCont)
lpDLCont->Release();
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL ClearPab(int bMAILUSERS)
{
// Clear PAB of all the entries. If bMailUsers flag is TRUE,
// then only clear MAILUSERS, else clear everything.
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
#ifdef PAB
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL;
ULONG cbEidPAB = 0;
LPENTRYID lpEidPAB = NULL;
//char szDispName[BIG_BUF];
ULONG cValues = 0;
//int cEntriesToDelete;
int i=0,k=0;
//char szEntryTag[SML_BUF];
//char szTagBuf[SML_BUF];
ULONG cRows = 0;
ULONG iEntry = 0;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
SPropValue PropValue = {0};
LPSPropValue lpSPropValue = NULL;
SizedSPropTagArray(3, Cols) = { 3, {PR_DISPLAY_NAME, PR_ENTRYID, PR_OBJECT_TYPE } };
LPENTRYLIST lpEntryList=NULL;
ULONG cbEid=0;
LPENTRYID lpEid=NULL;
LPVOID *lpEid2=NULL;
LUIOut(L1," ");
if (bMAILUSERS) {
LUIOut(L1,"Running DeleteUsersOnly");
LUIOut(L2,"-> Deletes mail users Only (not distribution lists) from the PAB");
LUIOut(L1," ");
}
else {
LUIOut(L1,"Running Delete All Entries");
LUIOut(L2,"-> Clears the PAB");
LUIOut(L1," ");
}
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(L2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
// OpenPAB
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpPABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
LUIOut(L3,"Could not Open PAB");
retval=FALSE;
goto out;
}
//
// Get the Contents Table for the PAB container
//
hr = lpPABCont->GetContentsTable( IN 0, //Flags
OUT &lpContentsTable);
if (HR_FAILED(hr)) {
LUIOut(L3,"GetContentsTable: Failed");
goto out;
}
//
// Only interested in 2 columns:
// PR_DISPLAY_NAME and PR_ENTRYID
//
hr = lpContentsTable->SetColumns(IN (LPSPropTagArray) &Cols,
IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"SetColumns Failed");
retval = FALSE;
goto out;
}
// Query and delete 1 row at a time
do
{
hr = lpContentsTable->QueryRows(IN 1,
IN 0,
OUT &lpRowSet);
if (HR_FAILED(hr)){
LUIOut(L3,"QueryRows Failed");
retval = FALSE;
goto out;
}
cRows = lpRowSet->cRows;
for (iEntry = 0; iEntry < cRows; iEntry++)
{
//
// For each entry, process it.
//
lpSPropValue = lpRowSet->aRow[iEntry].lpProps;
if (lpSPropValue[1].ulPropTag == PR_ENTRYID)
{
// don't delete this since it is not a mail user
//
if ((!bMAILUSERS) || (bMAILUSERS &&(lpSPropValue[2].ulPropTag == PR_OBJECT_TYPE)
&& (lpSPropValue[2].Value.ul == MAPI_MAILUSER))) {
cbEid = lpSPropValue[1].Value.bin.cb;
lpEid = (LPENTRYID) lpSPropValue[1].Value.bin.lpb;
hr = HrCreateEntryListFromID(lpLocalWABObject, IN cbEid,
IN lpEid,
OUT &lpEntryList);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Create Entry List");
retval=FALSE;
goto out;
}
//
// Then pass the lpEntryList to DeleteEntries to delete ...
//
hr = lpPABCont->DeleteEntries(IN lpEntryList,IN 0);
if (HR_FAILED(hr)) {
LUIOut(L3,"Could not Delete Entry %s", lpSPropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
} else LUIOut(L3,"Deleted Entry: %s", lpSPropValue[0].Value.LPSZ);
}
}
}
if(lpRowSet) {
FreeProws(lpRowSet);
lpRowSet = NULL;
}
}while((0!=cRows) && (0==!(cbEid)));
out:
if(lpRowSet)
FreeProws(lpRowSet);
if (lpSPropValue)
MAPIFreeBuffer(lpSPropValue);
if (lpContentsTable)
lpContentsTable->Release();
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpPABCont)
lpPABCont->Release();
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL CreateOneOff()
{
ULONG ulFlags = 0;
HRESULT hr = hrSuccess;
SCODE sc = SUCCESS_SUCCESS;
int retval=TRUE;
#ifdef PAB
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL;
// ULONG cbEidPAB = 0;
// LPENTRYID lpEidPAB = NULL;
ULONG cbEid=0, cValues;
LPENTRYID lpEid=NULL;
ULONG ulObjType=NULL;
LPMAILUSER lpUser=NULL;
char szDispName[BIG_BUF];
char szAddressType[BIG_BUF];
char szEmailAddress[BIG_BUF];
LPSPropValue lpSPropValue = NULL;
SizedSPropTagArray(5,SPTTagArray) = {5, {PR_DISPLAY_NAME,
PR_ADDRTYPE, PR_EMAIL_ADDRESS,
PR_OBJECT_TYPE,PR_ENTRYID} };
LUIOut(L1," ");
LUIOut(L1,"Running CreateOneOff");
LUIOut(L2,"-> Creates a one off entry as specified, in the PAB");
LUIOut(L3,"And then verifies the properties of the entry created");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(L2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
// Get the details of the Entry to Create from INI file
GetPrivateProfileString("CreateOneOff","Name","",szDispName,BIG_BUF,INIFILENAME);
GetPrivateProfileString("CreateOneOff","AddressType","",szAddressType,BIG_BUF,INIFILENAME);
GetPrivateProfileString("CreateOneOff","EmailAddress","",szEmailAddress,BIG_BUF,INIFILENAME);
hr = lpAdrBook->CreateOneOff(szDispName,szAddressType,szEmailAddress,NULL,&cbEid,&lpEid);
if (HR_FAILED(hr)) {
LUIOut(L2,"CreateOneOff Failed");
retval=FALSE;
goto out;
}
//Verification
hr = lpAdrBook->OpenEntry(IN cbEid, IN lpEid, IN NULL, MAPI_BEST_ACCESS,
OUT & ulObjType,(LPUNKNOWN *) &lpUser);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenEntry Failed");
retval=FALSE;
goto out;
} else LUIOut(L2,"OpenEntry Succeeded");
hr = lpUser->GetProps(
IN (LPSPropTagArray) &SPTTagArray,
IN 0,
OUT &cValues,
OUT &lpSPropValue);
if ((HR_FAILED(hr))||(PropError(lpSPropValue->ulPropTag, cValues))) {
LUIOut( L2,"GetProps on User Object failed" );
else {
LUIOut(L2,"Entry Name: %s",(lpSPropValue[0]).Value.LPSZ);
if (lstrcmpi((lpSPropValue[0]).Value.LPSZ, (LPSTR)szDispName))
retval = FALSE;
LUIOut(L2,"AddressType: %s",(lpSPropValue[1]).Value.LPSZ);
if (lstrcmpi((lpSPropValue[1]).Value.LPSZ, (LPSTR)szAddressType))
retval = FALSE;
LUIOut(L2,"EmailAddress: %s",(lpSPropValue[2]).Value.LPSZ);
if (lstrcmpi((lpSPropValue[2]).Value.LPSZ, (LPSTR)szEmailAddress))
retval = FALSE;
LUIOut(L2,"ObjectType: %0x",(lpSPropValue[3]).Value.ul);
if ((lpSPropValue[3]).Value.ul != MAPI_MAILUSER)
retval = FALSE;
}
out:
if (lpSPropValue)
MAPIFreeBuffer(lpSPropValue);
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL PABResolveName()
{
HRESULT hr = hrSuccess;
int retval=TRUE;
#ifdef PAB
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
ULONG cEntries=0;
LPADRLIST lpAdrList = NULL, lpAdrListNew = NULL;
int temp1=0, temp2 =0, temp3=0, temp4=0;
char szResName[10][BIG_BUF];
int i = 0;
LUIOut(L1," ");
LUIOut(L1,"Running ResolveName");
LUIOut(L2,"-> Does Name Resolution Tests on PAB");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(LFAIL2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(LFAIL2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
cEntries = 1;
GetPrivateProfileString("ResolveName","ResName1","",szResName[0],BIG_BUF,INIFILENAME);
LUIOut(L2,"Step1: Resolve unresolved name");
LUIOut(L3,"Name to resolve: %s",szResName[0]);
temp1 = sizeof(ADRLIST) + cEntries*(sizeof(ADRENTRY));
temp2 = CbNewADRLIST(cEntries);
MAPIAllocateBuffer(CbNewADRLIST(cEntries), (LPVOID *) &lpAdrList );
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[0].rgPropVals));
lpAdrList->cEntries = cEntries;
lpAdrList->aEntries[0].cValues = 1;
lpAdrList->aEntries[0].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals->dwAlignPad = 0;
lpAdrList->aEntries[0].rgPropVals->Value.LPSZ = szResName[0];
hr = lpAdrBook->ResolveName((ULONG)GetActiveWindow(), MAPI_DIALOG, NULL, lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(LFAIL4,"ResolveName Failed for %s",lpAdrList->aEntries[0].rgPropVals->Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(LPASS4,"Resolved successfully");
if (ValidateAdrList(lpAdrList, cEntries))
LUIOut(LPASS4,"Validation passed");
else {
LUIOut(LFAIL4,"Validation unsuccessful");
retval = FALSE;
}
LUIOut(L2,"Step2: Resolve the previously resolved name");
hr = lpAdrBook->ResolveName(0, 0, NULL, lpAdrList);
if (HR_FAILED(hr)) {
LUIOut(LFAIL4,"ResolveName Failed for %s",lpAdrList->aEntries[0].rgPropVals->Value.LPSZ);
retval=FALSE;
goto out;
}
else LUIOut(LPASS4,"Resolved successfully");
LUIOut(L4,"Validate the returned PropList");
if (ValidateAdrList(lpAdrList, cEntries))
LUIOut(LPASS4,"Validation passed");
else {
LUIOut(LFAIL4,"Validation unsuccessful");
retval = FALSE;
}
MAPIFreeBuffer( lpAdrList->aEntries[0].rgPropVals );
MAPIFreeBuffer( lpAdrList );
lpAdrList = NULL;
LUIOut(L2,"Step3: Resolve mixed names");
LUIOut(L2,"->prev. resolved and unresolved");
LUIOut(L3,"Step3a: Resolve following unresolved names: ");
GetPrivateProfileString("ResolveName","ResName2","",szResName[1],BIG_BUF,INIFILENAME);
GetPrivateProfileString("ResolveName","ResName3","",szResName[2],BIG_BUF,INIFILENAME);
GetPrivateProfileString("ResolveName","ResName4","",szResName[3],BIG_BUF,INIFILENAME);
LUIOut(L4,"%s",szResName[1]);
LUIOut(L4,"%s",szResName[2]);
LUIOut(L4,"%s",szResName[3]);
cEntries = 3;
MAPIAllocateBuffer(CbNewADRLIST(cEntries), (LPVOID *) &lpAdrList );
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[0].rgPropVals));
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[1].rgPropVals));
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[2].rgPropVals));
lpAdrList->cEntries = cEntries;
// Name 1
lpAdrList->aEntries[0].cValues = 1;
lpAdrList->aEntries[0].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals->Value.LPSZ = szResName[1];
// Name 2
lpAdrList->aEntries[1].cValues = 1;
lpAdrList->aEntries[1].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[1].rgPropVals->Value.LPSZ = szResName[2];
// Name 3
lpAdrList->aEntries[2].cValues = 1;
lpAdrList->aEntries[2].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[2].rgPropVals->Value.LPSZ = szResName[3];
if(HR_FAILED(lpAdrBook->ResolveName((ULONG)GetActiveWindow(), MAPI_DIALOG, NULL, lpAdrList))) {
LUIOut( LFAIL4, "ResolveName failed for unresolved names" );
retval = FALSE;
goto out;
}
LUIOut( LPASS4, "ResolveName passed for unresolved names." );
//Validate the AdrList
LUIOut(L4,"Validate the returned PropList");
if (ValidateAdrList(lpAdrList, cEntries))
LUIOut(LPASS4,"Validation passed");
else {
LUIOut(LFAIL4,"Validation unsuccessful");
retval = FALSE;
}
// Now add two unresolved names to the AdrList
LUIOut(L4,"Step3b: Add the following unresolved names to the list: ");
GetPrivateProfileString("ResolveName","ResName5","",szResName[4],BIG_BUF,INIFILENAME);
GetPrivateProfileString("ResolveName","ResName6","",szResName[5],BIG_BUF,INIFILENAME);
LUIOut(L4,"%s",szResName[4]);
LUIOut(L4,"%s",szResName[5]);
cEntries = 5;
MAPIAllocateBuffer(CbNewADRLIST(cEntries), (LPVOID *) &lpAdrListNew);
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrListNew->aEntries[1].rgPropVals));
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrListNew->aEntries[3].rgPropVals));
lpAdrListNew->cEntries = cEntries;
// Name 2
lpAdrListNew->aEntries[1].cValues = 1;
lpAdrListNew->aEntries[1].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrListNew->aEntries[1].rgPropVals->Value.LPSZ = szResName[4];
// Name 4
lpAdrListNew->aEntries[3].cValues = 1;
lpAdrListNew->aEntries[3].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrListNew->aEntries[3].rgPropVals->Value.LPSZ = szResName[5];
lpAdrListNew->aEntries[0] = lpAdrList->aEntries[0];
lpAdrListNew->aEntries[2] = lpAdrList->aEntries[1];
lpAdrListNew->aEntries[4] = lpAdrList->aEntries[2];
MAPIFreeBuffer(lpAdrList);
lpAdrList = NULL;
lpAdrList = lpAdrListNew;
// call ResolveName() w/ a mix of resolved and unresolved.
if(HR_FAILED(lpAdrBook->ResolveName((ULONG) GetActiveWindow(), MAPI_DIALOG, NULL, lpAdrList)))
{
LUIOut( LFAIL4, "ResolveName failed with resolved and unresolved names" );
retval = FALSE;
goto out;
}
LUIOut( LPASS4, "ResolveName passed with resolved and unresolved names" );
//Validate the AdrList
LUIOut(L4,"Validate the returned PropList");
if (ValidateAdrList(lpAdrList, cEntries))
LUIOut(LPASS4,"Validation passed");
else {
LUIOut(LFAIL4,"Validation unsuccessful");
retval = FALSE;
}
for(i=0; i<(int) cEntries; ++i)
MAPIFreeBuffer(lpAdrList->aEntries[i].rgPropVals);
MAPIFreeBuffer(lpAdrList );
lpAdrList = NULL;
GetPrivateProfileString("ResolveName","NonExistentName","",szResName[6],BIG_BUF,INIFILENAME);
LUIOut(L3,"Step 4: Resolve non existent name");
LUIOut(L3,"Name: %s",szResName[6]);
//call ResolveName() with a non-existant name
cEntries = 1;
MAPIAllocateBuffer(CbNewADRLIST(cEntries), (LPVOID *) &lpAdrList);
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[0].rgPropVals));
lpAdrList->cEntries = cEntries;
lpAdrList->aEntries[0].cValues = 1;
lpAdrList->aEntries[0].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals->Value.LPSZ = szResName[6];
if(lpAdrBook->ResolveName(0,0, NULL,lpAdrList) != MAPI_E_NOT_FOUND)
{
LUIOut( LFAIL4, "ResolveName did not return NOT FOUND" );
retval = FALSE;
goto out;
}
LUIOut( LPASS4, "ResolveName correctly returned MAPI_E_NOT_FOUND." );
MAPIFreeBuffer(lpAdrList->aEntries[0].rgPropVals );
MAPIFreeBuffer(lpAdrList );
lpAdrList = NULL;
//call ResolveName() w/ just the ambiguous name
cEntries = 1;
GetPrivateProfileString("ResolveName","AmbigousName","",szResName[7],BIG_BUF,INIFILENAME);
LUIOut(L2,"Step5: Resolve ambigous name");
LUIOut(L3,"Name: %s",szResName[7]);
MAPIAllocateBuffer(CbNewADRLIST(cEntries), (LPVOID *) &lpAdrList);
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[0].rgPropVals));
lpAdrList->cEntries = cEntries;
lpAdrList->aEntries[0].cValues = 1;
lpAdrList->aEntries[0].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals->Value.LPSZ = szResName[7];
if (hr = lpAdrBook->ResolveName((ULONG)GetActiveWindow(),MAPI_DIALOG, NULL, lpAdrList)
&&( hr != MAPI_E_AMBIGUOUS_RECIP)) {
LUIOut(LFAIL4, "ResolveName failed for name that was not specific enough");
retval = FALSE;
goto out;
}
else LUIOut(LPASS4,"ResolveName correctly returned MAPI_E_AMBUGUOUS_RECIP." );
MAPIFreeBuffer(lpAdrList->aEntries[0].rgPropVals);
MAPIFreeBuffer(lpAdrList);
lpAdrList = NULL;
//Resolves name using the oneoff provider
cEntries = 1;
GetPrivateProfileString("ResolveName","OneOffAddress","",szResName[8],BIG_BUF,INIFILENAME);
LUIOut(L2,"Resolve OneOff Name");
LUIOut(L3,"OneOff Address: %s",szResName[8]);
MAPIAllocateBuffer(CbNewADRLIST(cEntries), (LPVOID *) &lpAdrList);
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[0].rgPropVals));
lpAdrList->cEntries = cEntries;
lpAdrList->aEntries[0].cValues = 1;
lpAdrList->aEntries[0].rgPropVals->ulPropTag = PR_DISPLAY_NAME;
lpAdrList->aEntries[0].rgPropVals->Value.LPSZ = szResName[8];
if(HR_FAILED(lpAdrBook->ResolveName(0,0, NULL, lpAdrList)))
{
LUIOut( LFAIL4, "ResolveName failed for OneOffAddress" );
retval = FALSE;
goto out;
}
LUIOut( LPASS4, "ResolveName passed for OneOffAddress" );
//Validate the AdrList
LUIOut(L4,"Validate the returned PropList");
if (ValidateAdrList(lpAdrList, cEntries))
LUIOut(LPASS4,"Validation passed");
else {
LUIOut(LFAIL4,"Validation unsuccessful");
retval = FALSE;
}
MAPIFreeBuffer(lpAdrList->aEntries[0].rgPropVals);
MAPIFreeBuffer(lpAdrList );
lpAdrList = NULL;
cEntries = 0;
out:
if (cEntries > 0)
for (i=0;i<(int)cEntries; i++) {
MAPIFreeBuffer( lpAdrList->aEntries[i].rgPropVals );
}
if (lpAdrList) {
MAPIFreeBuffer( lpAdrList );
lpAdrList = NULL;
}
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL PABSetProps()
{
HRESULT hr = hrSuccess;
int retval=TRUE;
#ifdef PAB
int i=0;
int bFound = FALSE;
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
SPropValue PropValue[3];
LPSPropValue lpSPropValue = NULL;
ULONG cbEidPAB = 0;
LPENTRYID lpEidPAB = NULL;
LPABCONT lpPABCont= NULL;
LPMAILUSER lpUser=NULL;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
ULONG cbEid=0, cValues;
LPENTRYID lpEid=NULL;
ULONG ulObjType=NULL;
char szLocation[SML_BUF],szComment[SML_BUF];
SizedSPropTagArray(3,SPTTagArray) = {3, {PR_DISPLAY_NAME,
PR_OFFICE_LOCATION, PR_COMMENT} };
LUIOut(L1," ");
LUIOut(L1,"Running SetProps");
LUIOut(L2,"-> Sets properties on a MailUser in the PAB");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(L2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
if(!OpenPABID(IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpPABCont, OUT &ulObjType))
{
LUIOut(L2,"OpenPABID Failed");
LUIOut(L3,"Could not Open PAB");
retval=FALSE;
goto out;
}
assert(lpPABCont != NULL);
assert(lpContentsTable == NULL);
hr = lpPABCont->GetContentsTable( IN 0, //Flags
OUT &lpContentsTable);
if (HR_FAILED(hr)) {
LUIOut(L2,"GetContentsTable: Failed");
retval=FALSE;
goto out;
}
assert(lpContentsTable != NULL);
assert(lpRowSet == NULL);
while((bFound == FALSE) &&(!HR_FAILED(hr = lpContentsTable->QueryRows(IN 1,
IN 0,
OUT &lpRowSet)))) {
if (lpRowSet->cRows) {
i=0;
assert(lpRowSet != NULL);
while(lpRowSet->aRow[0].lpProps[i].ulPropTag != PR_OBJECT_TYPE)
if (++i >= (int) lpRowSet->aRow[0].cValues)
{
LUIOut( L2, "PR_OBJECT_TYPE not found in the row!" );
retval = FALSE;
goto out;
}
if(lpRowSet->aRow[0].lpProps[i].Value.ul == MAPI_MAILUSER)
bFound = TRUE;
else
{
FreeProws(lpRowSet);
lpRowSet = NULL;
}
}
else {
LUIOut(LFAIL2,"No Mail User Entry found in the PAB");
retval = FALSE;
if (lpRowSet) {
FreeProws(lpRowSet);
lpRowSet = NULL;
}
assert( lpRowSet == NULL);
goto out;
}
}
// check for QueryRows() errors
if (HR_FAILED(hr)){
LUIOut(L2,"QueryRows Failed");
retval = FALSE;
goto out;
}
if (bFound) {
i=0;
assert(lpRowSet != NULL);
while(lpRowSet->aRow[0].lpProps[i].ulPropTag != PR_ENTRYID)
if (++i >= (int) lpRowSet->aRow[0].cValues)
{
LUIOut( L2, "PR_ENTRYID not found in the row!" );
retval = FALSE;
goto out;
}
cbEid = lpRowSet->aRow[0].lpProps[i].Value.bin.cb;
lpEid = (LPENTRYID)lpRowSet->aRow[0].lpProps[i].Value.bin.lpb;
assert(lpAdrBook != NULL);
assert(lpUser == NULL);
hr = lpAdrBook->OpenEntry(cbEid, lpEid, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpUser);
if (HR_FAILED(hr)) {
LUIOut(LFAIL2, "OpenEntry with modify flag on first MailUser failed");
retval = FALSE;
goto out;
}
else LUIOut(LPASS2,"OpenEntry with modify flag on first MailUser passed");
GetPrivateProfileString("SetProps","Location","",szLocation,SML_BUF,szIniFile);
GetPrivateProfileString("SetProps","Comment","",szComment,SML_BUF,szIniFile);
cValues = 2;
PropValue[0].ulPropTag = PR_OFFICE_LOCATION;
PropValue[1].ulPropTag = PR_COMMENT;
PropValue[0].Value.LPSZ = (LPTSTR)szLocation;
PropValue[1].Value.LPSZ = (LPTSTR)szComment;
assert(lpUser != NULL);
hr = lpUser->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(LFAIL2,"SetProps failed for the MailUser");
retval=FALSE;
goto out;
}
assert(lpUser != NULL);
hr = lpUser->SaveChanges(IN KEEP_OPEN_READWRITE);
if (HR_FAILED(hr)) {
LUIOut(LFAIL2,"SaveChanges failed for SetProps");
retval=FALSE;
goto out;
}
else LUIOut(LPASS2,"Savechanges passed for the properties on the MailUser in PAB");
assert(lpUser != NULL);
assert(lpSPropValue == NULL);
hr = lpUser->GetProps(
IN (LPSPropTagArray) &SPTTagArray,
IN 0,
OUT &cValues,
OUT &lpSPropValue);
if ((HR_FAILED(hr))||(PropError(lpSPropValue->ulPropTag, cValues))) {
LUIOut( L2,"GetProps on Mail User failed" );
retval = FALSE;
goto out;
}
else {
LUIOut(L2,"Verification of Properties set");
LUIOut(L3,"Entry Name: %s",(lpSPropValue[0]).Value.LPSZ);
LUIOut(L3,"Location: %s",(lpSPropValue[1]).Value.LPSZ);
if (lstrcmpi((lpSPropValue[1]).Value.LPSZ, (LPSTR)szLocation))
retval = FALSE;
LUIOut(L3,"Comment: %s",(lpSPropValue[2]).Value.LPSZ);
if (lstrcmpi((lpSPropValue[2]).Value.LPSZ, (LPSTR)szComment))
retval = FALSE;
}
assert(lpUser != NULL);
hr = lpUser->SaveChanges(IN KEEP_OPEN_READWRITE);
if (HR_FAILED(hr)) {
LUIOut(LFAIL2,"SaveChanges, without changes, failed on Mail User in PAB");
retval=FALSE;
goto out;
}
else LUIOut(LPASS2,"SaveChanges, without changes, passed on Mail User in PAB");
}
else {
LUIOut(LPASS2,"No Mail User Entry found in the PAB to set the properties");
retval = FALSE;
}
out:
if (lpSPropValue)
MAPIFreeBuffer(lpSPropValue);
//if (lpEid)
// MAPIFreeBuffer(lpEid);
if (lpContentsTable)
lpContentsTable->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if(lpRowSet)
FreeProws(lpRowSet);
if(lpUser)
lpUser->Release();
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL PABQueryInterface()
{
HRESULT hr = hrSuccess;
int retval=TRUE;
#ifdef PAB
int i=0;
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
ULONG cbEidPAB = 0;
LPENTRYID lpEidPAB = NULL;
LPABCONT lpABCont= NULL, lpABCont2= NULL;
LPABCONT lpPABCont= NULL,lpPABCont2= NULL;
LPMAILUSER lpUser=NULL, lpUser2=NULL;
LPMAPITABLE lpContentsTable = NULL;
LPSRowSet lpRowSet = NULL;
ULONG cbEid=0;
LPENTRYID lpEid=NULL;
ULONG ulObjType=NULL;
LUIOut(L1," ");
LUIOut(L1,"Running QueryInterface");
LUIOut(L2,"-> Calls QueryInterface on all objects in the PAB");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(LFAIL2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
assert(lpAdrBook != NULL);
hr = lpAdrBook->OpenEntry(0, NULL, NULL,MAPI_MODIFY,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (!(retval = LogIt(hr,2, "OpenEntry on AddressBook")))
goto out;
if (ulObjType != MAPI_ABCONT) {
LUIOut(LFAIL2, "Object type is not MAPI_ABCONT");
retval = FALSE;
goto out;
}
LUIOut(LPASS2, "Object type is MAPI_ABCONT");
hr = (lpABCont->QueryInterface((REFIID)(IID_IUnknown), (VOID **) &lpABCont2));
if (!(retval = LogIt(hr,2, "QueryInterface on the Root Container")))
goto out;
if(lpABCont2)
(LPUNKNOWN)(lpABCont2)->Release();
else {
LUIOut(LFAIL2, "QueryInterface failed on the Root Container");
retval = FALSE;
}
lpABCont2 = NULL;
if(!OpenPABID(IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpPABCont, OUT &ulObjType))
{
LUIOut(L2,"OpenPABID Failed");
LUIOut(L3,"Could not Open PAB");
retval=FALSE;
goto out;
}
hr = (lpPABCont->QueryInterface((REFIID)(IID_IUnknown), (VOID **) &lpPABCont2));
if (!(retval = LogIt(hr,2, "QueryInterface on the PAB Container")))
goto out;
if(lpPABCont2)
(LPUNKNOWN)(lpPABCont2)->Release();
else {
LUIOut(LFAIL2, "QueryInterface failed on the Root Container");
retval = FALSE;
}
lpPABCont2 = NULL;
// Now open the PAB and get a user and do QueryInterface on the User
hr = lpPABCont->GetContentsTable( IN 0, //Flags
OUT &lpContentsTable);
if (HR_FAILED(hr)) {
LUIOut(LFAIL2,"GetContentsTable: Failed");
retval=FALSE;
goto out;
}
assert(lpContentsTable != NULL);
assert(lpRowSet == NULL);
hr = lpContentsTable->QueryRows(1, 0, OUT &lpRowSet);
if (!(retval = LogIt(hr,2, "QueryRows on the PAB Container")))
goto out;
if (lpRowSet->cRows) {
i=0;
while(lpRowSet->aRow[0].lpProps[i].ulPropTag != PR_ENTRYID )
if (++i >= (int) lpRowSet->aRow[0].cValues)
{
LUIOut(LFAIL2,"PR_ENTRYID not found in the row!" );
retval = FALSE;
goto out;
}
cbEid = lpRowSet->aRow[0].lpProps[i].Value.bin.cb;
lpEid = (LPENTRYID)lpRowSet->aRow[0].lpProps[i].Value.bin.lpb;
hr = lpPABCont->OpenEntry(cbEid, lpEid, NULL, 0, &ulObjType,(LPUNKNOWN *)&lpUser);
if (!(retval = LogIt(hr,2, "OpenEntry on EntryID for PAB Entry")))
goto out;
FreeProws(lpRowSet);
lpRowSet = NULL;
hr = lpUser->QueryInterface(IID_IUnknown, (VOID **) &lpUser2);
if (!(retval = LogIt(hr,2, "QueryInterface on an Entry in PAB")))
goto out;
if(lpUser2)
(LPUNKNOWN)(lpUser2)->Release();
else {
LUIOut(LFAIL2, "QueryInterface failed on an Entry in PAB");
retval = FALSE;
}
lpUser2 = NULL;
}
else {
LUIOut(LFAIL2, "No Entries found in the PAB");
retval = FALSE;
goto out;
}
out:
if (lpABCont)
lpABCont->Release();
if (lpABCont2)
lpABCont2->Release();
if (lpPABCont)
lpPABCont->Release();
if (lpPABCont2)
lpPABCont2->Release();
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpContentsTable)
lpContentsTable->Release();
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if(lpRowSet)
FreeProws(lpRowSet);
if(lpUser)
lpUser->Release();
if(lpUser2)
lpUser2->Release();
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL PABPrepareRecips()
{
HRESULT hr = hrSuccess;
int retval=TRUE;
#ifdef PAB
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL;
ULONG cEntries=0;
LPADRLIST lpAdrList = NULL;
char EntProp[10][BIG_BUF];
ULONG cbEidPAB = 0;
LPENTRYID lpEidPAB = NULL;
LPSPropValue lpSPropValueAddress = NULL;
LPSPropTagArray lpPropTagArray = NULL;
LPMAILUSER lpAddress = NULL;
SPropValue PropValue[3] = {0};
SizedSPropTagArray(1,SPTArrayAddress) = {1, {PR_DEF_CREATE_MAILUSER} };
char szEntryTag[SML_BUF],EntryBuf[MAX_BUF];
int i = 0,j=0, cPropCount=0;
ULONG cbEid=0, cbUserEid=0, cValues;
LPENTRYID lpEid = NULL, lpUserEid = NULL;
LUIOut(L1," ");
LUIOut(L1,"Running PrepareRecips");
LUIOut(L2,"-> Does Prepare Recipients Test on PAB");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(LFAIL2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(LFAIL2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpPABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
LUIOut(L3,"Could not Open PAB");
retval=FALSE;
goto out;
}
LUIOut(L2,"Create a User Entry in PAB");
hr = lpPABCont->GetProps( IN (LPSPropTagArray) &SPTArrayAddress,
IN 0, //Flags
OUT &cValues,
OUT &lpSPropValueAddress);
if ((HR_FAILED(hr))||(PropError(lpSPropValueAddress->ulPropTag, cValues))) {
LUIOut(L3,"GetProps failed for Default template");
retval=FALSE;
goto out;
}
cbUserEid = lpSPropValueAddress->Value.bin.cb;
if ( !MAPIAllocateBuffer(cbUserEid, (LPVOID *)&lpUserEid)) {
CopyMemory(lpUserEid, (LPENTRYID) lpSPropValueAddress->Value.bin.lpb, cbUserEid);
}
else {
retval = FALSE;
LUIOut(LFAIL3," MAPIAllocateBuffer failed");
goto out;
}
// The returned value of PR_DEF_CREATE_MAILUSER is an
// EntryID which one can pass to CreateEntry
//
hr = lpPABCont->CreateEntry(
IN lpSPropValueAddress->Value.bin.cb, //Template cbEid
IN (LPENTRYID) lpSPropValueAddress->Value.bin.lpb, //Template lpEid
IN 0,
OUT (LPMAPIPROP *) &lpAddress);
if (HR_FAILED(hr)) {
LUIOut(LFAIL3,"CreateEntry failed for PR_DEF_CREATE_MAILUSER");
retval=FALSE;
goto out;
}
//
// Then set the properties
//
PropValue[0].ulPropTag = PR_DISPLAY_NAME;
PropValue[1].ulPropTag = PR_ADDRTYPE;
PropValue[2].ulPropTag = PR_EMAIL_ADDRESS;
cValues = 3; //# of props we are setting
lstrcpy((LPSTR)szEntryTag,"CreateUserAddress");
// Addresses are comma delimited and enclosed in quotes
GetPrivateProfileString("PrepareRecips",szEntryTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
LUIOut(L3,"Entry to Create: %s",EntProp[0]);
for (i=0; i<(int)cValues;i++)
PropValue[i].Value.LPSZ = (LPTSTR)EntProp[i];
hr = lpAddress->SetProps(IN cValues,
IN PropValue,
IN NULL);
if (HR_FAILED(hr)) {
LUIOut(L3,"SetProps failed for %s",PropValue[0].Value.LPSZ);
retval=FALSE;
goto out;
}
hr = lpAddress->SaveChanges(IN KEEP_OPEN_READWRITE); //flags
if (HR_FAILED(hr)) {
LUIOut(L3,"SaveChanges failed for SetProps");
retval=FALSE;
goto out;
}
else LUIOut(LPASS3,"Entry Added to PAB");
LUIOut(L2,"Create a OneOff Entry in PAB");
// Create a oneoff user
cValues = 3;
lstrcpy((LPSTR)szEntryTag,"CreateOneOffAddress");
GetPrivateProfileString("PrepareRecips",szEntryTag,"",EntryBuf,MAX_BUF,INIFILENAME);
GetPropsFromIniBufEntry(EntryBuf,cValues,EntProp);
LUIOut(L3,"Entry to Create: %s",EntProp[0]);
hr = lpAdrBook->CreateOneOff(EntProp[0],EntProp[1],EntProp[2],NULL,&cbEid,&lpEid);
if (HR_FAILED(hr)) {
LUIOut(LFAIL3,"CreateOneOff");
retval=FALSE;
goto out;
}
else LUIOut(LPASS3,"CreateOneOff");
LUIOut(L2,"Call PrepareRecips on these two entries in the PAB");
cEntries = 2;
MAPIAllocateBuffer(CbNewADRLIST(cEntries), (LPVOID *) &lpAdrList );
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[0].rgPropVals));
MAPIAllocateBuffer(sizeof(SPropValue), (LPVOID *) &(lpAdrList->aEntries[1].rgPropVals));
lpAdrList->cEntries = cEntries;
lpAdrList->aEntries[0].cValues = 1;
lpAdrList->aEntries[0].rgPropVals->ulPropTag = PR_ENTRYID;
lpAdrList->aEntries[0].rgPropVals->dwAlignPad = 0;
lpAdrList->aEntries[0].rgPropVals->Value.bin.cb = cbUserEid;
lpAdrList->aEntries[0].rgPropVals->Value.bin.lpb = (LPBYTE) lpUserEid;
lpAdrList->aEntries[1].cValues = 1;
lpAdrList->aEntries[1].rgPropVals->ulPropTag = PR_ENTRYID;
lpAdrList->aEntries[1].rgPropVals->dwAlignPad = 0;
lpAdrList->aEntries[1].rgPropVals->Value.bin.cb = cbEid;
lpAdrList->aEntries[1].rgPropVals->Value.bin.lpb = (LPBYTE) lpEid;
cPropCount = 8;
MAPIAllocateBuffer( CbNewSPropTagArray(cPropCount), (void **)&lpPropTagArray );
lpPropTagArray->cValues = cPropCount;
lpPropTagArray->aulPropTag[0] = PR_DISPLAY_NAME;
lpPropTagArray->aulPropTag[1] = PR_OBJECT_TYPE;
lpPropTagArray->aulPropTag[2] = PR_ADDRTYPE;
lpPropTagArray->aulPropTag[3] = PR_EMAIL_ADDRESS;
lpPropTagArray->aulPropTag[4] = PR_DISPLAY_TYPE;
lpPropTagArray->aulPropTag[5] = PR_CALLBACK_TELEPHONE_NUMBER;
lpPropTagArray->aulPropTag[6] = PR_COMMENT;
lpPropTagArray->aulPropTag[7] = PR_OFFICE_LOCATION;
if( lpAdrBook->PrepareRecips( 0, lpPropTagArray, lpAdrList ) )
{
LUIOut(LFAIL3, "PrepareRecips failed" );
retval = FALSE;
goto out;
}
else LUIOut(LPASS3, "PrepareRecips passed" );
if(lpAdrList->cEntries == 0 )
{
LUIOut(LFAIL3, "No entries were prepared" );
retval = FALSE;
goto out;
}
LUIOut(L2,"Verify the returned Properties");
for ( i = 0; i < (int) cEntries; i++ ) {
LUIOut(L3,"Entry #: %d",i);
if (lpAdrList->aEntries[i].cValues != (ULONG)(cPropCount + 1)) {
LUIOut(LFAIL4, "Number of returned properties is incorrect");
retval = FALSE;
goto out;
}
else LUIOut(LPASS4, "Number of returned properties is correct");
for ( j = 0; j < cPropCount; j++ ) {
if ( PROP_ID(lpAdrList->aEntries[i].rgPropVals[j].ulPropTag) !=
PROP_ID(lpPropTagArray->aulPropTag[j])) {
LUIOut(LFAIL4, "Property IDs do not match in the returned data");
retval = FALSE;
goto out;
}
}
LUIOut(LPASS4, "All Property IDs match in the returned data");
if (lpAdrList->aEntries[i].rgPropVals[j].ulPropTag != PR_ENTRYID ) {
LUIOut(LFAIL4, "Last Property Tag != PR_ENTRYID");
retval = FALSE;
goto out;
} else LUIOut(LPASS4, "Last Property Tag == PR_ENTRYID");
}
out:
if (cEntries > 0)
for (i=0;i<(int)cEntries; i++) {
MAPIFreeBuffer( lpAdrList->aEntries[i].rgPropVals );
}
if (lpAdrList) {
MAPIFreeBuffer( lpAdrList );
lpAdrList = NULL;
}
if (lpPABCont)
lpPABCont->Release();
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpSPropValueAddress)
MAPIFreeBuffer(lpSPropValueAddress);
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpUserEid)
MAPIFreeBuffer(lpUserEid);
if (lpAddress)
lpAddress->Release();
if (lpPropTagArray)
MAPIFreeBuffer(lpPropTagArray);
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL PABCopyEntries()
{
HRESULT hr = hrSuccess;
int retval=TRUE;
#ifdef PAB
SizedSPropTagArray(2,SPTTagArray) = {2, {PR_DISPLAY_NAME, PR_ENTRYID } };
LPMAPISESSION lpMAPISession = NULL;
LPADRBOOK lpAdrBook = NULL;
LPABCONT lpPABCont= NULL,lpABCont = NULL, lpABPCont = NULL;
LPMAPITABLE lpABTable = NULL,lpABPTable= NULL;
LPSRowSet lpRowSet = NULL, lpPRowSet = NULL;
ULONG cbEid = 0, cbEidPAB = 0;
LPENTRYID lpEid = NULL, lpEidPAB = NULL;
ULONG ulObjType=NULL, ulSeed=0,ulMaxEntries = 0;
ULONG ulPRowCount=0, ulTotalCount=0;
int idx=0;
LONG lSeekRow=0,lRowsSeeked=0,lPRowsSeeked=0,lPSeekRow=0;
LPENTRYLIST lpEntries= NULL;
LUIOut(L1," ");
LUIOut(L1,"Running CopyEntries");
LUIOut(L2,"-> Copies Entries from other Providers into PAB");
LUIOut(L1," ");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(LFAIL2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT &lpAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(LFAIL2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
hr = OpenPABID( IN lpAdrBook, OUT &cbEidPAB,
OUT &lpEidPAB,OUT &lpPABCont, OUT &ulObjType);
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenPABID Failed");
LUIOut(L3,"Could not Open PAB");
retval=FALSE;
goto out;
}
assert(lpAdrBook != NULL);
hr = lpAdrBook->OpenEntry(0, NULL, NULL,0,&ulObjType, (LPUNKNOWN *) &lpABCont);
if (!(retval = LogIt(hr,2, "OpenEntry on Root Container AddressBook")))
goto out;
if (ulObjType != MAPI_ABCONT) {
LUIOut(LFAIL2, "Object type is not MAPI_ABCONT");
retval = FALSE;
goto out;
}
LUIOut(LPASS2, "Object type is MAPI_ABCONT");
hr = lpABCont->GetHierarchyTable(CONVENIENT_DEPTH,&lpABTable);
// hr = lpABCont->GetHierarchyTable(0,&lpABTable);
if (!(retval = LogIt(hr,2, "GetHierarchyTable on Root Container")))
goto out;
hr = lpABTable->GetRowCount(0,&ulTotalCount);
if (!(retval = LogIt(hr,2, "GetRowCount on Root Container")))
goto out;
if (ulTotalCount == 0)
{
LUIOut(LFAIL2,"No rows in Root AddressBook table.");
retval = FALSE;
goto out;
}
hr = lpABTable->SetColumns(IN (LPSPropTagArray) &SPTTagArray,
IN 0);
if (!(retval = LogIt(hr,2, "SetColumns")))
goto out;
ulSeed = (unsigned)time( NULL );
//LUIOut(LPASS3, "Random seed = %lu", ulSeed );
srand(ulSeed);
ulMaxEntries = GetPrivateProfileInt("CopyEntries","ulMaxEntries", 3, INIFILENAME);
for(idx = 0; (idx < ((int)ulTotalCount) && (idx < (int) ulMaxEntries)); ++idx)
{
/* Generate a random number */
/* Seek to that row */
lSeekRow = idx;
hr = lpABTable->SeekRow(BOOKMARK_BEGINNING, (LONG)lSeekRow,
&lRowsSeeked);
if (!(retval = LogIt(hr,2, "SeekRow on Root Address Book Table")))
goto out;
hr = lpABTable->QueryRows(1, TBL_NOADVANCE, &lpRowSet);
if (!(retval = LogIt(hr,2, "QueryRows on Root Address Book Table")))
goto out;
LUIOut(L3," # %d: Provider is %s",idx+1,lpRowSet->aRow[0].lpProps[0].Value.LPSZ);
cbEid = lpRowSet->aRow[0].lpProps[1].Value.bin.cb;
lpEid = (LPENTRYID)lpRowSet->aRow[0].lpProps[1].Value.bin.lpb;
/* Open the entry */
hr = lpAdrBook->OpenEntry(cbEid,lpEid, NULL, 0, &ulObjType,
OUT (LPUNKNOWN *) &lpABPCont);
if (!(retval = LogIt(hr,4, "OpenEntry on an entry in the hierarchy table")))
goto out;
hr = lpABPCont->GetContentsTable(0, &lpABPTable);
if (HR_FAILED(hr))
goto directory;
LUIOut(LPASS4,"GetContentsTable");
hr = lpABPTable->GetRowCount(0, &ulPRowCount);
if (!(retval = LogIt(hr,4, "GetRowCount on Provider table")))
goto out;
if(ulPRowCount > 0)
{
hr = lpABPTable->SetColumns(IN (LPSPropTagArray) &SPTTagArray, 0);
if (!(retval = LogIt(hr,4, "SetColumns on Provider table")))
goto out;
lPSeekRow = (rand() % ulPRowCount);
hr = lpABPTable->SeekRow(BOOKMARK_BEGINNING, (LONG)lPSeekRow,
&lPRowsSeeked);
if (!(retval = LogIt(hr,4, "SeekRows on Provider table")))
goto out;
hr = lpABPTable->QueryRows(1, TBL_NOADVANCE, &lpPRowSet);
if (!(retval = LogIt(hr,4, "QueryRows on Provider table")))
goto out;
if(!lpPRowSet->cRows)
goto directory;
else
{
LUIOut(L3,"Entry to Copy is %s",lpPRowSet->aRow[0].lpProps[0].Value.LPSZ);
/* Copy the entry */
int temp = sizeof(ENTRYLIST);
MAPIAllocateBuffer(sizeof(ENTRYLIST),(LPVOID *)&lpEntries);
if (lpEntries ) {
lpEntries->cValues = 1;
lpEntries->lpbin = NULL;
MAPIAllocateBuffer((sizeof(SBinary)*lpEntries->cValues),
(LPVOID *) &(lpEntries->lpbin));
if (lpEntries->lpbin) {
lpEntries->lpbin->cb = lpPRowSet->aRow[0].lpProps[1].Value.bin.cb;
lpEntries->lpbin->lpb = NULL;
MAPIAllocateBuffer(lpPRowSet->aRow[0].lpProps[1].Value.bin.cb,
(LPVOID *)&(lpEntries->lpbin->lpb));
if (lpEntries->lpbin->lpb) {
CopyMemory(lpEntries->lpbin->lpb,
lpPRowSet->aRow[0].lpProps[1].Value.bin.lpb,
(size_t)lpPRowSet->aRow[0].lpProps[1].Value.bin.cb);
}
else {
LUIOut(LFAIL3,"MAPIAllocateBuffer" );
retval = FALSE;
goto out;
}
}
else {
LUIOut(LFAIL3,"MAPIAllocateBuffer" );
retval = FALSE;
goto out;
}
}
else {
LUIOut(LFAIL3,"MAPIAllocateBuffer" );
retval = FALSE;
goto out;
}
/* Add to PAB */
hr = lpPABCont->CopyEntries(lpEntries, (ULONG)GetActiveWindow(), NULL, CREATE_CHECK_DUP_STRICT);
if (HR_FAILED(hr))
{
LUIOut(LFAIL3,"User could not be added to the PAB." );
retval = FALSE;
goto out;
}
LUIOut(LPASS3,"User was added to the PAB");
/* Free the EntryList */
MAPIFreeBuffer(lpEntries->lpbin->lpb);
lpEntries->lpbin->lpb = NULL;
MAPIFreeBuffer(lpEntries->lpbin);
lpEntries->lpbin = NULL;
MAPIFreeBuffer(lpEntries);
lpEntries = NULL;
/* Free Row */
if (lpPRowSet) {
FreeProws(lpPRowSet);
lpPRowSet = NULL;
}
}
}
else //if (lstrcmpi(lpRowSet->aRow[0].lpProps[0].Value.LPSZ,"Personal Address Book"))
directory:
{
//--idx;
/* We want to decrement our counter so we dont add x-1. */
LUIOut(L3, "Nothing to add. No Rows in the Provider");
}
if(lpABPTable) {
lpABPTable->Release();
lpABPTable = NULL;
}
if(lpABPCont) {
lpABPCont->Release();
lpABPCont = NULL;
}
if (lpRowSet) {
FreeProws(lpRowSet);
lpRowSet = NULL;
}
}
out:
if (lpEntries) {
if (lpEntries->lpbin) {
if (lpEntries->lpbin->lpb)
MAPIFreeBuffer(lpEntries->lpbin->lpb);
MAPIFreeBuffer(lpEntries->lpbin);
}
MAPIFreeBuffer(lpEntries);
lpEntries->lpbin = NULL;
}
if(lpRowSet)
FreeProws(lpRowSet);
if(lpPRowSet)
FreeProws(lpPRowSet);
if (lpPABCont)
lpPABCont->Release();
if (lpABCont)
lpABCont->Release();
if (lpABPCont)
lpABPCont->Release();
if (lpEidPAB)
MAPIFreeBuffer(lpEidPAB);
if (lpEid)
MAPIFreeBuffer(lpEid);
if (lpABTable)
lpABTable->Release();
if (lpABPTable)
lpABPTable->Release();
//if (lpUserEid)
// MAPIFreeBuffer(lpUserEid);
if (lpAdrBook)
lpAdrBook->Release();
if (lpMAPISession)
lpMAPISession->Release();
MAPIUninitialize();
#endif
return retval;
}
BOOL PABRunBVT()
{
LUIOut(L1,"");
LUIOut(L1,"Running BVT");
int retval = TRUE;
//First Clear the PAB
if (ClearPab(0)) {
LUIOut(L2,"Clearing PAB");
LUIOut(LPASS3,"Delete All Entries");
}
else {
LUIOut(LFAIL3,"Delete All Entries: %d");
retval = FALSE;
}
// Create Entries in the PAB
if (PabCreateEntry()) {
LUIOut(L2,"Creating Entries in the PAB");
LUIOut(LPASS3,"Create Entries");
}
else {
LUIOut(LFAIL3,"Create Entries");
retval = FALSE;
}
//Enuerate the Entries in PAB
if (PabEnumerateAll()) {
LUIOut(L2,"Enumerate All Entries in the PAB");
LUIOut(LPASS3,"Enumerate All");
}
else {
LUIOut(LFAIL3,"Enumerate All");
retval = FALSE;
}
//Delete Entries in PAB
if (PabDeleteEntry()) {
LUIOut(L2,"Delete specified Entries");
LUIOut(LPASS3,"DeleteEntries");
}
else {
LUIOut(LFAIL3,"DeleteEntries");
retval = FALSE;
}
// Create a OneOff Entry
if (CreateOneOff()) {
LUIOut(L2,"Create a OneOff Entry in the PAB");
LUIOut(LPASS3,"CreateOneOff");
}
else {
LUIOut(LFAIL3,"CreateOneOff");
retval = FALSE;
}
// Do a SetProps on a Mail User
if (PABSetProps()) {
LUIOut(L2,"SetProps on a Mail User Entry in the PAB");
LUIOut(LPASS3,"SetProps");
}
else {
LUIOut(LFAIL3,"SetProps");
retval = FALSE;
}
// CopyEntries from other providers
if (PABCopyEntries()) {
LUIOut(L2,"CopyEntries");
LUIOut(LPASS3,"CopyEntries");
}
else {
LUIOut(LFAIL3,"CopyEntries");
retval = FALSE;
}
// Resolve Names
if (PABResolveName()) {
LUIOut(L2,"ResolveName");
LUIOut(LPASS3,"ResolveName");
}
else {
LUIOut(LFAIL3,"ResolveName");
retval = FALSE;
}
// Query Interface
if (PABQueryInterface()) {
LUIOut(L2,"ResolveName");
LUIOut(LPASS3,"QueryInterface");
}
else {
LUIOut(LFAIL3,"QueryInterface");
retval = FALSE;
}
// PrepareRecips
if (PABPrepareRecips()) {
LUIOut(L2,"PrepareRecips");
LUIOut(LPASS3,"PrepareRecips");
}
else {
LUIOut(LFAIL3,"PrepareRecips");
retval = FALSE;
}
// Delete Users Only
if (ClearPab(1)) {
LUIOut(L2,"Delete Mail Users Only");
LUIOut(LPASS3,"DeleteUsers");
}
else {
LUIOut(LFAIL3,"DeleteUsers");
retval = FALSE;
}
return retval;
}
INT_PTR CALLBACK SetIniFile(HWND hWndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
static char szNewIniFile[BIG_BUF];
switch(msg)
{
case WM_INITDIALOG:
SendDlgItemMessage(hWndDlg,IDC_EDIT,WM_SETTEXT, 0,(LPARAM)(LPCTSTR)szIniFile);
SetFocus(GetDlgItem(hWndDlg,IDC_EDIT));
return FALSE;
case WM_COMMAND:
switch(LOWORD(wParam))
{
case IDOK:
SendDlgItemMessage(hWndDlg,IDC_EDIT,WM_GETTEXT, BIG_BUF,(LPARAM)szNewIniFile);
if (lstrcmpi(szNewIniFile,szIniFile))
lstrcpy(szIniFile,szNewIniFile);
EndDialog(hWndDlg,TRUE);
return TRUE;
case IDCANCEL:
EndDialog(hWndDlg,FALSE);
return TRUE;
}
break;
default:
return FALSE;
}
return FALSE;
}
BOOL VerifyBuffer(DWORD ** lppvBufPtr, DWORD dwBufferSize)
{
DWORD *lpdwWrkPtr = *lppvBufPtr;
DWORD counter, cells, part, cellsize;
BYTE *lpbPart;
// Walk through the allocated buffer's BUFFERSIZE/sizeof(DWORD) cells
// and fill each DWORD with a pattern (the # of the cell). Then walk
// the buffer and verify each pattern.
cellsize = sizeof(DWORD);
LUIOut(L3,"Writing test patterns to all cells in the buffer.");
cells = (dwBufferSize/cellsize); // How many DWORD cells in the buffer?
part= (ULONG)fmod((double)dwBufferSize, (double)cellsize); // Is there a remaining section?
// Write the pattern to memory for the 'cells' portion of the buffer
for(counter=0; counter < cells; counter++, lpdwWrkPtr++) {
*lpdwWrkPtr = counter;
}
lpbPart = (BYTE*)lpdwWrkPtr;
// Write the pattern to memory for the 'part' leftover portion of the buffer
for (counter = 0; counter < part; counter++, lpbPart++) {
*lpbPart = PATTERN;
}
lpdwWrkPtr = *lppvBufPtr; //reset work pointer to beginning of buffer
LUIOut(L3,"Verifying test patterns for %u %u-byte cells in the buffer.",
cells, cellsize);
// Verify the pattern in memory for the 'cells' portion of the buffer
for(counter=0; counter < cells; counter++, lpdwWrkPtr++) {
if (*lpdwWrkPtr != counter) {
LUIOut(L3,"Verification Failed: Cell %u, expected %u but found %u",
counter, counter, *lpdwWrkPtr);
goto bailout;
}
}
LUIOut(L3,"Verified %u cells succesfully", counter);
LUIOut(L3,"Verifying test patterns for the remaining %u bytes in the buffer.",
part);
// Verify the pattern in memory for the 'part' leftover portion of the buffer
lpbPart = (BYTE*)lpdwWrkPtr;
for(counter=0; counter < part; counter++, lpdwWrkPtr++) {
if (*lpbPart != PATTERN) {
LUIOut(L3,"Verification Failed: Byte %u, expected %u but found %u",
counter, PATTERN, *lpdwWrkPtr);
goto bailout;
}
}
LUIOut(L3,"Verified remaining buffer succesfully");
return TRUE;
bailout: //verification failed, so I'm outa here!
return FALSE;
}
BOOL GetAB(OUT LPADRBOOK* lppAdrBook)
{
HRESULT hr;
BOOL retval = TRUE;
//### token to find pab/wab dependencies
#ifdef WAB
// WAB
LPVOID lpReserved = NULL;
DWORD dwReserved = 0;
WAB_PARAM WP;
ZeroMemory((void *)&WP, sizeof(WAB_PARAM));
WP.cbSize=sizeof(WAB_PARAM);
LUIOut(L1, "[ Using the WAB ]");
lpWABObject=NULL;
// hr = WABOpen(lppAdrBook, &lpWABObject, &WP, dwReserved);
hr = WABOpen(lppAdrBook, &lpWABObject, (WAB_PARAM*)lpReserved, dwReserved);
if (HR_FAILED(hr)) {
LUIOut(L2,"WABOpen FAILED with hr = 0x%x", hr);
retval=FALSE;
goto out;
}
// store the ab pointer in a global variable, temporary kludge to workaround
// the mulitple wabopen/release bug
glbllpAdrBook = *lppAdrBook;
#endif
#ifdef PAB
// MAPI-PAB
LUIOut(L1, "[ Using the MAPI-PAB ]");
if (!(MapiInitLogon(OUT &lpMAPISession))) {
LUIOut(L2,"MapiInitLogon Failed");
retval = FALSE;
goto out;
}
// Get the IAddrBook - MAPI
hr = (lpMAPISession)->OpenAddressBook(
IN 0, //window handle
IN NULL, //Interface identifier
IN 0, //flags
OUT lppAdrBook); //pointer to address book object
if (HR_FAILED(hr)) {
LUIOut(L2,"OpenAddressBook Failed");
LUIOut(L3,"Could not open address book for the profile");
retval=FALSE;
goto out;
}
#endif
out:
return(retval);
}