Inspector.SetControlItemProperty method (Outlook) (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 Inspetor .

Parâmetros

Comentários

Utilize este método para vincular uma propriedade incorporada explícita ou uma propriedade personalizada a um controlo. 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 maiúsculas e minúsculas. Por exemplo, SetControlItemProperty interpreta um argumento CustomerId para ser o mesmo que CustomerID e vincula o controlo especificado à propriedade ContactItem.CustomerID incorporada.

Também pode utilizar a seguinte linha de código myPage.Controls("bar").ItemProperty = "subject" para vincular a propriedade do requerente a um controlo. 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. Utilize o método SetControlItemProperty para evitar avisos de segurança com aplicações fidedignas.

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

Objeto Inspector

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.