Vous pouvez également l'atteindre et non en utilisant une règle, mais en effectuant l'action de type règle dans le code. Par exemple:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim mai As Object
Dim strEntryId
For Each strEntryId In Split(EntryIDCollection, ",")
Set mai = Application.Session.GetItemFromID(strEntryId)
If mai.Parent = "Inbox" Then
If mai.SenderEmailAddress = "the-email-address-the-rule-applies-to" Then
mai.Move Application.GetNamespace("MAPI").GetFolderFromID("the-entry-ID-of-the-folder-you-want-to-move-the-message-to")
End If
End If
Set mai = Nothing
Next
End Sub
Comment obtenir l'ID du dossier (c.-à-EntryID du dossier):
Ceci est juste une façon manuelle, vous pouvez faire une procédure récursive mais à des fins simples, cela est bien.Par exemple, j'avais une structure comme:
Mailbox - My_Name_Here
Inbox
The Subfolder I'm Looking For
Sent Items
...
Ainsi, dans la fenêtre immédiate, je tapais:
? Application.GetNamespace("MAPI").Folders(1)
et augmenter le nombre jusqu'à ce que je suis arrivé "boîte aux lettres - My_Name_Here"
, je dactylographié:
? Application.GetNamespace("MAPI").Folders(the_number_of_my_mailbox).Folders(1)
en augmentant le nombre jusqu'à ce que j'obtienne "Inbox".
Puis:
? Application.GetNamespace("MAPI").Folders(the_number_of_my_mailbox).Folders(the_number_of_my_Inbox).Folders(1)
d'augmenter le nombre jusqu'à ce que je suis "Le Sous-dossier que je cherche"
Puis:
? Application.GetNamespace("MAPI").Folders(the_number_of_my_mailbox).Folders(the_number_of_my_Inbox).Folders(the_number_of_the_subfolder_i_was_looking_for).EntryID
Et ce fut: le ENTRYID du dossier que je voulais déplacer le message. Vous obtenez le point, je suis sûr :)
La réponse est incorrecte. MailAlert affiche juste la notification contextuelle que vous pouvez déjà faire en utilisant des règles (peut-être devoir vérifier 'lancer comme administrateur' dans les propriétés de outlook.exe). La question portait sur la nouvelle icône de la boîte aux lettres qui ne s'affiche que pour les nouveaux messages dans la boîte de réception. –