Lorsque vous renvoyez ou transférez un e-mail, vous souhaiterez peut-être ne pas enregistrer de copie dans votre dossier Éléments envoyés. Cet article vous apprendra comment configurer Outlook pour demander ou non d'enregistrer une copie avec Outlook VBA.
En pratique, pour la plupart des courriels courants, il est préférable d'en conserver une copie dans le dossier « Éléments envoyés ». Toutefois, dans certains cas, comme lors du renvoi ou du transfert d'un courriel, ou encore lorsqu'il contient une pièce jointe volumineuse, il peut être inutile d'en conserver une copie. Dans ces circonstances, il est conseillé d'espérer qu'Outlook vous propose des solutions et vous laisse le choix.
Solution : utilisez l'option "Ne pas enregistrer"
En fait, Outlook n'a pas cette fonctionnalité. Mais vous pouvez utiliser une solution de contournement. C'est l'option "Ne pas enregistrer" dans la fenêtre de message. Vous pouvez y accéder en passant à l'onglet "Options", puis en cliquant sur le bouton "Enregistrer l'élément envoyé dans", comme dans la capture d'écran suivante :
Pour un accès plus facile à cette option, vous pouvez l'ajouter à la barre d'outils d'accès rapide. Faites un clic droit dessus et choisissez "Ajouter à la barre d'outils d'accès rapide" dans le menu contextuel.
Désormais, si vous ne souhaitez pas enregistrer de copie, il vous suffit de cocher la case « Ne pas enregistrer » dans la barre d'outils Accès rapide. Bien que cette méthode soit pratique, la plupart des utilisateurs oublient souvent de la cocher. Ils souhaiteraient donc qu'une fenêtre contextuelle d'Outlook leur demande confirmation. Pour ce faire, vous pouvez utiliser VBA pour Outlook. Vous trouverez ci-dessous le code et les étapes détaillés.
VBA : demander s'il faut enregistrer une copie ou non lors de l'envoi d'e-mails
- En premier lieu, lancez Outlook et passez à l'onglet "Développeur".
- Cliquez ensuite sur le bouton "Visual Basic", ce qui fera apparaître une nouvelle fenêtre.
- Dans la fenêtre "Visual Basic", double-cliquez sur "ThisOutlookSession" pour ouvrir la fenêtre de projet "ThisOutlookSession".
- Copiez et collez ensuite les codes suivants dedans.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strMsg As String
Dim nRes As Integer
strMsg = "Do you want to save a copy of this message?"
nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Saving Copy")
If nRes = vbNo Then
Item.DeleteAfterSubmit = True
End If
End Sub
- Après cela, vous devez signer ce code comme d'habitude et modifier les paramètres de la macro pour n'activer que les macros signées numériquement.
- Finalement, vous pouvez essayer. Lorsque vous cliquez sur le bouton "Envoyer", vous recevrez une alerte Outlook, comme l'image suivante. Si vous sélectionnez le bouton "Non", le message actuel ne sera pas enregistré dans le dossier Éléments envoyés. Alors que si vous appuyez sur le bouton "Oui", ce message sera enregistré.
Faire face aux problèmes Outlook fréquents
Comme d'autres applications, Outlook peut subir divers problèmes, tels qu'un plantage soudain, une absence de réponse, des messages d'erreur occasionnels, etc. Par conséquent, si vous êtes un utilisateur régulier d'Outlook, vous feriez mieux de vous procurer un Outil de réparation de fichiers Outlook, comme DataNumen Outlook Repair en ce sens qu'il vous sera utile lorsque vous constaterez que votre fichier Outlook est corrompu pour des raisons inconnues.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparation SQL Server corruption de la base de données mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com