Appointment message class in public folder (Full Version)

All Forums >> [Microsoft Exchange 2003] >> Public Folders



Message

Nick_Whymark -> Appointment message class in public folder (16.Jun.2004 12:27:00 PM)

I am trying to strip out all of the attachments added to instances of a custom form published to a Public Folder. This is done via a timed Event Sink.

I open an ado recordset and run a query to find all those items that have attachments using the "urn:schemas:httpmail:hasattachment" property. I then iterate through the recordset, saving any attachments to a fileshare and then deleting all of the attachments in the item. After this is complete, I save the item.

The code runs successfully for custom forms based on a IPM.Contact, but when the code is executed for a form of base type IPM.Appointment the message class changes from the custom type to the base type. The code that is executing is shown below.

Does anyone know how I can stop the Custom message class reverting to the standard message class on Appointment items !

code:
  
Dim cdoMsg As CDO.Message
Dim objAttachment As CDO.IBodyPart
 
 
   While Not adoSet.EOF
        sMsgClass = adoSet.Fields("http://schemas.microsoft.com/exchange/outlookmessageclass").Value
       
        Set cdoMsg = CreateObject("CDO.Message")
        cdoMsg.DataSource.Open adoSet.Fields("DAV:href").Value, , 3
        
        For Each objAttachment In cdoMsg.Attachments
                  'Save it to a file share
                    sLinkLocation = "c:\"  & objAttachment.FileName
                    objAttachment.SaveToFile sLinkLocation
        Next
 
        cdoMsg.Attachments.DeleteAll
        cdoMsg.DataSource.Save
        adoSet.MoveNext
    Wend



Page: [1]