Condividi tramite


IsSharePointFolder Property

Returns a Boolean that determines if the folder is a Microsoft Windows SharePoint Services folder. Read-only.

expression.IsSharePointFolder

*expression   * Required. An expression that returns a MAPIFolder object.

Remarks

A Windows SharePoint Services folder is a custom folder in Microsoft Outlook that contains a live copy of the contact list or event list that lives on a Windows SharePoint Services Web site. The contact list maps to a Contacts folder in Outlook and the event list maps to a Calendar folder.

SharePoint folders are automatically created under the SharePoint Folders node in the Navigation Pane when a contact list or an event list is exported from the Windows SharePoint Services Web site.

Though Windows SharePoint Services folders work the same way as MAPIFolders, there are a few exceptions. The folders are read-only and any attempt to edit folder properties or add, edit, or remove existing items will fail. If you attempt to perform an action that tries to write data to the folder, Outlook will display the error message "SharePoint Team Services folders are read-only in Outlook."

Note  A folder in the user's Microsoft Exchange server folder will never be a SharePoint folder, and no folder in the user's default Personal Folders file (.pst) will ever be a SharePoint folder. Typically the SharePoint folders will be under the node SharePoint Folders in the Navigation Pane.

Example

The following Microsoft Visual Basic for Applications (VBA) example changes the Subject line of the appointment item displayed in the active inspector and saves the item. If the item is contained in a SharePoint folder, it displays a message to the user that the item cannot be modified. To run this example, make sure that an appointment item is displayed in the active inspector window. This example will modify the subject of the appointment item.

Sub ChangeItem()
'Checks if the item is contained in a SharePoint folder. If it is not, it changes the Subject line, and then saves the item.
    Dim myOlApp As New Outlook.Application
    Dim myItem As Outlook.AppointmentItem
    Dim fldFolder As Outlook.MAPIFolder
    Set myItem = myOlApp.ActiveInspector.CurrentItem
    Set fldFolder = myItem.Parent

    If fldFolder.IsSharePointFolder = True Then
        MsgBox "The item is contained in a Windows SharePoint Services folder and cannot be modified."
    Else
    myItem.Subject = myItem.Subject + " Changed by VBA"
    myItem.Save
        MsgBox "The item has been changed."
    End If
End Sub

Applies to | MAPIFolder Object