delete Inbox message at specific Hour

  • Thread starter Thread starter nina
  • Start date Start date
Status
Not open for further replies.
N

nina

would someone please post an example of how a message could be deleted from inbox at a

certain hour containing a specific subject string

ie. Hour > 23 and InStr(Subject,"Joined Domain")
 
Public Sub InboxItemCheck()

Dim myNamespace As Outlook.NameSpace

Dim myAppts As Outlook.Items

Dim myItems As Outlook.Items

Dim myItem As Object

Dim i As Long

Dim DateStart As Date

Dim DateToCheck As String

DateStart = Date

DateToCheck = "[LastModificationTime] >= """ & DateStart & """"

Set myNamespace = Application.GetNamespace("MAPI")

Set myAppts = myNamespace.GetDefaultFolder(olFolderInbox).Items

Set myItems = myAppts.Restrict(DateToCheck)

For i = myItems.Count To 1 Step -1

Set myItem = myItems.Item(i)

If (InStr(myItem.Subject, "Joined Domain")) Then

myItem.Delete

End If

Next

End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S Outlook 2016 dont delete inbox item Using Outlook 0
M Cannot Delete Emails from IMAP inbox Using Outlook 4
R How to delete folders in the inbox.. Using Outlook 1
T Cannot delete single email in INBOX, delete grayed out Using Outlook 7
Retired Geek Outlook on MAC delete duplicate Sent emails Using Outlook 0
H Macro to Delete Duplicate items in Outlook calendar where title is the same and date is the same Outlook VBA and Custom Forms 0
B Delete Read Receipts in Your Outlook Outlook VBA and Custom Forms 0
A Outlook 365 Delete entries in title field, address book Using Outlook 0
D Delete Outlook emails from MS server Using Outlook 17
K How can I delete an e-mail from Outlook Using Outlook 1
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
G Automatically delete email when a condition is met Outlook VBA and Custom Forms 1
D Outlook 2021 Using vba code to delete all my spamfolders not only the default one. Outlook VBA and Custom Forms 0
M Shift Delete doesn't delete email from server Using Outlook 3
J Unable to delete folders in Outlook 2019 / Windows Using Outlook 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
J Quick steps delete original email and move reply/sent email to folder Using Outlook 2
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Automatically delete messages in the synchronization folder Outlook VBA and Custom Forms 3
O How to delete a forum post? Using Outlook 4
T Outlook 2010 Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito Outlook VBA and Custom Forms 0
C Outlook 2016 Unable to delete Gmail IMAP calendar Using Outlook 2
F Wishlist Outlook suddenly began synchronizing deleted items every time I delete a single email. Using Outlook 2
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
R Outlook 365 update sets delete from server flag Using Outlook 1
S Outlook 2016 A Shortcut to recall and delete and sent message. Using Outlook 1
T Outlook 2010 How to Delete “Orphaned” TO DO? ( Not on Exchange Server) Using Outlook 6
P How did hacker cause link to delete and archive containing email? Using Outlook 6
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
J To delete the draft email Using Outlook 2
W Recurrence: delete older occurrences / change earliest start time Outlook VBA and Custom Forms 0
J Moved many emails to Outlook external folder, need to delete on Gmail server Using Outlook 14
A Attachments.Delete Outlook VBA and Custom Forms 3
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
R Expand VBA Permanent Delete Code Outlook VBA and Custom Forms 6
M Delete headers in Inline reply Outlook VBA and Custom Forms 5
N VBA to delete duplicates by message-id on common pst for 2 or more emails Outlook VBA and Custom Forms 0
S How can I delete all copies of a given companies logo graphic from all my emails at once? Using Outlook 3
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
D after delete mail, open the next one Outlook VBA and Custom Forms 0
O Delete duplicate emails - subscription notifications Using Outlook 5
F Delete/create/reset Exchange mailbox on Outlook.com Using Outlook.com accounts in Outlook 3
L Email Read and Delete Outlook VBA and Custom Forms 4
H Delete Calendar Entries in Using Outlook 2
D Delete Emails from Senders in Shared Mailbox Outlook VBA and Custom Forms 1
R How to delete Facebook Contacts folder in Outlook 365 Using Outlook 7
R VBA Code to permanently delete selected email Outlook VBA and Custom Forms 10
JoeG Appointment Delete/Change Recurrence Outlook VBA and Custom Forms 0
C Outlook 2016 cannot delete, email showing in root Exchange Server Administration 5

Similar threads

Back
Top