Dim lobjMsg As CDO.Message
Dim lcolAttachments As CDO.IBodyParts
Dim lobjBodyPart As CDO.IBodyPart
Dim lobjFs As ADODB.Field
Set lobjMsg = lobjEmail.ReadEmail("Administrator", 1)
Set lcolAttachments = lobjMsg.Attachments
lobjMsg.Fields("cdoRead").Value = True
Debug.Print lobjMsg.Fields("cdoRead").Value
For Each lobjFs In lobjMsg.Fields
Debug.Print lobjFs.Name & ">>" & lobjFs.Value
Next
For Each lobjBodyPart In lcolAttachments
Debug.Print lobjBodyPart.FileName
Next
If Not IsEmpty(lobjMsg) Then Set lobjMsg = Nothing
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
