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.
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"
.Save
End With
End If
End Sub
