Receive a Reminder When a Message Doesn't Arrive?

Not open for further replies.

Diane Poremsky

Senior Member
OS Version(s)
  1. MacOS
  2. Windows
  3. iOS
  4. Android
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Diane Poremsky submitted a new article on

Receive a Reminder When a Message Doesn't Arrive?

I’m often asked how to be reminded if a message does not arrive within a specified time. This a popular request by administrators and others who receive routine status messages. When a status message doesn't arrive, it can mean there is a problem.

Is it possible to set a reminder, or email myself automatically, if a particular email does not arrive by a certain time every hour?​

Yes, you can do this using a run a script rule. Outlook doesn't have a timer, so you'll need to...
Continue reading the Original Article at
Hi Diane, U are doing an awesome job. Thanks much for doing such an excellent work.
This code is working fine at home, yet in my office system I’m encountering latency. When I researched the reason for latency I could sense the following syntax is causing the delay in execution. ( If LCase(objVariant.Subject) = LCase(Item.Subject) And objVariant.SentOn < Item.SentOn Then). As information, I’m using outlook 2010 I changed macro security settings to enable all macros and restarted the outlook multiple times but no luck yet. Not sure why in my office system the outlook is getting freeze to 12 seconds when the macro executes. Would it be due to some other reason? Is there way to fix this? Any help is really appreciated.
What type of email account are you using at work? If Exchange, is it cached locally?
Yes its exchange. Cache is not enabled but if i enable, the macro is working fine without latency, however for a reason i'm not suppose to enable the cache. Is there a workaround to make the macro work without enabling the cache?
I kind of figured it was that since it seems to hang on this line:
If LCase(objVariant.Subject) = LCase(Item.Subject) And objVariant.SentOn < Item.SentOn Then

That is comparing the subject and sent date of the new message with all previous messages looking for a match. Because it's doing it "over the wire", it's slower. (A large mailbox will be slower too.)

I'm not sure this will work, but try adding an eexit sub after end with - this will exit after the first match. As long as it's working newest to oldest (or the old messages are deleted), it should work. But I'm not sure it does that. I'll see if we can add a filter and speed it up.

End With

'or just delete the older messages
' objVariant.Delete

Exit Sub
End If
End If
The macro checks each message in the inbox for a match - with class online mode, it had to go out to the server, which results in the slower response time. As long as you only have one match (or Outlook finds the newest one first) you could exit when it finds the match.

With objVariant
.Categories = ""
End With

'or just delete the older messages
' objVariant.Delete

Exit Sub
End If

A filter instead of a loop could also improve the response time - something like this:
sFilter = "[Subject] = " & LCase(objVariant.Subject)
Set ResItems = MailItems.Restrict(sFilter)
'Loop through the items in the collection.
For Each Item In ResItems
If objVariant.SentOn < Item.SentOn Then
' do whatever
Hi Diane, Thanks much for your response. I tested in my personal outlook (in which the account type is not exchange) and it works fine. I didn't get chance to text in exchange account. I will be testing it in 1 or 2 days. I'll keep you posted on the result. Thanks again.
One more question. It's understandable that if the macro matches the subject then it clears the reminder and un-flags the original email. If the reply email contains RE: (default prefix in subject) then macro is not considering that as a match and as a result it's not clearing the reminder or un-flags the original email, but actually it should clear. I would feel happy if you suggest a syntax that will not consider RE: or FW: default prefix in subject.
We can check for : in the 3rd position and trim it before searching. I'll take a look.
Something like this will work -

strSubject = LCase(objVariant.Subject)

if instr(strSubject, ":") =3 then

strSubject = right(strSubject, len(strSubject)-4)

end if

sFilter = "[Subject] = " & strsubject
I must be losing my mind, because I swear I answered this last night. :) Or maybe it was a similar question from another users... anyway, you'll use an If statement - something like this -

sSubject = LCase(objVariant.Subject)

if InStr(sSubject , ":") = 3 then
sSubject = right(sSubject, len(ssubject) - 4)
end if

sFilter = "[Subject] = " & ssubject
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
TomHuckstep Remove Send/Receive All Folders (IMAP/POP) button from Outlook 365 Ribbon Using Outlook 2
Geldner Send / Receive a particular group via macro or single keypress Using Outlook 1
A Change settings Send/receive VBA Outlook VBA and Custom Forms 0
R How to restrict GWSMO sync to Outlook Send/Receive cycles Using Outlook 0
M Outlook 2016 IOS recipients receive my paragraph double space as quadruple space Using Outlook 2
C Synchronizing subscribed folders causes hanging during send/receive process Using Outlook 2
D Archive by receive date not working Using Outlook 2
C Send/receive error 80040119 Using Outlook 2
ChrisK2 Send email to fails: "The group advertising isn't set up to receive messages from..." Using Outlook 3
M Send/Receive error 0x800CCC0F Using Outlook 0
N Outlook 2010 will not send nor receive Using Outlook 4
I How to receive mails on behalf of when sent to group mail? Using Outlook 2
L Outlook 2007 Separate the Send/Receive functions Using Outlook 2
L How to automaticlly Send/Receive every 3 mins but override send if send/receive is pressed Using Outlook 2
Diane Poremsky Configuring a Manual Send and Receive in Outlook Using Outlook 0
M configure Onpremise exchange to send/receive emails internally and externally) Exchange Server Administration 0
M receive mail when appointment category changes and create task from appointment Outlook VBA and Custom Forms 0
P Outlook 2007 not sending/receiving until restart (send/receive stuck at __%) Using Outlook 27
J Send and Receive Button - only check default account? Using Outlook 1
S send/receive issues outlook 2013 Using Outlook 4
Z Always Send from Default Account, depend of receive account Outlook VBA and Custom Forms 7
wisedave Office 365 Outlook - Emails send but don't receive Using Outlook 12
RBLampert Outlook "can't find" my e-mail server to receive messages Using Outlook 22
D Outlook 2010 hangs during message send/receive Using Outlook 2
S Outlook 2010 I am getting error code 0x8DE00006 'the operation failed'. outlook 2010 send/receive progress Using accounts in Outlook 2
Nesher Can send but not receive Using Outlook 1
David Trevose Hanging on Send Receive Using Outlook 2
mikecox "Send/Receive" goes missing Using Outlook 3
R Email Send & Receive Turned off but sends automatically anyway Using Outlook 1
N Outlook 2010 take long time in send / receive Using Outlook 1
J why won't the automatic send/receive work Using Outlook 7
A Auto send-receive in Outlook not working Using Outlook 6
R send/receive no action Using Outlook 2
A yahoo mail doesn't send or receive reliably Using Outlook 1
L I can't receive messages-HELP! Using Outlook 0
E Strange Send/Receive count Using Outlook 3
A receive error when create new business contact BCM (Business Contact Manager) 14
Jennifer Murphy Why would I want to send/receive when offline? Using Outlook 0
P Outlook 2010 will not receive on startup Using Outlook 0
S Send/Receive Progress is black??? Using Outlook 4
I could not open attached files, i receive a message with “corrupted file” Using Outlook 0
U Odd behaviour for auto-receive Using Outlook 2
M Send receive Progress Box Using Outlook 4
0 Outlook 2010 causes computer to lose connection when opening and Send/Receive Using accounts in Outlook 14
D Emails stuck in Outbox, not receiving emails, Outlook 2010 auto send/receive Using Outlook 4
A Send only, don't receive Using Outlook 1
P Not able to receive meeting request Using Outlook 2
K Send/Receive All Folders doesn't show Progress status Using Outlook 14
B Slow to receive emails on Outlook 2013 Using Outlook 35

Similar threads