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.
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.
