Flag Message for Follow Up after sending


Outlook version
Outlook 2019 64-bit
Email Account
Office 365 Exchange
Hi there,

Is there anything wrong with this code.
Sometimes it work sometimes it doesn't work.
Idea is to have an options to flag follow up items for Sent Email.

Private Sub olSentItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
Dim prompt As String
prompt$ = "Do you want to flag this message for followup?"
If MsgBox(prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Add flag?") = vbYes Then
With Item
.Categories = "Orange category"
.FlagRequest = "Follow up"
End With
End If
End Sub

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
it looks good. Is the question not coming up every time or does it come up but the flag isn't set?

If it's not bringing up the question, comment out the on error resume line - that should bring up the debug message if it errors and you might be able to figure out which line is the problem.
Thread starter Similar threads Forum Replies Date
M How can I customize the Follow Up Flag message in Quick Steps? Using Outlook 1
F Unable to set Follow-up flag for self in new message Using Outlook 1
R Call a Public Sub when a Flag is clicked on in the Message Preview pane Outlook VBA and Custom Forms 1
B on flag message event - create task Outlook VBA and Custom Forms 22
A automatically remove flag from original message when a response was received Using Outlook 2
A Unflag Inbox and Flag Inbox with Orange Category After Item is send Outlook VBA and Custom Forms 3
N Outlook 2010 Flag blocked for Safe Senders List???? Using Outlook 7
Rupert Dragwater Email flag does not show up in Outlook2013 Using Outlook 13
J Outlook 2013 Extract Flag Completed dates to Excel Macro Outlook VBA and Custom Forms 16
M Setting flag follow up for next business day Outlook VBA and Custom Forms 1
M VBA to change flag status in outlook contact item Outlook VBA and Custom Forms 3
A rule to flag messages not working Using Outlook 5
S set a flag task date as the next weekday Outlook VBA and Custom Forms 4
G Flag for Follow Up with a customized duetime Using Outlook 1
Diane Poremsky How to Easily Change the Private Flag New Slipstick.com Articles 0
A Flag outgoing email messages in Outlook 2010 Outlook VBA and Custom Forms 0
T Customize Outlook flag Using Outlook 1
mikolajek Add on for customized flag operations? Using Outlook 4
Norbert VBA Flag that would indicate the email was sent from Outlook to Access. Outlook VBA and Custom Forms 2
A Custom Flag Form Outlook VBA and Custom Forms 2
S Have Rule or Quick Step PROMPT for custom FLAG Due/Reminder date Outlook VBA and Custom Forms 3
mikecox Missing alarm flag Using Outlook 2
smokiibear follow-up flag fro Tasks in Outlook 2010 Using Outlook 5
D Create additional custom flag descriptions (other than Send E-Mail, Call etc.) Using Outlook 1
L VBA Macro to flag sent emails Using Outlook 1
A Post Form Follow Up Flag Using Outlook 4
S Flag Completion Using Outlook 0
J How to set a flag to follow up using VBA for outlook 2003 Using Outlook 10
F Apply Follow up flag ONLY to the people cc'd. Using Outlook 1
J Macro to periodically sort emails by flag status? Using Outlook 1
2 Flag for Follow up or create new task Using Outlook 1
L Flag settings Using Outlook 1
V Flag related messages Using Outlook 4
B choosing flag status as a field for my inbox Using Outlook 1
C Can't "Arrange By" Outlook 2010 Inbox by Flag Status Using Outlook 2
N Re: Can not set Follow-up flag for new email currently composing - Outlook 2007 / Win7 Using Outlook 2
T When I flag an email, i want to set the alarm/reminder Using Outlook 3
T How do I check litigationholdenabled flag via powershell Exchange Server Administration 3
M Flag outgoing mail by word in body Outlook Wishlist 1
D Follow up flag only displays Set Flag, Clear Flag. Missing Today, Tomorrow, This Week, Next Week, No Using Outlook 2
A Flag Status? Are you serious? Using Outlook 6
D Setting the Reminder flag in VBA for e-Mails sent to users Outlook VBA and Custom Forms 5
S Adding follow flag for me by macro (MSO2007) Outlook VBA and Custom Forms 3
S Outlook (2016 32bit; Gmail IMAP) - Save sent message to Outllook Folder Outlook VBA and Custom Forms 0
C Why won't Title display in message list? Using Outlook 1
icacream content in this message could not be downloaded.... Using Outlook 2
J Outlook 2016 After a search in all mailboxes, where is each message that was found? Using Outlook 6
R Warn before sending message Outlook VBA and Custom Forms 4
T Column to display which email alias a message was sent to Outlook VBA and Custom Forms 6
V Change start time based on message duration Outlook VBA and Custom Forms 2
Similar threads