Gewusst wie: Anpassen von Besprechungsarbeitsbereichen mit dem Meetings-Webdienst
Letzte Änderung: Mittwoch, 7. Juli 2010
Gilt für: SharePoint Foundation 2010
Der Meetings-Webdienst unterstützt Sie beim Erstellen und Verwalten von Besprechungsarbeitsbereich-Websites. Im vorliegenden Thema wird beschrieben, wie Sie mit den Webdiensten die folgenden Aufgaben ausführen können:
Bestimmen vorhandener Besprechungsarbeitsbereich-Websites
Erstellen von neuen Besprechungsarbeitsbereich-Websites und Hinzufügen von Besprechungen
Löschen von Besprechungsarbeitsbereich-Websites
Aktualisieren von Besprechungsinformationen auf einer Besprechungsarbeitsbereich-Website
Verfahren
Erstellen Sie zuerst in Microsoft Visual Studio eine Windows Forms-Anwendung. Weitere Informationen zum Festlegen eines Webverweises auf einen Microsoft SharePoint Foundation-Webdienst finden Sie unter Richtlinien für Webdienste.
So bestimmen Sie vorhandene Besprechungsarbeitsbereich-Websites
Im folgenden Codebeispiel sind die Besprechungsarbeitsbereich-Websites aufgelistet, die auf dem Server vorhanden sind.
Hinweis Dabei wird angenommen, dass es sich bei ServerURLTextBox um ein Schnittstellenelement handelt, das einem Formular im Projekt hinzugefügt wurde.
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"); }
So erstellen Sie eine neue Besprechungsarbeitsbereich-Website und fügen dieser eine Besprechung hinzu
Im folgenden Codebeispiel wird eine Besprechungsarbeitsbereich-Website erstellt, der eine Besprechung hinzugefügt wird.
Hinweis Für das Beispiel wird angenommen, dass es sich bei ServerURLTextBox, MeetingSubjectTextBox, MeetingLocationTextBox, DTSTARTTextBox, DTENDTextBox und CreateWorkspaceButton um Schnittstellenelemente handelt, die einem Formular im Projekt hinzugefügt wurden.
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; }
So löschen Sie eine Besprechungsarbeitsbereich-Website
Im folgenden Codebeispiel wird eine angegebene Besprechungsarbeitsbereich-Website gelöscht.
Hinweis Für das Beispiel wird angenommen, dass MWSURLLink die URL der Besprechungsarbeitsbereich-Website enthält.
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(); }
So aktualisieren Sie Besprechungsinformationen auf einer Besprechungsarbeitsbereich-Website
Im folgenden Codebeispiel wird eine Besprechung aktualisiert, die sich auf einer Besprechungsarbeitsbereich-Website befindet.
Hinweis Für das Beispiel wird angenommen, dass es sich bei MWSURLLink, MeetingSubjectTextBox, MeetingLocationTextBox, DTSTARTTextBox, DTENDTextBox und CreateWorkspaceButton um Schnittstellenelemente handelt, die einem Formular im Projekt hinzugefügt wurden.
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); }