Pour transférer automatiquement des e-mails entrants spécifiques, vous penserez d'abord à utiliser des règles dans Outlook. Cependant, la règle ne vous permet pas de personnaliser l'objet et le corps de l'e-mail lors du transfert. Si vous souhaitez transférer automatiquement des e-mails spécifiques avec un objet et un corps personnalisés, vous pouvez utiliser la méthode présentée dans cet article.
Comme nous le savons tous, les règles Outlook peuvent aider les utilisateurs à transférer automatiquement des e-mails entrants spécifiques. De cette manière, l'e-mail sera automatiquement transféré aux personnes spécifiques avec pour objet le modèle "FW : objet de l'e-mail d'origine" et le corps de l'e-mail d'origine. Cependant, de nombreux utilisateurs espèrent transférer automatiquement les e-mails avec un objet et un corps personnalisés. Apparemment, les règles ne peuvent pas le réaliser. Par conséquent, nous allons présenter ici une approche pour l'obtenir facilement.
Transfert automatique d'e-mails entrants spécifiques avec un objet et un corps personnalisés
- Au tout début, start votre programme Outlook.
- Ensuite, accédez à l'éditeur VBA en faisant référence à "Comment exécuter le code VBA dans votre Outlook" .
- Ensuite, copiez et collez le code VBA suivant dans le projet "ThisOutlookSession".
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objForward As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
'If it is a specific new email
If (objMail.SenderEmailAddress = "bob_black@datanumen.com") And (objMail.Importance = olImportanceHigh) And (objMail.Attachments.Count > 0) Then
Set objForward = objMail.Forward
'Customize the forward subject, body and recipients
With objForward
.Subject = "Custom Subject"
.HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
.Recipients.Add ("boss@datanumen.com")
.Recipients.Add ("john@datanumen.com")
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Send
End With
End If
End If
End Sub
- Après cela, modifiez les critères des e-mails entrants spécifiés. Et modifiez le corps, le sujet et les destinataires spécifiques dans le code selon vos besoins.
- Enfin, cliquez sur "Application_Startup" et appuyez sur la touche "F5".
- Depuis lors, chaque fois qu'un message entrant spécifique arrive dans votre dossier Boîte de réception par défaut, Outlook le transmet automatiquement avec un objet et un corps personnalisés aux destinataires prédéfinis.
Résoudre les problèmes d'Outlook avec souplesse
Bien qu'Outlook soit riche en fonctionnalités, il ne peut pas être à l'abri des erreurs et autres problèmes. Par exemple, le fichier Outlook PST peut être facilement corrompu en raison de plusieurs facteurs. Ceux-ci incluent les erreurs humaines, les virus, les fichiers PST surdimensionnés et les profils Outlook endommagés, etc. Par conséquent, vous devez prendre certaines précautions, telles que faire attention à la taille du fichier Outlook PST, garder tous les virus à distance et vous procurer un outil robuste. Récupération d'Outlook outil, tel que DataNumen Outlook Repair.
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 SQL Server récupération et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com