使用PickerDialog访问SharePoint对象的列表.docxVIP

e800，国内最具活力的IT门户网站。 HYPERLINK  【e800编译】此示例演示在Microsoft Outlook 2010中如何使用新的PickerDialog对象来访问SharePoint服务器，以获得一个对象列表，诸如用户，通讯组列表等等。 此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。 每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C＃中（在Visual Studio 2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行示例代码。 Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。 实例代码 演示中使用了Outlook 2010中新的Office 2010 PickerDialog。代码将访问SharePoint服务器以获取“people” 列表，而这些都可以是用户，通讯组列表等等。 代码中将只查找用户。假设你选择至少一个用户，代码将枚举结果，并创建一个添加了用户名的电子邮件消息到邮件的收件人集合。然后它通过Outlook的邮件消息的用户界面来显示邮件消息。 Public Sub PickerDialogDemo() Dim dlg As Office.PickerDialog Set dlg = Application.PickerDialog dlg.Title = Select a user to e-mail PEOPLEDATAHANDLER.DLL is an in-process COM DLL that provides the data handler implementation used in this example. Currently this is the only documented handler available for use. Dim peopleDataHandlerServerCLSID As String peopleDataHandlerServerCLSID = {000CDF0A-0000-0000-C000-000000000046} dlg.DataHandlerId = peopleDataHandlerServerCLSID Dim pickerProps As Office.PickerProperties Set pickerProps = dlg.Properties Dim pickerProp As Office.PickerProperty Dim pickerID As String pickerID = SiteUrl Dim sharepointURL As String Change the following URL to a valid SharePoint server URL to which you have access rights. This example was tested against a SharePont 2010 Server. sharepointURL = http://my Set pickerProp = pickerProps.Add(pickerID, sharepointURL, _ Office.MsoPickerField.msoPickerFieldText) Dim dlgResults As Office.PickerResults When the code shows the dialog, search for at least one user and then add at least one user before closing the PickerDialog. ‘ What does that True parameter mean? Set dlgResults = dlg.Show(True) If Not dlgResults Is Nothing Then The user selected at least one item so the code will create a new MailItem. Dim newMail As Outlook.MailItem Set newMail = Ap