Exchange Server修改一封邮件的已读属性

<%

dim urlmsg
dim msg
dim att
dim i
dim fls

on error resume next

urlmsg=request("addr")

session("msgreceive")=urlmsg

set msg=server.createobject("CDO.message")
msg.datasource.open urlmsg，，3
response.write err.description

fls=msg.fields
if not fls.item("urn:schemas:httpmail:read") then
response.write "****"
fls.item("urn:schemas:httpmail:read")=1
fls.update
end if
%>