C# Managed Event Sink -- how to use CDO to get Subject and Message Body

[Notlwonk]

I have written an event sink in C# that hooks into our Exchange Server
2000 store.

The sink fires and the various LOG files are created, but for some
reason I cannot seem to read-in the e-mail Subject or Message Body for
the e-mail that triggers the Event Sink to run.

What am I doing wrong?

Thank you,

Tom

=============== ===============
using System;
using System.Runtime. InteropServices ;
using System.Xml;
using CDO;
using ADODB;
using System.IO;
using System.Text;
using System.Enterpri seServices;

namespace MyEventSink
{
/// <summary>
/// Summary description for Class1.
/// </summary>
[Guid("16369924-5F32-4E26-AE89-8308B5C162E2")]

public class ExchEventSink: ServicedCompone nt , IExStoreAsyncEv ents
{
//public string ClassID = "F92EFC3A-FDD8-4225-B005-13FD3D5D54D1";
//public string InterfaceId =
"704A413F-F8FE-476B-9206-69AB6300D752";
//public string EventsId = "DCC71BD5-6627-4FBF-BB5A-DB8FEA1EB177";

public string ClassID = "cf63289d-18d1-43af-ba90-9e41cac93ee6";
public string InterfaceId = "323733b0-3c0d-47d4-86fa-fd67d651cf81";
public string EventsId = "3721271c-65f0-441a-91d6-6a86d1c75846";
public ExchEventSink()
{
}

#region IExStoreAsyncEv ents Members

public void OnSave(IExStore EventInfo pEventInfo, string bstrURLItem,
int lFlags)
{
try
{
if(System.Conve rt.ToBoolean(lF lags))
{
Process_mail(pE ventInfo, bstrURLItem);

FileStream fs = new
FileStream(@"c: \temp\ProofThat OnSaveIsWorking .log",FileMode. OpenOrCreate);
fs.Write(Encodi ng.ASCII.GetByt es(bstrURLItem) ,0,bstrURLItem. Length);
fs.Close();
}
}
catch (Exception ex)
{
throw (ex);
}
}

public void OnDelete(IExSto reEventInfo pEventInfo, string
bstrURLItem, int lFlags)
{
try
{

}
catch(Exception ex)
{
throw (ex);
}
}
#endregion
public void Process_mail(IE xStoreEventInfo pEventInfo, string
bstrURLItem)
{
try
{
FileStream fs = new
FileStream(@"c: \temp\MyEventSi nk.log",FileMod e.OpenOrCreate) ;
fs.Write(Encodi ng.ASCII.GetByt es(bstrURLItem) ,0,bstrURLItem. Length);
fs.Close();
}
catch(System.Ru ntime.InteropSe rvices.COMExcep tion ee)
{
throw(ee);
}
catch(Exception tom)
{
throw (tom);
}

try
{
CDO.Message iMessage=new CDO.MessageClas s();
ADODB.Stream stm;
CDO.IBodyPart iPrt;
int i;
int aNum;
string eName;
string fName;
string sFrom;
string sDate;
string sBody;
string sSubject;

iMessage.DataSo urce.Open(bstrU RLItem,null,ADO DB.ConnectModeE num.adModeRead, ADODB.RecordCre ateOptionsEnum. adFailIfNotExis ts,ADODB.Record OpenOptionsEnum .adOpenSource," ","");

//IExStoreDispEve ntInfo
newEventInfo=(I ExStoreDispEven tInfo)pEventInf o;
//ADODB.Record record=(ADODB.R ecord)newEventI nfo.EventRecord ;
sSubject = iMessage.Subjec t;
sBody = iMessage.TextBo dy;
sFrom = iMessage.From;
sDate = iMessage.Receiv edTime.ToString ();
aNum = iMessage.Attach ments.Count;

FileStream fsb = new
FileStream(@"c: \temp\NEWEST_SU BJECT_BODY_MyEv entSink.log",Fi leMode.OpenOrCr eate);
fsb.Write(Encod ing.ASCII.GetBy tes(sSubject + "::" +
sBody),0,sSubje ct.Length + "::".Length + sBody.Length);
fsb.Close();
for(i=1;i<=aNum ;i++)
{
fName = iMessage.Attach ments[i].FileName;
eName = fName.Substring (fName.Length-3,3).ToUpper();
if(eName == "TXT")
{
iPrt = iMessage.Attach ments[i];
iPrt.ContentMed iaType = "text/plain";
iPrt.Charset = "windows-1250";
stm = iPrt.GetDecoded ContentStream() ;
iPrt =null;
}
}
}
catch (Exception ex)
{
FileStream fs = new
FileStream(@"c: \temp\MyEventSi nkERRORERROR.lo g",FileMode.Ope nOrCreate);
fs.Write(Encodi ng.ASCII.GetByt es(ex.Message + ":::" +
ex.StackTrace), 0,ex.Message.Le ngth + ":::".Lengt h +
ex.StackTrace.L ength);
fs.Close();

throw (ex);
}
}
}
}