Note: The other languages of the website are Google-translated. Back to English

Outlook: rappel automatique lors de l'oubli des pièces jointes dans les messages

Vous pourriez avoir mal à la tête d'oublier l'ajout de pièces jointes, mais rappelez aux destinataires de vérifier les pièces jointes dans le corps du message électronique. Ici, nous allons présenter deux astuces sur la façon de vous rappeler automatiquement lorsque vous envoyez un message électronique qui peut manquer de pièces jointes dans Microsoft Outlook.

Rappel automatique en cas d'oubli de pièces jointes dans Outlook 2013/2016

Rappel automatique en cas d'oubli de pièces jointes dans Outlook 2007 et 2010

supprimer tous les contacts en double d'un ou plusieurs dossiers de contacts dans Outlook

Parfois, nous pouvons ajouter à plusieurs reprises les mêmes contacts, comment supprimer les contacts en double d'un ou plusieurs dossiers de contacts? Kutools pour Outlook's Duplicate Contacts La fonction peut rapidement supprimer ou fusionner les contacts en double en fonction des e-mails, du nom complet ou d'autres critères d'un ou plusieurs dossiers de contacts.    Cliquez pour un essai gratuit de 45 jours!
doc supprimer les contacts en double 1
 
Kutools for Outlook: avec des dizaines de compléments Outlook pratiques, essayez gratuitement sans limitation en 45 jours.
Onglet Office - Activez la modification et la navigation par onglets dans Office et simplifiez considérablement le travail ...
Kutools for Outlook - apporte 100 fonctionnalités avancées puissantes à Microsoft Outlook
  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par règles; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à plusieurs e-mails à la fois; Ajouter un message d'accueil automatique quand répondre; Ajout automatique de la date et de l'heure au sujet ...
  • Outils de fixation: Détacher automatiquement, Tout compresser, Tout renommer, Tout enregistrer automatiquement ... Rapport rapide, Compter les courriers sélectionnés, Supprimer les messages et contacts en double ...
  • Plus de 100 fonctionnalités avancées résoudre la plupart de vos problèmes dans Outlook 2021 - 2010 ou Office 365. Fonctionnalités complètes Essai gratuit de 60 jours.

flèche bleue bulle droiteRappel automatique lors de l'oubli des pièces jointes dans Outlook 2013/2016

Microsoft Outlook 2013 prend en charge la fonctionnalité de vous avertir automatiquement lorsque vous envoyez un message électronique dans lequel des pièces jointes peuvent être manquantes.

Étape 1: cliquez sur le Déposez le > Options.

Étape 2: Dans la boîte de dialogue Options Outlook, cliquez sur le Courrier dans la barre de gauche.

Étape 3: Aller à la Envoyer des messages section, et continuez à vérifier l'option de M'avertir lorsque j'envoie un message pour lequel il manque peut-être une pièce jointe.

Étape 4: cliquez sur le OK bouton pour quitter cette boîte de dialogue.

Ensuite, Microsoft Outlook 2013 ou 2016 vous avertira automatiquement si vous risquez d'oublier des pièces jointes.

Par exemple, vous entrez le texte de "veuillez vérifier les pièces jointes","voir les pièces jointes», Etc. dans le corps de votre message, mais n'insérez pas de pièces jointes dans le Attachement champ. En cliquant sur le Envoyer bouton, une boîte de dialogue d'avertissement apparaîtra pour indiquer que vous avez peut-être oublié de joindre un fichier. Voir la capture d'écran suivante:


flèche bleue bulle droiteRappel automatique en cas d'oubli de pièces jointes dans Outlook 2007 et 2010

Microsoft Outlook 2007 et 2010 ne prennent pas en charge l'avertissement automatique en cas d'oubli de pièces jointes. Une macro VBA peut vous aider à le réaliser.

Étape 1: appuyez sur le autre + F11 touches pour ouvrir la fenêtre Microsoft Visual pour Applications.

Étape 2: étendez le projet 1 dans la barre de gauche et double-cliquez sur le Cette session Outlook pour l'ouvrir.

Étape 3: collez le code suivant dans la fenêtre ThisOutlookSession.

VBA: avertissement si pas d'insertion de pièce jointe

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

Étape 4: cliquez sur le Enregistrer bouton sur la barre d'outils.

À partir de maintenant, si vous ajoutez le texte de "attachement"Dans le corps du message, mais ne joignez pas de fichiers, le rappel d'avertissement apparaîtra pour vous indiquer que vous avez peut-être oublié de joindre un fichier lorsque vous cliquez sur le bouton Envoyer bouton. Voir la capture d'écran:


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (34)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
salut, aide gr8, merci. mais il y a un problème lorsque la macro de changement de date ne fonctionne pas, aucune aide pour la durée de vie. ;-)
Ce commentaire a été minimisé par le modérateur sur le site
Vraiment, ça marche. Merci
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé la macro et rien ne se passe - une idée pourquoi?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai des macros activées dans Outlook 2010, mais le code ne fonctionne pas. Tous les fichiers avec pièce jointe dans le corps sont toujours envoyés sans pièce jointe.
Ce commentaire a été minimisé par le modérateur sur le site
Cette macro fonctionne pour moi, mais malheureusement la signature requise par l'entreprise a un avis de confidentialité qui contient le travail "joindre" 3 fois ! Je reçois donc l'avertissement contextuel avec chaque e-mail que je signe. Comment puis-je modifier la macro pour nous avertir uniquement si le mot attacher est dans l'e-mail 4 fois ou plus ?
Ce commentaire a été minimisé par le modérateur sur le site
Dans la ligne qui indique "If iIndex > 0 And Item.Attachments.count = 0 Then", remplacez le premier 0 par un 3 pour qu'il se lise : "If iIndex > 3 And Item.Attachments.count = 0 Then" Cette ligne vérifie pour combien de fois vous avez dit le mot spécifié dans la ligne précédente, donc je pense que cela résoudra votre problème.
Ce commentaire a été minimisé par le modérateur sur le site
Pour certains d'entre vous notant que rien ne s'est passé... Je n'ai pas pu le faire fonctionner tout de suite, mais lorsque j'ai démarré mon ordinateur le lendemain, cela a bien fonctionné. Peut-être qu'un redémarrage est nécessaire ?
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de rechercher plus d'un mot ? Fe vérifiant à la fois "attacher" et "ci-joint" Merci
Ce commentaire a été minimisé par le modérateur sur le site
dans cette section du code... iIndex = InStr(Item.Body, "attach") vous pouvez ajouter plus de variables ou "strings". Ex : iIndex = InStr(Item.Body, "attach", "attachment", "attaching") ... et ainsi de suite. Assurez-vous de séparer chacun par une virgule cependant
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour l'outil. Je l'utilise dans Outlook 2019. Cela fonctionne. Après un nouveau démarrage d'Outlook, cela ne fonctionne plus.
Je souhaite également ajouter d'autres mots clés et j'ai pensé à les ajouter comme vous l'avez fait.
Mais malheureusement ça ne marche pas. Toute proposition?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, vous devez copier le code vba chaque fois que vous démarrez Outlook. Si vous voulez avoir une expérience transparente, vous pouvez utiliser le Avertissement par e-mail caractéristique de Kutools pour Outlook:
On Kutools cliquez sur la flèche déroulante à côté de Avertissement par e-mail, Sélectionnez Me rappeler quand j'envoie un message sans pièces jointes. Créez ensuite votre règle (voir capture d'écran ci-dessous) et activez la fonctionnalité.
https://www.extendoffice.com/images/stories/comments/ljy-picture/remind-before-sendinng.png

Amanda à écrit son
Ce commentaire a été minimisé par le modérateur sur le site
Tout d'abord, merci. J'ai incorporé cela dans notre bureau qui fonctionne en 2010. Cependant, nous avons constaté que si quelqu'un avait initialement envoyé un e-mail avec le mot joint et après plusieurs réponses, la macro compterait toujours la "pièce jointe" initiale. Gros problème avec les longues convocations par e-mail, vous continuerez à être invité à mettre une pièce jointe en raison de l'e-mail d'origine. Pensées?
Ce commentaire a été minimisé par le modérateur sur le site
[quote]Tout d'abord, merci. J'ai incorporé cela dans notre bureau qui fonctionne en 2010. Cependant, nous avons constaté que si quelqu'un avait initialement envoyé un e-mail avec le mot joint et après plusieurs réponses, la macro compterait toujours la "pièce jointe" initiale. Gros problème avec les longues convocations par e-mail, vous continuerez à être invité à mettre une pièce jointe en raison de l'e-mail d'origine. Pensées?Par DAN[/quote] J'ai pensé partager une solution que nous avons trouvée dans mon bureau à ce sujet. Cela fera en sorte que les images ajoutées à l'e-mail ou qui peuvent être trouvées dans la signature de quelqu'un ne seront pas considérées comme une pièce jointe. Et cela ne prend en compte que votre e-mail le plus récent, pas tout le corps. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr( Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Sinon : strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments .Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Ce commentaire a été minimisé par le modérateur sur le site
Je sais que ce fil date de quelques mois, alors j'espère que vous suivez toujours. Pour une raison quelconque, je ne peux pas voir votre commentaire dans son intégralité. Il est coupé à "Do While i". Existe-t-il un moyen de republier ou d'envoyer par e-mail ? Merci d'avance!
Ce commentaire a été minimisé par le modérateur sur le site
Grande aide! :lol: ça aide beaucoup ! Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
Voici tout, désolé, il semble que certaines d'entre elles aient été coupées dans le message précédent... Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr(Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Else: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments.Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Ce commentaire a été minimisé par le modérateur sur le site
Salut Dan! On dirait que ton second post est coupé au même endroit. Vous ne savez pas s'il y a une limite de caractères dans le forum... peut-être essayez-vous de diviser le code entre les messages ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'ai utilisé ceci et cela fonctionne très bien, mais j'ai remarqué que si quelqu'un me répond et que je réponds, il recherche toute la piste des e-mails plutôt que celui qui est envoyé. est-ce qu'il y a une façon de changer cela? Merci
Ce commentaire a été minimisé par le modérateur sur le site
Est-ce que quelqu'un a réussi à faire fonctionner ça ? J'ai ajouté ce code selon les instructions ci-dessus, les macros activées, mais rien. Le code ne fait rien.
Ce commentaire a été minimisé par le modérateur sur le site
Est-ce que quelqu'un a réussi à faire fonctionner cela dans Outlook 2010 ? J'ai suivi les instructions ci-dessus et cela ne fait rien
Ce commentaire a été minimisé par le modérateur sur le site
Comment définir l'avertissement lorsqu'un message est envoyé sans pièce jointe dans lotus notes 8.5.3 ?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé ce code et lorsque je le teste avec mon adresse e-mail dans la ligne to, j'obtiens le message d'erreur, mais si j'y mets quelqu'un d'autre, tout se passe bien. Des idées sur ce qui pourrait se passer ?
Ce commentaire a été minimisé par le modérateur sur le site
La fonction de pièce jointe automatique est-elle conçue pour fonctionner lorsque vous envoyez un e-mail à l'aide des touches Ctrl+Entrée ?
Ce commentaire a été minimisé par le modérateur sur le site
La fonction de pièce jointe automatique est-elle conçue pour fonctionner lorsque l'e-mail est envoyé à l'aide des touches Ctrl+Entrée ?
Ce commentaire a été minimisé par le modérateur sur le site
Ce code ne fonctionnerait pas pour moi. J'ai dû utiliser celui-ci :
Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean)

Si InStr(1, Item.Body, "attach", vbTextCompare) > 0 Alors

Si Item.Attachments.Count = 0 Alors

answer = MsgBox("Il n'y a pas de pièce jointe, envoyer quand même ?", vbYesNo)

Si réponse = vbNon Alors Annuler = Vrai

Si fin

Si fin

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Si quelqu'un rencontre des difficultés pour utiliser ce code, les images de votre signature sont considérées comme des pièces jointes.


J'ai une image dans ma signature, donc en changeant la ligne:

Si iIndex > 0 Et Item.Attachments.Count = 0 Alors

à:

Si iIndex > 0 Et Item.Attachments.Count = 0 Ou Item.Attachments.Count = 1 Alors

Cela a fonctionné pour moi.
Ce commentaire a été minimisé par le modérateur sur le site
Merci de l'avoir signalé, c'était aussi un problème que j'avais. J'ai constaté que votre correctif a déclenché l'avertissement, que le mot "attacher" ait été utilisé ou non. A la place j'ai utilisé :

Si iIndex > 0 Et Item.Attachments.Count = 1 Alors

Cela a déclenché l'avertissement uniquement lorsque cela était prévu et non chaque fois qu'un e-mail était envoyé.
Ce commentaire a été minimisé par le modérateur sur le site
Merci Antoine, ça a marché.
Ce commentaire a été minimisé par le modérateur sur le site
MERCI !
Cela fonctionne parfaitement pour moi avec "If iIndex > 0 And Item.Attachments.Count = 0" malgré le fait que j'ai une image dans ma signature. J'utilise Microsoft Office Professionnel Plus 2010
Ce commentaire a été minimisé par le modérateur sur le site
Ne fonctionnera pas pour moi quelle que soit la valeur de comptage. J'ai tout essayé ici et pour une raison quelconque, je ne peux jamais obtenir la fenêtre contextuelle.
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL