Cómo: Impedir que Outlook muestre un área de formulario

Artículo
08/10/2011

Es posible que haya situaciones en las que desee que Microsoft Office Outlook no muestre un área de formulario para un elemento determinado. Por ejemplo, si un elemento de contacto no contiene una dirección profesional, puede evitar que aparezca un área de formulario que muestre la ubicación de la empresa en un mapa.

Se aplica a: la información de este tema se aplica a los proyectos de nivel de aplicación para Outlook 2007 y Outlook 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.

Para impedir que Outlook muestre un área de formulario

Abra el archivo de código del área de formulario que desea modificar.
Expanda el área de código Generador de áreas de formulario.
Agregue código al controlador de eventos FormRegionInitializing que establezca la propiedad Cancel de la clase FormRegionInitializingEventArgs en true.

En este ejemplo, si el elemento de contacto no contiene una dirección, la propiedad Cancel se establece en true y no aparece el área de formulario.

Ejemplo

Private Sub MapItFactory_FormRegionInitializing(ByVal sender As Object, ByVal e As Microsoft.Office.Tools.Outlook.FormRegionInitializingEventArgs) Handles Me.FormRegionInitializing

    Dim myItem As Outlook.ContactItem = CType(e.OutlookItem, Outlook.ContactItem)

    If Not (myItem Is Nothing) Then
        If Not (myItem.BusinessAddress Is Nothing) AndAlso myItem.BusinessAddress.Trim().Length > 0 Or (Not (myItem.HomeAddress Is Nothing) AndAlso myItem.HomeAddress.Trim().Length > 0) Or (Not (myItem.OtherAddress Is Nothing) AndAlso myItem.OtherAddress.Trim().Length > 0) Then
            Return
        End If
    End If

    e.Cancel = True

End Sub

private void MapItFactory_FormRegionInitializing(object sender,
    Microsoft.Office.Tools.Outlook.FormRegionInitializingEventArgs e)
{
    Outlook.ContactItem myItem = (Outlook.ContactItem)e.OutlookItem;

    if (myItem != null)
    {
        if ((myItem.BusinessAddress != null &&
                myItem.BusinessAddress.Trim().Length > 0) ||
            (myItem.HomeAddress != null && 
                myItem.HomeAddress.Trim().Length > 0) ||
            (myItem.OtherAddress != null && 
                myItem.OtherAddress.Trim().Length > 0))
        {
            return;
        }
    }

    e.Cancel = true;
}