Comment désactiver l’avertissement « Pas d’objet » dans Outlook ?

Lorsque vous utilisez Outlook 2010 et 2013, si vous envoyez des messages électroniques sans objet, une boîte de dialogue d‹avertissement s›affiche systématiquement pour vous le rappeler. Si vous ne souhaitez vraiment pas renseigner l'objet, cet avertissement devient une source de gêne importante. Afin d’aider les utilisateurs d’Outlook à se débarrasser de cet avertissement, nous proposons une astuce dans le tutoriel ci-dessous.

Désactiver l‹avertissement « Pas d›objet » dans Outlook

---

Désactiver l‹avertissement « Pas d›objet » dans Outlook

Dans Outlook 2007, aucun avertissement ne s’affiche lorsque vous envoyez un message sans objet. Cette fonctionnalité est activée par défaut dans Outlook 2010 et 2013. Toutefois, aucune option intégrée ne permet de désactiver directement cet avertissement. Dans ce tutoriel, nous vous présentons un code VBA pour le désactiver.

1. Appuyez sur les touches « Alt » + « F11 » pour ouvrir la boîte de dialogue « Microsoft Visual Basic pour Applications ».

2. Développez « Projet1 » > « Objets Microsoft Outlook » en double-cliquant dessus, puis double-cliquez sur « ThisOutlookSession » pour ouvrir la fenêtre « VbaProject.OTM ».

3. Copiez et collez le code VBA ci-dessous dans cette fenêtre.

VBA : Désactiver l‹avertissement « Pas d›objet »

Option Explicit
Private WithEvents oInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set oInspectors = Outlook.Inspectors
End Sub

Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim oItem As Object
    On Error GoTo ExitProc
    Set oItem = Inspector.CurrentItem
    If oItem.Sent = False Then
        If oItem.Subject = "" Then oItem.Subject = " "
    End If
ExitProc:
    Set oItem = Nothing
    Set Inspector = Nothing
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    On Error Resume Next
    Item.Subject = Trim(Item.Subject)
End Sub

Private Sub Application_Quit()
    Set oInspectors = Nothing
End Sub

4. Cliquez sur le bouton « Enregistrer » pour enregistrer votre code VBA.

5. Redémarrez l’application Outlook.

Le code VBA entre alors en action : désormais, lorsque vous envoyez un message sans objet, la boîte d’avertissement « Pas d’objet » ne s’affiche plus.

Remarque : veillez à ce que l’option « Activer toutes les macros » soit bien cochée. (Pour le vérifier, cliquez sur « Fichier » > « Options » > « Centre de gestion de la confidentialité » > « Paramètres du Centre de gestion de la confidentialité », puis, dans la boîte de dialogue « Centre de gestion de la confidentialité », sélectionnez « Paramètres des macros » > « Activer toutes les macros ».) Voir la capture d’écran :