Outlook ne fournit pas de fonctionnalité pour ouvrir automatiquement tous les e-mails entrants de personnes spécifiques. Ainsi, cet article vous exposera une telle méthode.
Il est certain que vous ne voulez manquer aucun e-mail de personnes extrêmement importantes, comme les e-mails de votre supérieur. Dans ce cas, vous pouvez utiliser la règle Outlook pour afficher une alerte particulière lorsque de tels e-mails arrivent dans votre boîte aux lettres. En dehors de cela, vous pouvez également souhaiter qu'Outlook ouvre automatiquement ces e-mails. Bien qu'il ne soit pas pris en charge par la règle Outlook, vous pouvez toujours le réaliser via Outlook VBA. Maintenant, dans ce qui suit, nous allons exposer un morceau de code VBA pour vous aider. Veuillez lire la suite pour l'obtenir.
Ouvrir automatiquement tous les e-mails entrants de personnes spécifiques
- Pour commencer, accédez à l'éditeur VBA d'Outlook en vous référant à «Comment exécuter le code VBA dans votre Outlook" .
- Ensuite, ouvrez le projet "ThisOutlookSession" et copiez-y le code VBA suivant.
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
'Occurs when incoming emails arrive in Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim strSenders As String
Dim varSenders As Variant
Dim i As Long
If TypeOf Item Is MailItem Then
Set objMail = Item
'Change the specific persons
strSenders = "bob_black@datanumen.com; shelly@datanumen.com; kim@datanumen.com"
varSenders = Split(strSenders, ";")
'Open the emails from specific persons
For i = 0 To UBound(varSenders)
If objMail.SenderEmailAddress = varSenders(i) Then
objMail.Display
Exit For
End If
Next
End If
End Sub
- Ensuite, redémarrez votre application Outlook pour activer cette macro.
- Maintenant, vous pouvez essayer. Déplacez simplement un e-mail provenant d'expéditeurs spécifiques vers la boîte de réception. Immédiatement, cet e-mail s'ouvrira automatiquement dans sa propre fenêtre.
Résoudre les problèmes Outlook ennuyeux
Si vous utilisez Outlook depuis des décennies, il est fort probable que vous ayez déjà rencontré divers problèmes et erreurs. Par exemple, au démarrage d'Outlook, vous avez peut-être reçu un message d'erreur indiquant que votre fichier PST est inaccessible. Cette erreur signale généralement une corruption du fichier PST. Dans ce cas, vous devrez… fixer PST déposer. Cela pourrait être considérablement épineux si vous n'utilisez que l'outil de réparation de la boîte de réception. Cependant, si vous recourez à un outil plus puissant et plus fiable, comme DataNumen Outlook Repair, la tâche serait beaucoup plus facile.
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 réparer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com