Export (0) Print
Expand All

How to: Add a Recurring Event to Lists on Multiple Sites

Windows SharePoint Services 3

This content is outdated and is no longer being maintained. It is provided as a courtesy for individuals who are still using these technologies. This page may contain URLs that were valid when originally published, but now link to sites or pages that no longer exist.

This programming task shows how to add a recurring event with a Meeting Workspace site to the Events list of every site in a collection of subsites.

To add a recurring event with a Meeting Workspace site to the Events list of every site in a collection of subsites

  1. Create a console application in Microsoft Visual Studio 2005, as described in How to: Create a Console Application.

  2. Add a using or Imports directive to the opening of the .cs or .vb file for the Microsoft.SharePoint and Microsoft.SharePoint.Meetings namespaces, as follows:

    Imports Microsoft.SharePoint
    Imports Microsoft.SharePoint.Meetings

    using Microsoft.SharePoint;
    using Microsoft.SharePoint.Meetings;
  3. Use the SPSite constructor to instantiate a specified site collection. This example uses an indexer on the AllWebs property of the SPSite class to return a specific site, and the Webs property of the SPWeb class to return the collection of subsites beneath the site. Set up a foreach loop to iterate through all the subsites and obtain the Events list for each site and the collection of list items in each Events list, as follows:

    Dim evtTitle As String = Console.ReadLine()
    Dim siteCollection As New SPSite("Absolute_Url")
    Dim site As SPWeb = siteCollection.AllWebs("Site_Name")
    Dim subSites As SPWebCollection = site.Webs
    Dim subSite As SPWeb
    For Each subSite In subSites
        Dim list As SPList = subSite.Lists("Events")
        Dim listItems As SPListItemCollection = list.Items

    string evtTitle = Console.ReadLine();
    SPSite siteCollection = new SPSite("Absolute_Url");
    SPWeb site = siteCollection.AllWebs["Site_Name"];
    SPWebCollection subSites = site.Webs;
    foreach (SPWeb subSite in subSites)
        SPList list = subSite.Lists["Events"];
        SPListItemCollection listItems = list.Items;
  4. Create a list item. This example uses the Add method of the SPListItemCollection class to create an uninitialized list item, uses indexers to set various properties for the new item, and then uses the Update method to finish creating the item.

    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(2003, 8, 15, 8, 0, 0)
    recEvent("EndDate") = New DateTime(2003, 9, 25, 9, 0, 0)
    recEvent("UID") = Guid.NewGuid()
    recEvent("TimeZone") = 13
    recEvent("Recurrence") = - 1
            = "<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>

        SPListItem recEvent = listItems.Add();
        string recData = "<recurrence><rule>
                <firstDayOfWeek>su</firstDayOfWeek>" +
            "<repeat><daily dayFrequency='1' /></repeat>" +
        recEvent["Title"] = evtTitle;
        recEvent["RecurrenceData"] = recData;
        recEvent["EventType"] = 1;
        recEvent["EventDate"] = new DateTime(2003,8,15,8,0,0);
        recEvent["EndDate"] = new DateTime(2003,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' />" +

    The recData variable contains an XML fragment that specifies properties for a recurring event taking place daily for five days, and the XMLTZone indexer assigns time zone information for the current site. The XML that defines the recurrence and specifies the time zone information is contained in the ntext3 and ntext4 columns of the UserData table in the content database.

    The following table shows examples of the different kinds of recurrence that can be used.



    Every other day until a specified end date

       <repeat><daily dayFrequency='2' 

    Weekly on Monday

       <repeat><weekly mo='TRUE' 
          weekFrequency='1' /></repeat>

    Every two months on the third day for five sessions

       <repeat><monthly monthFrequency='2'
          day='3' /></repeat>

    Monthly on the first Tuesday until a specified end date

          <monthlyByDay tu='TRUE' 
             monthFrequency='1' />

    Yearly on the twentieth day of the ninth month until a specified end date

       <repeat><yearly yearFrequency='1' 
          month='9' day='20' /></repeat>
  5. To add a Meeting Workspace site to the recurring event, use one of the Add methods of the SPWebCollection class and the LinkWithEvent method of the SPMeeting class.

        Dim mwsSites As SPWebCollection = subSite.Webs
        Dim path As String = recEvent("Title").ToString()
        Dim newSite As SPWeb = mwsSites.Add(path, "Workspace_Name", _
            "Description", Convert.ToUInt32(1033), "MPS#0", False, 
        Dim mwsSite As SPMeeting 
            = SPMeeting.GetMeetingInformation(newSite)
        Dim guid As String = list.ID.ToString()
        Dim id As Integer = recEvent.ID
            mwsSite.LinkWithEvent(subSite, guid, id, "WorkspaceLink", 
        Catch ex As System.Exception
        End Try
    Next subSite

        SPWebCollection mwsSites = subSite.Webs;
        string path = recEvent["Title"].ToString();
        SPWeb newSite = mwsSites.Add(path, "Workspace_Name", 
            "Description", 1033, "MPS#0", false, false);
        SPMeeting mwsSite = SPMeeting.GetMeetingInformation(newSite);
        string guid = list.ID.ToString();
        int id = recEvent.ID;
            mwsSite.LinkWithEvent(subSite, guid, id, "WorkspaceLink", 
        catch (System.Exception ex)

    After the Meeting Workspace site is created, the GetMeetingInformation method returns an SPMeeting object representing the site.

  6. Press F5 to start the Console Application.

  7. At the command prompt, type a name for the Meeting Workspace site, and then press ENTER to add a recurring event with a Meeting Workspace site to the Events list in all the subsites beneath a site.

© 2014 Microsoft