sharepoint 2010 如何给讨论板(Discussion)话题添加回复（Reply）信息(Message)

记录一下给动态给讨论版话题添加一个回复信息

SPSecurity.RunWithElevatedPrivileges(delegate()
            {
                SPWeb web =
SPContext.Current.Web;
                SPList list = web.Lists["工作组讨论"];
                web.AllowUnsafeUpdates =
true;
                SPListItem item = list.GetItemById(1);//根据话题的id，获取到话题的Item
                SPListItem r = Microsoft.SharePoint.Utilities.SPUtility.CreateNewDiscussionReply(item);//创建新的讨论板回复Item
                r[SPBuiltInFieldId.Body] =
"new reply";//Body是回复信息
                r.SystemUpdate();
            });
创建一个话题的方法

SPList list = web.Lists["Team Discussion"];

SPListItem t = Microsoft.SharePoint.Utilities.SPUtility.CreateNewDiscussion(list,
"NewDiscussion");
t[SPBuiltInFieldId.Body] =
"NewDiscussion";
t.Update();