Registered with: cscript smtpreg.vbs /add 1 onarrival SMTPEventSink SMTP.EventSink "RCPT TO=*"
PROCEDURE ProcessMessage LPARAMETERS toMsg, tnEventStatus, tnParentId WITH toMsg * This loop works fine FOR EACH loField in .Fields && fails because .Fields does not exist lcField=loField.Name+": "+TRANSFORM(loField.Value) lcFieldList=lcFieldList+lcField+CRLF ENDFOR FOR EACH loAttachment in .Attachments lcMediaType = loAttachment.fields.item(cdoContentMediaType).value lcFileName = loAttachment.fields.item(cdoAttachmentFilename).value IF LOWER(lcMediaType) = "message/rfc822" AND ISNULL(lcFileName) * loStream.SaveToFile('00.eml') - fails loStream = loAttachment.GetStream() FOR EACH loField in loStream.Fields && fails because .Fields does not exist ENDFOR loContentStream = loContentStream.GetDecodedContentStream() FOR EACH loField in loAttachment.Fields && again fails because .Fields does not exist ENDFOR ENDIF ENDFORAny suggestions how I can attack this problem, is there any known way to persist this object so that I can examine it's objects and collections?