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
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.
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.
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
