Comment : empêcher Outlook d'afficher une zone de formulaire

Article
08/10/2011

Dans certains cas, vous ne souhaitez pas que Microsoft Office Outlook affiche une zone de formulaire pour un élément particulier. Par exemple, si un contact ne contient pas d'adresse professionnelle, vous pouvez empêcher l'affichage d'une zone indiquant l'emplacement de l'entreprise sur une carte.

S'applique à : Les informations contenues dans cette rubrique s'appliquent aux projets de niveau application pour Outlook 2007 et Outlook 2010. Pour en savoir plus, consultez Fonctionnalités disponibles par type d'application et de projet Office.

Pour empêcher Outlook d'afficher une zone de formulaire

Ouvrez le fichier de code de la zone de formulaire que vous souhaitez modifier.
Développez la région de code Fabrique de zones de formulaire.
Ajoutez le code au gestionnaire d'événements FormRegionInitializing qui affecte à la propriété Cancel de la classe FormRegionInitializingEventArgs la valeur true.

Dans cet exemple, si l'élément de contact ne contient pas d'adresse, la propriété Cancel a la valeur true et la zone de formulaire n'apparaît pas.

Exemple

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;
}