Método Inspector.SetControlItemProperty (Outlook)
Vincula uma propriedade interna ou uma propriedade personalizada a um controle em um Inspetor.
Sintaxe
expression. SetControlItemProperty( _Control_ , _PropertyName_ )
Expressão Uma variável que representa um objeto Inspector .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Control | Obrigatório | Object | O controle que será vinculado a uma propriedade. |
| PropertyName | Obrigatório | String | O nome da propriedade que será vinculada ao controle. |
Comentários
Use esse método para associar uma propriedade interna explícita ou uma propriedade personalizada a um controle. Você deve fazer referência a propriedade pelo seu nome de cadeia de caracteres, por exemplo, assunto e não pelo namespace, por exemplo, https://schemas.microsoft.com/mapi/proptag/0x0037001E.
O parâmetro PropertyName não é sensível a casos. Por exemplo, SetControlItemProperty interpreta um argumento, CustomerId, como o mesmo que CustomerID e associa o controle especificado à propriedade interna ContactItem.CustomerID .
Você também pode usar a seguinte linha de código myPage.Controls("bar").ItemProperty = "subject" para associar a propriedade do assunto a um controle. No entanto, observe que o código não confiável usando essa irá disparar um aviso de segurança se a propriedade estiver protegida pela proteção de segurança do modelo de objeto, como para, e o computador cliente está executando o Microsoft Office Outlook 2007 ou posterior, mas não tem um apropriadamente definido o software antivírus. Use o método SetControlItemProperty para evitar avisos de segurança com aplicativos confiáveis.
Exemplo
O seguinte código Visual Basic for Applications (VBA) adiciona uma página personalizada para um item de compromisso, adiciona um controle textbox personalizado e vincula esse controle à propriedade Subject.
Sub Example()
Dim myIns As Outlook.Inspector
Dim myAppt As Outlook.AppointmentItem
Dim ctrl As Object
Dim ctrls As Object
Dim myPages As Outlook.Pages
Dim myPage As Object
Set myAppt = Application.CreateItem(olAppointmentItem)
Set myIns = myAppt.GetInspector
Set myPages = myIns.ModifiedFormPages
Set myPage = myPages.Add("New Page")
myIns.ShowFormPage ("New Page")
Set ctrls = myPage.Controls
Set ctrl = ctrls.Add("Forms.TextBox.1")
myIns.SetControlItemProperty ctrl, "Subject"
myAppt.Display
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.