Propriedade Folder.IsSharePointFolder (Outlook)
Retorna um Boolean que determina se a pasta é uma pasta do Microsoft SharePoint Foundation. Somente leitura.
Sintaxe
expression. IsSharePointFolder
Expressão Uma variável que representa um objeto Folder .
Comentários
Uma pasta do SharePoint Foundation é uma pasta personalizada do Outlook que contém uma cópia ativa da lista de contatos ou da lista de eventos hospedada em um site do SharePoint Foundation. A lista de contatos mapeia para uma pasta Contatos do Outlook e a lista de eventos mapeia para uma pasta do Calendário.
As pastas do SharePoint Foundation são criadas automaticamente no nó Pastas do SharePoint no painel de navegação quando uma lista de contatos ou uma lista de eventos é exportada do site do SharePoint Foundation.
Embora as pastas do SharePoint Foundation funcionem da mesma maneira que as outras pastas, há algumas exceções. As pastas do SharePoint Foundation são somente leitura e qualquer tentativa de editar suas propriedades, bem como de adicionar, editar ou remover seus itens, falhará.
Uma pasta no servidor Microsoft Exchange do usuário nunca será uma pasta do SharePoint Foundation, assim como uma pasta do arquivo padrão de pastas particulares (.pst) jamais será. Normalmente, as pastas do SharePoint Foundation estarão no nó Pastas do SharePoint no painel de navegação.
Exemplo
O exemplo a seguir do Microsoft Visual Basic for Applications (VBA) altera a linha Assunto do item de compromisso exibido no inspetor ativo e salva o item. Se o item estiver em uma pasta do SharePoint Foundation, ele exibirá uma mensagem para o usuário informando que o item não pode ser modificado. Para executar este exemplo, verifique se um item de compromisso é exibido na janela do inspetor ativo. Este exemplo modificará o assunto do item de compromisso.
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 myItem As Outlook.AppointmentItem
Dim fldFolder As Outlook.Folder
Set myItem = Application.ActiveInspector.CurrentItem
Set fldFolder = myItem.Parent
If fldFolder.IsSharePointFolder = True Then
MsgBox _
"The item is contained in a SharePoint Foundation 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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.