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

Comment transférer automatiquement les pièces jointes uniquement en fonction de critères spécifiques dans Outlook?

Normalement, lors du transfert d'un e-mail, le corps du message d'origine et les pièces jointes sont également inclus. Mais, parfois, il vous suffit de transférer uniquement les pièces jointes sans le message d'origine en fonction de critères à une personne spécifique. Comment pourriez-vous résoudre ce travail dans Outlook?

Transférer automatiquement uniquement les pièces jointes en fonction de critères spécifiques à une personne avec le code VBA


Transférer automatiquement uniquement les pièces jointes en fonction de critères spécifiques à une personne avec le code VBA

Par exemple, lors de la réception d'un e-mail dont l'objet contient le texte «fonctionnalité kto», toutes les pièces jointes de cet e-mail seront automatiquement transmises à la personne spécifique sans le corps du message. Les étapes suivantes peuvent vous aider, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.

Code VBA: transfert automatique des e-mails sans corps de message, mais uniquement les pièces jointes:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Notes: Dans le code ci-dessus, vous devez modifier le texte de l'objet et l'adresse du destinataire par les vôtres.

doc pièces jointes de transfert automatique seulement 1

3. Enregistrez ensuite le code et redémarrez Outlook pour prendre l'effet de code.

4. À partir de maintenant, chaque fois qu'un nouvel e-mail contient le texte d'objet spécifique arrive dans votre boîte aux lettres, Outlook transfère automatiquement ses pièces jointes sans corps de message à la personne souhaitée.

Notes: Ce code n'est disponible que pour le compte par défaut.


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és...
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en double... 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 (1)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
C'est très bien, mais si quelqu'un répond à la chaîne de l'e-mail avec une pièce jointe, il transmettra également automatiquement cette pièce jointe. Existe-t-il un moyen d'éviter cela? Merci
GUEST
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés