ISharePointUtility.CreateNewDiscussion

Синтаксис Fore

CreateNewDiscussion(List: ISharePointList; Title: String): ISharePointListItem;

Синтаксис Fore.NET

Отсутствует;

Параметры

List. Список, в рамках которого будет создано обсуждение.

Title. Заголовок обсуждения.

Описание

Метод CreateNewDiscussion создает новое обсуждение и возвращает его параметры.

Пример

Для выполнения примера предполагается наличие сайта SharePoint, расположенного по адресу «http://test-sharepoint».

Sub UserProc;
Var
    Site: ISharePointSite;
    Web: ISharePointWeb;
    Lists: ISharePointLists;
    List: ISharePointList;
    ListItem: ISharePointListItem;
    FStream: IFileStream;
    i: integer;
    AttachUrl: String;
Begin
    Site := New SharePointSite.Create;
    Site.Url := "http://test-sharepoint";
    Site.UseDefaultCredentials := True;
    //Подключение к сайту
    Web := Site.RootWeb;
    Lists := Web.Lists;
    For i := 0 To Lists.Count - 1 Do
        List := Lists.Item(i);
        //Ищем список с обсуждениями
        If List.Type = SharePointServerTemplateType.DiscussionBoard Then
            //Создаем новое обсуждение
            ListItem := SharePointUtility.CreateNewDiscussion(List, "Проект 2012");
            FStream := New FileStream.Create("c:\Project2012\Photo.rar", FileOpenMode.ReadWrite, FileShare.DenyWrite);
            AttachUrl := ListItem.Attachments.AddStream("Photo", FStream);
            ListItem.FieldValue("Body") := "Ссылка на фотографии: <a href=""" + AttachUrl + """>Фото</a>";
            ListItem.Update;
            Dispose FStream;
            Break;
        End If;
    End For;
End Sub UserProc;

При выполнении примера будет осуществлено подключение к сайту SharePoint. Будет найден список с коллективными обсуждениями и в нем будет создана новая тема. К теме будет прикреплен файл, ссылка на файл будет доступна в теле обсуждения.

См. также:

ISharePointUtility