Partager via


Procédure : personnaliser les espaces de travail de réunion en utilisant le service Web Réunions

Dernière modification : mercredi 7 juillet 2010

S’applique à : SharePoint Foundation 2010

Le service Web Meetings permet de créer et de gérer des sites d’espace de travail de réunion. Cette rubrique explique comment utiliser les services Web pour effectuer les tâches suivantes :

  • Identifier les sites d'espace de travail de réunion existants.

  • Créer des sites d'espace de travail de réunion et ajouter des réunions.

  • Supprimer des sites d'espace de travail de réunion.

  • Mettre à jour les informations relatives aux réunions sur un site d'espace de travail de réunion.

Procédures

Avant de commencer, créez une application Windows Forms dans Microsoft Visual Studio. Pour obtenir des informations sur la définition d’une référence Web vers un service Web Microsoft SharePoint Foundation, voir Conseils d'utilisation des services Web.

Pour identifier les sites d'espace de travail de réunion existants

  • L’exemple de code suivant répertorie les sites d’espace de travail de réunion qui existent sur le serveur.

    Notes

    L’exemple suppose que ServerURLTextBox est un élément d’interface qui a été ajouté à un formulaire dans le projet.

    Dim ws As New mywss001.Meetings()
    Dim myCache As New System.Net.CredentialCache()
    
    Private Sub ListMWS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListMWS.Click
     ws.Credentials = myCache.DefaultCredentials()
     ws.Url = ServerURLTextBox.Text
     If (ws.Url.EndsWith("/")) Then
      ws.Url = ws.Url.Remove(ws.Url.Length - 1, 1)
     End If
     ws.Url = ws.Url + "/_vti_bin/meetings.asmx"
     Dim GetMeetingWorkspacesResponse As System.Xml.XmlNode
     If (ws.Url <> "") Then
      GetMeetingWorkspacesResponse = ws.GetMeetingWorkspaces(True)
     End If
     Dim OuterXml As String
     OuterXml = GetMeetingWorkspacesResponse.OuterXml()
     MsgBox("OuterXml")
    End Sub
    
    mywss001.Meetings ws = new mywss001.Meetings();
    System.Net.CredentialCache myCache = new System.Net.CredentialCache();
    
    private void ListMWS_Click(System.Object sender, System.EventArgs e)
    {
        ws.Credentials = myCache.DefaultCredentials();
        ws.Url = ServerURLTextBox.Text;
        if ((ws.Url.EndsWith("/"))) {
            ws.Url = ws.Url.Remove(ws.Url.Length - 1, 1);
        }
        ws.Url = ws.Url + "/_vti_bin/meetings.asmx";
        System.Xml.XmlNode GetMeetingWorkspacesResponse = default(System.Xml.XmlNode);
        if ((!string.IsNullOrEmpty(ws.Url))) {
            GetMeetingWorkspacesResponse = ws.GetMeetingWorkspaces(true);
        }
        string OuterXml = null;
        OuterXml = GetMeetingWorkspacesResponse.OuterXml();
        Interaction.MsgBox("OuterXml");
    }
    

Pour créer un site d'espace de travail de réunion et ajouter une réunion à un site

  • L’exemple de code suivant crée un site d’espace de travail de réunion et ajoute une réunion.

    Notes

    L’exemple suppose que ServerURLTextBox, MeetingSubjectTextBox, MeetingLocationTextBox, DTSTARTTextBox, DTENDTextBox et CreateWorkspaceButton sont tous des éléments d’interface qui ont été ajoutés à un formulaire dans le projet.

    Dim ws As New mywss001.Meetings()
    Dim tz As New mywss001.TimeZoneInf()
    Dim myCache As New System.Net.CredentialCache()
    Dim UID As Integer
    Dim Sequence As UInt32
    
    Private Sub CreateWorkspaceButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateWorkspaceButton.Click
     ws.Credentials = myCache.DefaultCredentials()
     ws.Url = ServerURLTextBox.Text
     If (ws.Url.EndsWith("/")) Then
      ws.Url = ws.Url.Remove(ws.Url.Length - 1, 1)
     End If
     ws.Url = ws.Url + "/_vti_bin/meetings.asmx"
     Dim CreateWorkspaceResponse As System.Xml.XmlNode
     If (ws.Url <> "") Then
      CreateWorkspaceResponse = ws.CreateWorkspace(MeetingSubjectTextBox.Text, "MPS#0", System.UInt32.Parse("1033"), tz)
     End If
     Dim OuterXml As String
     OuterXml = CreateWorkspaceResponse.OuterXml()
     Dim MWSURL As String
     Dim Start As Integer
     Dim Finish As Integer
     Start = OuterXml.IndexOf("""")
     Finish = OuterXml.IndexOf("""", Start + 1)
     MWSURL = OuterXml.Substring(Start + 1, Finish - Start - 1)
     Dim MyRand As New System.Random()
     UID = MyRand.Next(100, 10000)
     Sequence.ToString("0")
     ws.Url = MWSURL + "/_vti_bin/meetings.asmx"
     ws.AddMeeting("", UID.ToString, Sequence, "2003-03-27T15:00:00-08:00", MeetingSubjectTextBox.Text, MeetingLocationTextBox.Text, DTSTARTTextBox.Text, DTENDTextBox.Text, False)
     MWSURLLink.Text = MWSURL
    End Sub
    
    mywss001.Meetings ws = new mywss001.Meetings();
    mywss001.TimeZoneInf tz = new mywss001.TimeZoneInf();
    System.Net.CredentialCache myCache = new System.Net.CredentialCache();
    int UID;
    UInt32 Sequence;
    
    private void CreateWorkspaceButton_Click(System.Object sender, System.EventArgs e)
    {
        ws.Credentials = myCache.DefaultCredentials();
        ws.Url = ServerURLTextBox.Text;
        if ((ws.Url.EndsWith("/"))) {
            ws.Url = ws.Url.Remove(ws.Url.Length - 1, 1);
        }
        ws.Url = ws.Url + "/_vti_bin/meetings.asmx";
        System.Xml.XmlNode CreateWorkspaceResponse = default(System.Xml.XmlNode);
        if ((!string.IsNullOrEmpty(ws.Url))) {
            CreateWorkspaceResponse = ws.CreateWorkspace(MeetingSubjectTextBox.Text, "MPS#0", System.UInt32.Parse("1033"), tz);
        }
        string OuterXml = null;
        OuterXml = CreateWorkspaceResponse.OuterXml();
        string MWSURL = null;
        int Start = 0;
        int Finish = 0;
        Start = OuterXml.IndexOf("\"");
        Finish = OuterXml.IndexOf("\"", Start + 1);
        MWSURL = OuterXml.Substring(Start + 1, Finish - Start - 1);
        System.Random MyRand = new System.Random();
        UID = MyRand.Next(100, 10000);
        Sequence.ToString("0");
        ws.Url = MWSURL + "/_vti_bin/meetings.asmx";
        ws.AddMeeting("", UID.ToString, Sequence, "2003-03-27T15:00:00-08:00", MeetingSubjectTextBox.Text, MeetingLocationTextBox.Text, DTSTARTTextBox.Text, DTENDTextBox.Text, false);
        MWSURLLink.Text = MWSURL;
    }
    

Pour supprimer un site d'espace de travail de réunion

  • L’exemple de code suivant supprime un site d’espace de travail de réunion spécifié.

    Notes

    L’exemple suppose que MWSURLLink contient l’URL du site d’espace de travail de réunion.

    Private Sub DeleteWorkspaceButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteWorkspaceButton.Click
     ws.Credentials = myCache.DefaultCredentials()
     ws.Url = MWSURLLink.Text + "/_vti_bin/meetings.asmx"
     ws.DeleteWorkspace()
    End Sub
    
    private void DeleteWorkspaceButton_Click(System.Object sender, System.EventArgs e)
    {
        ws.Credentials = myCache.DefaultCredentials();
        ws.Url = MWSURLLink.Text + "/_vti_bin/meetings.asmx";
        ws.DeleteWorkspace();
    }
    

Pour mettre à jour les informations relatives aux réunions sur un site d'espace de travail de réunion.

  • L’exemple de code suivant met à jour une réunion qui existe sur un site d’espace de travail de réunion.

    Notes

    L’exemple suppose que MWSURLLink, MeetingSubjectTextBox, MeetingLocationTextBox, DTSTARTTextBox, DTENDTextBox et CreateWorkspaceButton sont tous des éléments d’interface qui ont été ajoutés à un formulaire dans le projet.

    Private Sub UpdateMeetingButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateMeetingButton.Click
     ws.Credentials = myCache.DefaultCredentials()
     ws.Url = MWSURLLink.Text + "/_vti_bin/meetings.asmx"
     Sequence.ToString("0")
     ws.UpdateMeeting(UID, Sequence, "2003-03-27T15:00:00-08:00", MeetingSubjectTextBox.Text, MeetingLocationTextBox.Text, DTSTARTTextBox.Text, DTENDTextBox.Text, False)
    End Sub
    
    private void UpdateMeetingButton_Click(System.Object sender, System.EventArgs e)
    {
        ws.Credentials = myCache.DefaultCredentials();
        ws.Url = MWSURLLink.Text + "/_vti_bin/meetings.asmx";
        Sequence.ToString("0");
        ws.UpdateMeeting(UID, Sequence, "2003-03-27T15:00:00-08:00", MeetingSubjectTextBox.Text, MeetingLocationTextBox.Text, DTSTARTTextBox.Text, DTENDTextBox.Text, false);
    }
    

Voir aussi

Référence

[Meetings Web service]

Autres ressources

Services Web SharePoint Foundation 2010