Compartir a través de

Procedimiento para personalizar espacios de trabajo de reunión mediante el servicio web Meetings

  • Artículo

El servicio web Meetings permite crear y administrar sitios de área de reuniones. En este tema se describe cómo se pueden usar los servicios web para realizar las tareas siguientes:

  • Identificar sitios de área de reuniones existentes.

  • Crear nuevos sitios de área de reuniones y agregar reuniones.

  • Eliminar sitios de área de reuniones.

  • Actualizar la información de la reunión en un sitio de área de reuniones.

Para identificar los sitios de área de reuniones existentes

  • En el ejemplo de código siguiente de Microsoft Visual Basic se enumeran los sitios de área de reuniones que existen en el servidor.

    Nota

    ServerURLTextBox es un elemento de interfaz que se encuentra en un formulario en el proyecto de Visual Basic.

    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

Para crear un nuevo sitio de área de reuniones y agregar una reunión al sitio

  • En el siguiente ejemplo de código de Visual Basic se crea un sitio de área de reuniones y se agrega una reunión a él.

    Nota

    ServerURLTextBox, MeetingSubjectTextBox, MeetingLocationTextBox, DTSTARTTextBox, DTENDTextBox y CreateWorkspaceButton son elementos de interfaz que se encuentran en un formulario en el proyecto de Visual Basic.

    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

Para eliminar un sitio de área de reuniones

  • En el siguiente ejemplo de código de Visual Basic se elimina un sitio de área de reuniones especificado.

    Nota

    MWSURLLink contiene la dirección URL del sitio de área de reuniones.

    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

Para actualizar la información de la reunión en un sitio de área de reuniones

  • En el siguiente ejemplo de código de Visual Basic se actualiza una reunión que existe en un sitio de área de reuniones.

    Nota

    MWSURLLink, MeetingSubjectTextBox, MeetingLocationTextBox, DTSTARTTextBox, DTENDTextBox y CreateWorkspaceButton son elementos de interfaz que se encuentran en un formulario en el proyecto de Visual Basic.

    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

Vea también

Referencia

Meetings

Otros recursos

Servicios web de Windows SharePoint Services