COM

Deleting intermediate files and output files for project 'CarCOMExe - Win32 Debug'.
--------------------Configuration: CarCOMExe - Win32 Debug--------------------
Creating Type Library...
Processing F:\COM\CarCOMExe\CarCOMExeTypeInfo.idl
CarCOMExeTypeInfo.idl
Processing F:\Microsoft Visual Development\Microsoft Visual Studio\VC98\INCLUDE\oaidl.idl
oaidl.idl
Processing F:\Microsoft Visual Development\Microsoft Visual Studio\VC98\INCLUDE\objidl.idl
objidl.idl
Processing F:\Microsoft Visual Development\Microsoft Visual Studio\VC98\INCLUDE\unknwn.idl
unknwn.idl
Processing F:\Microsoft Visual Development\Microsoft Visual Studio\VC98\INCLUDE\wtypes.idl
wtypes.idl
Compiling...
StdAfx.cpp
Compiling...
Car.cpp
CarClassFactory.cpp
CarCOMExe.cpp
f:\com\carcomexe\carclassfactory.h(13) : error C2504: 'IClassFactory' : base class undefined
f:\com\carcomexe\carclassfactory.h(19) : error C2061: syntax error : identifier 'REFIID'
f:\com\carcomexe\carclassfactory.h(25) : error C2061: syntax error : identifier 'LPUNKNOWN'
F:\COM\CarCOMExe\CarCOMExe.cpp(32) : error C2065: 'CoInitialize' : undeclared identifier
F:\COM\CarCOMExe\CarCOMExe.cpp(36) : error C2065: 'ITypeLib' : undeclared identifier
F:\COM\CarCOMExe\CarCOMExe.cpp(36) : error C2065: 'pTLib' : undeclared identifier
F:\COM\CarCOMExe\CarCOMExe.cpp(36) : error C2106: '=' : left operand must be l-value
F:\COM\CarCOMExe\CarCOMExe.cpp(37) : error C2065: 'LoadTypeLibEx' : undeclared identifier
F:\COM\CarCOMExe\CarCOMExe.cpp(37) : error C2065: 'REGKIND_REGISTER' : undeclared identifier
F:\COM\CarCOMExe\CarCOMExe.cpp(38) : error C2227: left of '->Release' must point to class/struct/union
F:\COM\CarCOMExe\CarCOMExe.cpp(48) : error C2065: 'CoRegisterClassObject' : undeclared identifier
F:\COM\CarCOMExe\CarCOMExe.cpp(48) : error C2065: 'IClassFactory' : undeclared identifier
F:\COM\CarCOMExe\CarCOMExe.cpp(48) : error C2059: syntax error : ')'
F:\COM\CarCOMExe\CarCOMExe.cpp(61) : error C2065: 'CoRevokeClassObject' : undeclared identifier
F:\COM\CarCOMExe\CarCOMExe.cpp(65) : error C2065: 'CoUninitialize' : undeclared identifier
locks.cpp
Generating Code...
Error executing cl.exe.
Creating browse info file...

CoCarEXE.exe - 15 error(s), 0 warning(s)

#define CarClassFactory_H

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

#include <windows.h>

class CarClassFactory : public IClassFactory
{
public:
	CarClassFactory();
	virtual ~CarClassFactory();

	// IUnknown
	STDMETHODIMP QueryInterface(REFIID riid,void** pIFace);
	STDMETHODIMP_(ULONG)AddRef();
	STDMETHODIMP_(ULONG)Release();

	// IClassFactory
	STDMETHODIMP LockServer(BOOL fLock);
	STDMETHODIMP CreateInstance(LPUNKNOWN pUnkOuter,REFIID riid,void** ppv);

private:

	ULONG m_refCount;

};
#endif

#include "stdafx.h"
#include "CarCOMExeTypeInfo_i.c"	// MIDL file
#include "CarClassFactory.h"		// MIDL file
#include <string.h>


// Our global counter for locks & active objects.
DWORD g_allLocks;


int APIENTRY WinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPSTR     lpCmdLine,
                     int       nCmdShow)
{
	// Init COM.
	CoInitialize(NULL); 	

	// Let's register the type lib.
	// to get the 'free' type library marsahler.
	ITypeLib* pTLib = NULL;
	LoadTypeLibEx(L"CarCOMExeTypeInfo.tlb", REGKIND_REGISTER, &pTLib);
	pTLib->Release();
	
	// Let's see if we were started by SCM.
	if(strstr(lpCmdLine, "/Embedding") || strstr(lpCmdLine, "-Embedding"))
	{
		// Create the Car class object.
		CarClassFactory carClassFactory;

		// Register the Car Factory.
		DWORD regID = 0;
		CoRegisterClassObject(CLSID_Car, (IClassFactory*)&carClassFactory, 
							  CLSCTX_LOCAL_SERVER, REGCLS_MULTIPLEUSE, ®ID);

		// Now just run until a quit message is sent,
		// in responce to the final release.
		MSG ms;
		while(GetMessage(&ms, 0, 0, 0))
		{
			TranslateMessage(&ms);
			DispatchMessage(&ms);
		}

		// All done, so remove class object.
		CoRevokeClassObject(regID);	
	}

	// Terminate COM.
	CoUninitialize();	
	MessageBox(NULL, "Server is dying", "EXE Message!", MB_OK | MB_SETFOREGROUND);
	return 0;
}

if(pMsg) {<br />
// Get the from and subject<br />
LPSPropValue rgMsgprops = NULL;<br />
ULONG cMsgValues = 0;<br />
SizedSPropTagArray(2, rgMsgTags) = {2,{PR_SENDER_NAME,<br />
  PR_SUBJECT}};<br />
<br />
hr = pMsg->GetProps((LPSPropTagArray)&rgMsgTags,<br />
  MAPI_UNICODE, &cMsgValues, &rgMsgprops);<br />
<br />
// Get the body<br />
IStream *pStream = NULL;<br />
TCHAR tchBody[255] = TEXT("\0");<br />
<br />
hr = pMsg->OpenProperty(PR_BODY, NULL, 0, 0,<br />
  (IUnknown **)&pStream);<br />
if(FAILED(hr)) {<br />
  pMsg->Release();<br />
  pIInboxTable->Release();<br />
  pPOPInboxFolder->Release();<br />
  return FALSE;<br />
}<br />
<br />
// Read from the stream into the tchBody<br />
hr = pStream->Read(tchBody, 254, NULL);<br />
pStream->Release();<br />
<br />
// Do something with it:<br />
TCHAR tchMsg[1024] = TEXT("\0");<br />
wsprintf(tchMsg, TEXT("From: %s\r\nSubject: %s\r\nMsg: %s"), rgMsgprops[0].Value.lpszW,rgMsgprops[1].Value.lpszW, tchBody); <br />
// MessageBox(NULL, tchMsg, TEXT("New Message!"), MB_OK|MB_ICONINFORMATION);<br />
<br />
// Msg cleanup<br />
MAPIFreeBuffer(rgMsgprops);<br />
pMsg->Release();

<br />
_ApplicationPtr word(L"Word.Application");<br />
word->Visible = true;<br />
word->Activate();<br />

<br />
RangePtr myRange = word1->Selection->Font->Underline = WdUnderline.wdUnderlineSingle;<br />