Help: set flag for sent mail to check if received an answer


New Member
Outlook version
Outlook 2019 32-bit
Email Account
Exchange Server
Hi, I could really use some help here!
I have never used VBA - but I sent a large number of emails every day and would need a way to quickly check which ones have received an answer.

It would be very similar to this post, but I am struggling to find out how to modify the script.

Any help would be much appreciated!

Thanks a lot!
You'd want to use Flag messages after sending macro on that page - either click Yes or no for each message or flag everything you send.

This one can check for follow flags and remove them when a message arrives. It will need tweaked to work for your scenario as it looks for matches in the inbox.
Did not test so it might be full of errors... this should find flagged sent item and unflag when the recipient replies.

Private objNS As Outlook.NameSpace
Private WithEvents objNewMailItems As Outlook.Items
Private objInbox As Outlook.MAPIFolder
Private objSent  As Outlook.MAPIFolder

Private Sub Application_Startup()
Dim objOwner As Outlook.Recipient
Set objNS = Application.GetNamespace("MAPI")

Set objInbox = Session.GetDefaultFolder(olFolderInbox)
Set objSent = Session.GetDefaultFolder(olFolderSentMail)

Set objNewMailItems = objInbox.Items
End Sub

Sub objNewMailItems_ItemAdd(ByVal Item As Object)

Dim intCount As Integer
Dim objVariant As Variant

' look for existing messages and remove the flag and reminder
For intCount = objSent.Items.Count To 1 Step -1
 Set objVariant = objSent.Items.Item(intCount)
 If objVariant.MessageClass = "IPM.Note" Then
    If  instr(1,LCase(Item.Subject), LCase(objVariant.Subject)) > 0 And objVariant.SentOn < Item.SentOn Then
' clear flag and category
With objVariant
    .Categories = ""
End With
    End If
 End If
End Sub
Similar threads
Thread starter Title Forum Replies Date
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
M Help! Can't set up IMAP for gmail Using Outlook 2
S Custom Contact card - need help creating one Outlook VBA and Custom Forms 1
D Lifelong Windows user - new to Mac - Help!!! Using Outlook 3
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 4
I Help with Smart Folder + Query Builder on IMAP Using Outlook 0
S Outlook 2002- "Send" button has disappeared. Help please. Using Outlook 1
A Outlook 2019 Help with forwarding email without mentioning the previous email sender. Outlook VBA and Custom Forms 0
Witzker Outlook 2019 HELP to get Template Path in a Function Outlook VBA and Custom Forms 2
CWM550 Outlook 365 HELP! Calendar Craziness! Using Outlook 5
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
e_a_g_l_e_p_i Has nobody used Office 2021 enough to help me or have you given up on Using Outlook 1
X Open Hyperlinks in an Outlook Email Message (Help with Diane's solution) Outlook VBA and Custom Forms 3
L Help connecting to hosted exchange server 2016 Using Outlook 0
B Seeking help with Outlook rule Using Outlook 2
D Need help with MS Authenticator Using Outlook 4
I Outlook for Mac 2019 using on desktop and laptop IMAP on both need help with folders Using Outlook 1
S.Champ Please help? I've imported a random workcalendar I dont even know who's. Can I undo it? and then I need to re-sync the google one again. Its a mess:( Using Outlook 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
e_a_g_l_e_p_i Outlook 2010 Help setting up Gmail account in Outlook 2010 Using Outlook 3
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
Y Filter unread emails in a search folder vba help Outlook VBA and Custom Forms 0
L Need help modifying a VBA script for emails stuck in Outbox Outlook VBA and Custom Forms 6
F Microsoft Outlook Connector 14.0.6123.5001 - Help! Using Outlook 6
Witzker Pls help to change the code for inserting date in Ol contact body Outlook VBA and Custom Forms 5
R Disable conversation thread from replying of recipients in the same subject. Please help Using Outlook 0
R seperate read layout to design in outlook 2016..Help!! Outlook VBA and Custom Forms 3
O Help .. got lost ... installing Office like 2016 Using Outlook 5
A Arthur needs help with 2007 Outlook e-mail Using accounts in Outlook 3
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using accounts in Outlook 2
L Attachment saving and tracking - PLEASE help! Outlook VBA and Custom Forms 5
I Help with dates in task list. Using Outlook 5
C need help setting up outlook first time Using Outlook 1
K To do bar help Using Outlook 8
M Help sending email but removing signature via VBA Outlook VBA and Custom Forms 5
S help with outlook scripting Outlook VBA and Custom Forms 4
J Help Please!!! Outlook 2016 - VBA Macro for replying with attachment in meeting invite Outlook VBA and Custom Forms 9
EmelineGueguen Help to understand the problem of work Using Outlook 1
N Outlook Forms Help Outlook VBA and Custom Forms 2
N Need help syncing contacts to iPhone X Using Outlook 8
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
broadbander Needing help with reply/reply all while keeping attachments and adding a new CC recipient. Outlook VBA and Custom Forms 5
J Help! My contacts have disappeared. Using Outlook 5
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
J Help Needed With Multi-Step Login Email Address Using accounts in Outlook 1
G Bcc help - Preventing multiple forwards from a bcc'd distribution group Using Outlook 1
G [Help] Converting array to destination folder path Outlook VBA and Custom Forms 1
K Help.... Office Outlook 2016 Using Outlook 1
S Error using AddressEntry.GetContact - need help Outlook VBA and Custom Forms 2

Similar threads