定期的なイベントを複数のサイトのリストに追加する

  • [アーティクル]

最終更新日: 2015年3月9日

適用対象: SharePoint Foundation 2010

SharePoint Online で使用可能

ここでは、定期的なイベントを会議ワークスペース サイトと共にサイト コレクション内のすべての Web サイトのカレンダー リストに追加する方法について説明します。

定期的なイベントを会議ワークスペース サイトと共にサイト コレクション内のすべてのサイトのカレンダー リストに追加するには

  1. 「[方法] コンソール アプリケーションを作成する」での説明に従って、Microsoft Visual Studio 2010 でコンソール アプリケーションを作成します。

  2. .cs ファイルまたは .vb ファイルの先頭に、以下のような Microsoft.SharePoint 名前空間および Microsoft.SharePoint.Meetings 名前空間に対する using ディレクティブまたは Imports ディレクティブを追加します。

    Imports Microsoft.SharePoint
Imports Microsoft.SharePoint.Meetings

    using Microsoft.SharePoint;
using Microsoft.SharePoint.Meetings;

  3. SPSite コンストラクターを使用して、指定したサイト コレクションをインスタンス化します。この例では、SPSite クラスの AllWebs プロパティを使用して、サイト コレクション内のすべての Web サイトを返します。以下のように、foreach ループを使用して Web サイトを反復処理し、Web サイトが標準の SharePoint Foundation テンプレート (WebTemplateSTS) を使用している場合、サイトのカレンダー リストとリスト内のリスト アイテムのコレクションを取得します。

    Dim evtTitle As String = Console.ReadLine()

Using siteCollection As New SPSite("https://Server/sites/SiteCollection")
    Dim collWeb As SPWebCollection = siteCollection.AllWebs

    For Each oWebsite As SPWeb In collWeb
        If oWebsite.WebTemplate = SPWebTemplate.WebTemplateSTS Then
            Dim list As SPList = oWebsite.Lists("Calendar")
            Dim listItems As SPListItemCollection = list.Items

    string evtTitle = Console.ReadLine();

using (SPSite siteCollection = new SPSite("https://Server/sites/SiteCollection"))
{
    SPWebCollection collWeb = siteCollection.AllWebs;

    foreach (SPWeb oWebsite in collWeb)
    {
        if (oWebsite.WebTemplate == SPWebTemplate.WebTemplateSTS)
        {
            SPList list = oWebsite.Lists["Calendar"];
            SPListItemCollection listItems = list.Items;

  4. リスト アイテムを作成するには、SPListItemCollection クラスの Add メソッドを使用して初期化されていないリスト アイテムを作成し、インデクサーを使用して新しいアイテムのさまざまなプロパティを設定して、さらに Update メソッドを使用してアイテムの作成を完了します。

    Dim recEvent As SPListItem = listItems.Add()

Dim recdata As String = "<recurrence><rule>" &
    "<firstDayOfWeek>su</firstDayOfWeek>" & 
    "<repeat><daily dayFrequency='1' /></repeat>" & 
    "<repeatInstances>5</repeatInstances></rule></recurrence>"

recEvent("Title") = evtTitle
recEvent("RecurrenceData") = recdata
recEvent("EventType") = 1
recEvent("EventDate") = New DateTime(2011, 8, 15, 8, 0, 0)
recEvent("EndDate") = New DateTime(2011, 9, 25, 9, 0, 0)
recEvent("UID") = System.Guid.NewGuid()
recEvent("TimeZone") = 13
recEvent("Recurrence") = - 1
recEvent("XMLTZone") = "<timeZoneRule>" &
    "<standardBias>480</standardBias>" &
    "<additionalDaylightBias>-60</additionalDaylightBias>" &
    "<standardDate><transitionRule  month='10' day='su' weekdayOfMonth='last' />" &
    "<transitionTime>2:0:0</transitionTime></standardDate>" &
    "<daylightDate><transitionRule  month='4' day='su' weekdayOfMonth='first' />" &
    "<transitionTime>2:0:0</transitionTime>" &
    "</daylightDate></timeZoneRule>"

recEvent.Update()

    SPListItem recEvent = listItems.Add();

string recData = "<recurrence><rule>" + 
    "<firstDayOfWeek>su</firstDayOfWeek>" +
    "<repeat><daily dayFrequency='1' /></repeat>" +
    "<repeatInstances>5</repeatInstances></rule></recurrence>";

recEvent["Title"] = evtTitle;
recEvent["RecurrenceData"] = recData;
recEvent["EventType"] = 1;
recEvent["EventDate"] = new DateTime(2011,8,15,8,0,0);
recEvent["EndDate"] = new DateTime(2011,9,25,9,0,0);
recEvent["UID"] = System.Guid.NewGuid();
recEvent["TimeZone"] = 13;
recEvent["Recurrence"] = -1;
recEvent["XMLTZone"] = "<timeZoneRule>" +
    "<standardBias>480</standardBias>" +
    "<additionalDaylightBias>-60</additionalDaylightBias>" +
    "<standardDate><transitionRule  month='10' day='su' weekdayOfMonth='last' />" +
    "<transitionTime>2:0:0</transitionTime></standardDate>" +
    "<daylightDate><transitionRule  month='4' day='su' weekdayOfMonth='first' />" +
    "<transitionTime>2:0:0</transitionTime>" +
    "</daylightDate></timeZoneRule>";

    recEvent.Update();

    recData 変数には 5 日間毎日行われる定期的なイベントのプロパティを指定する XML フラグメントを格納し、XMLTZone インデクサーで現在のサイトのタイム ゾーン情報を割り当てます。定期的なイベントを定義する XML とタイム ゾーン情報を指定する XML は、コンテンツ データベースの UserData テーブルの ntext3 列および ntext4 列に格納されます。

    以下の表に、使用可能なさまざまな種類の定期的なイベントの例を示します。

    説明

    例

    指定された終了日まで隔日

    		 
    <recurrence><rule>
   <firstDayOfWeek>su</firstDayOfWeek>
   <repeat><daily dayFrequency='2' 
      /></repeat>
   <windowEnd>2003-09-
      20T09:00:00Z</windowEnd>
</rule></recurrence>

    毎週月曜日

    		 
    <recurrence><rule>
   <firstDayOfWeek>su</firstDayOfWeek>
   <repeat><weekly mo='TRUE' 
      weekFrequency='1' /></repeat>
   <repeatForever>FALSE</repeatForever>
</rule></recurrence>

    隔月の 3 日を 5 回

    		 
    <recurrence><rule>
   <firstDayOfWeek>su</firstDayOfWeek>
   <repeat><monthly monthFrequency='2'
      day='3' /></repeat>
   <repeatInstances>5</repeatInstances>
</rule></recurrence>

    指定された終了日まで毎月第 1 火曜日

    		 
    <recurrence><rule>
   <firstDayOfWeek>su</firstDayOfWeek>
   <repeat>
      <monthlyByDay tu='TRUE' 
         weekdayOfMonth='first' 
         monthFrequency='1' />
   </repeat>
   <windowEnd>2003-08-
      02T10:00:00Z</windowEnd>
</rule></recurrence>

    指定された終了日まで毎年 9 月 20 日

    		 
    <recurrence><rule>
   <firstDayOfWeek>su</firstDayOfWeek>
   <repeat><yearly yearFrequency='1' 
      month='9' day='20' /></repeat>
   <windowEnd>2007-09-
      20T07:00:00Z</windowEnd>
</rule></recurrence>

  5. 一般的な会議ワークスペース サイトを定期的なイベントに追加するには、SPWebCollection クラスの Add() メソッドを使用してサイトを作成し (MPS#0 で指定)、SPMeeting クラスの LinkWithEvent メソッドを使用してそのサイトをカレンダー アイテムにリンクします。

                Dim mwsSites As SPWebCollection = oWebsite.Webs

            Dim path As String = recEvent("Title").ToString()

            Dim newSite As SPWeb = mwsSites.Add(path, "Workspace_Name", "Description", 1033, _
                                                        "MPS#0", False, False)

            Dim mwsSite As SPMeeting = SPMeeting.GetMeetingInformation(newSite)

            Dim guid As String = list.ID.ToString()
            Dim id As Integer = recEvent.ID

            Try
                mwsSite.LinkWithEvent(oWebsite, guid, id, "WorkspaceLink", "Workspace")
            Catch ex As System.Exception

                Console.WriteLine(ex.Message)

            End Try

       End If

       oWebsite.Close()

    Next

End Using

                SPWebCollection mwsSites = oWebsite.Webs;

            string path = recEvent["Title"].ToString();

            SPWeb newSite = mwsSites.Add(path, "MyNewWorkspace", "Description", 1033, "MPS#0", false, false);

            SPMeeting mwsSite = SPMeeting.GetMeetingInformation(newSite);

            string guid = list.ID.ToString();
            int id = recEvent.ID;

            try
            {
                mwsSite.LinkWithEvent(oWebsite, guid, id, "WorkspaceLink", "Workspace");
            }

            catch (System.Exception ex)
            {
                Console.WriteLine(ex.Message);
            }
        }

        oWebsite.Close();
    }
}

    会議ワークスペース サイトが作成された後、GetMeetingInformation メソッドは、そのサイトを表す SPMeeting オブジェクトを返します。

  6. F5 キーを押してコンソール アプリケーションを起動します。

  7. コマンド プロンプトで会議ワークスペース サイトの名前を入力し、Enter キーを押すと、定期的なイベントが会議ワークスペース サイトと共にサイト コレクション内のすべての Web サイトのカレンダー リストに追加されます。