How To Remove a Published Form from a Folder Using Visual C++ (200180)

MORE INFORMATION

//Link with: kernel32.lib user32.lib advapi32.lib msvcrt.lib edkdebug.lib mapi32.lib version.lib edkmapi.lib edkutils.lib addrlkup.lib rulecls.lib edkguid.lib
#include <edk.h>

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE, 
                    LPSTR pszCmd, int nCmdShow)
{
	LPMAPISESSION  lpSession = NULL;
	LPMDB          lpStore = NULL;
	LPMAPIFOLDER   lpFolder = NULL;
	ULONG          cbEIDFolder = 0;
	LPENTRYID      lpEIDFolder = NULL;
	HRESULT        hr = NULL;
	LPMAPITABLE    lpTable = NULL;
	CHAR           szFolder[MAX_PATH + 1] = {0};
	ULONG          ulUIParam = 0;
	LPCIID         lpInterface = NULL;
	ULONG          ulFlags = MAPI_BEST_ACCESS;
	LPSRestriction lpRes = NULL;
	ULONG          lpulCount = NULL;
	LPSRowSet      lpRows = NULL;
	LPMAPIPROP     lpMAPIProp = NULL;
	ENTRYLIST      eidMsg;
	char           szDisplayName[50];
	char           szMess[100];
	
	SizedSPropTagArray(2, Columns) =
	{
		2,  // number of properties
		{
			PR_ENTRYID,
				PR_DISPLAY_NAME
		}
	};
	
	// TO DO: Change Form Name
	sprintf(szDisplayName,"FormName");
	
	hr = MAPIInitialize(NULL);
	if (FAILED(hr))
	{
		return 1;
	}
	hr = MAPILogonEx(0, "", NULL,
		MAPI_LOGON_UI | MAPI_NEW_SESSION |  MAPI_EXPLICIT_PROFILE ,
		&lpSession);
	if (FAILED(hr))
	{
		MessageBox(NULL,"MAPI Logon failed",NULL,MB_OK);
		goto cleanup;
	}
	
	hr = HrOpenExchangePrivateStore(lpSession,&lpStore); 
	if (FAILED(hr))
	{
		MessageBox(NULL,"Message Store Not Opened",NULL,MB_OK);
		goto cleanup;
	}
	strcpy(szFolder, "Top of Information Store\\Inbox");
	
	hr = HrMAPIFindFolderEx(lpStore,
		'\\',
		szFolder,
		&cbEIDFolder,
		&lpEIDFolder);
	if (FAILED(hr))
	{
		MessageBox(NULL,"Inbox Not Found",NULL,MB_OK);
		goto cleanup;
	}
	
	hr = HrMAPIOpenFolderEx (lpStore,'\\',szFolder,&lpFolder); 
	if (FAILED(hr))
	{
		MessageBox(NULL,"Inbox Could Not Be Opened",NULL,MB_OK);
		goto cleanup;
	}
	
	if (FAILED(hr = lpFolder->GetContentsTable(MAPI_ASSOCIATED,&lpTable)))
	{
		MessageBox(NULL,"GetContentsTable Failed",NULL,MB_OK);
		goto cleanup;
	}
	if (FAILED(hr = lpTable->SetColumns( (LPSPropTagArray)&Columns,NULL )))
	{
		MessageBox(NULL,"SetColumns Failed",NULL,MB_OK);
		goto cleanup;
	}
	if (FAILED(hr = HrStringToRestriction(
		"PR_MESSAGE_CLASS = \"IPM.Microsoft.FolderDesign.FormsDescription\"",
		NULL,&lpRes)))
	{
		MessageBox(NULL,"HrStringToRestriction Failed",NULL,MB_OK);
		goto cleanup;
	}
	
	if (FAILED(hr = lpTable->Restrict(lpRes,0L)))
	{
		MessageBox(NULL,"Restrict Failed",NULL,MB_OK);
		goto cleanup;
	}
	
	if (FAILED(hr = lpTable->GetRowCount(0,&lpulCount)))
	{
		MessageBox(NULL,"GetRowCount Failed",NULL,MB_OK);
		goto cleanup;
	}
	
	if (lpulCount > 0)
	{
		if (FAILED(hr = lpTable->QueryRows(lpulCount,TBL_NOADVANCE,
			&lpRows)))
		{
			MessageBox(NULL,"QueryRows Failed",NULL,MB_OK);
			goto cleanup;
		}
		
		for (ULONG i=0; i < lpulCount; i++)
		{
			if (0 == strcmp(szDisplayName,lpRows->aRow[i].lpProps[1].Value.lpszA))
			{
				eidMsg.cValues = 1; 
				eidMsg.lpbin   = &lpRows->aRow[i].lpProps[0].Value.bin;
				
				if (FAILED(hr = lpFolder->DeleteMessages(&eidMsg, 0L, NULL,
					MESSAGE_DIALOG)))
				{
					sprintf(szMess, "DeleteMessages Failed error %x",hr);
					MessageBox(0L,szMess,"Error",MB_OK);
					goto cleanup;
				}
				else
				{
					sprintf(szMess, "DeleteMessages Completed with hr = %x",hr);
					MessageBox(0L,szMess,"Information",MB_OK);
				}
			}
		}
	}
	else
	{
        sprintf(szMess, "No forms Found");
        MessageBox(0L,szMess,"Error",MB_OK);
	}
	
cleanup:
	
	if (lpFolder)
	{
		lpFolder->Release();
		lpFolder = NULL;
	}
	
	if (lpTable)
	{
		lpTable->Release();
		lpTable = NULL;
	}
	
	if (lpStore)
	{
		lpStore->Release();
		lpStore = NULL;
	}
	
	if (lpRows)
		FREEPROWS(lpRows);
	
	if (lpSession)
	{
		lpSession->Logoff(0, 0, 0);
		ULRELEASE(lpSession);
	}
	MAPIUninitialize();
	return 0;
}