germadon.blogg.se

The macros above watch the Junk Email folder in your default data file. If Right(LCase(Item.SenderEmailAddress), lenTLD) = arrTLD(i) Then ' Go through the array and look for a match, then do something LenTLD = Len(Item.SenderEmailAddress) - InStrRev(Item.SenderEmailAddress, ".") + 1ĪrrTLD = Array(".de", ".br", ".gq", ".tk", ".ga", ".it", ".tr", ".ml")Ĭase Else ' avoids errors a longer TLD is foundĭebug.Print lenTLD, Right(LCase(Item.SenderEmailAddress), lenTLD) 'Debug.Print InStrRev(Item.SenderEmailAddress, ".") trade), add another case block, where the Case value is the length of the TLD + 1 (for the. If you want to delete longer TLDs (such as. This allows us to check for TLDs of different lengths.įor the array, you'll use a comma-separated list of domains. To watch for multiple top-level domains in the default Junk Email folder, we'll use select case and an array. If Right(Item.SenderEmailAddress, 3) = ".br" Then Private Sub objItems_ItemAdd(ByVal Item As Object) Set objWatchFolder = objNS.GetDefaultFolder(olFolderJunk) Set objNS = Application.GetNamespace("MAPI") Private WithEvents objItems As Outlook.Items VBA doesn't have a permanently delete command, so w need to move it to the Deleted Items and would need to delete it again. Also, the macro moves the junk mail to the Deleted items folder. Or use the macro at the end of the page to run the ItemAdd macro on any folder in your profile. If you have more than one data file, you'd need to watch each Junk Email folder. Notes: As written, these macros only work on the default junk email folder.

This simple macro watches the default Junk Email folder for messages from one top-level domain. You can also use an ItemAdd macro to watch the Junk Email folder and delete mail as it is added to the Junk Mail folder. Click Run Rules Now button you added to the QAT or ribbon.Add the Run Rules Now command to the Quick Access Toolbar or ribbon.