Requesting VBA code to make Outlook prompt for confirmation when deleting a task?

[Blair]

Operating system::    Windows 11
Outlook version:     Outlook 365
Email type or host:    Microsoft 365

---

May I ask is there some way, either with an interface setting I can't find or with VBA code, to make Outlook prompt me for confirmation before deleting a task?

Here's what happens to me painfully often: I get an e-mail containing something I need to add to an existing task. I double-click the task in the To-Do bar and add a bullet point, then save and close the task (returning me to the Inbox view). Then I press Delete on the keyboard, intending to delete the incoming e-mail -- but the focus is still on the task I double-clicked, and it just goes away. Undo does not get it back. I can get it back from Deleted Items, but first I have to notice that it's gone.

Ideally, Outlook would say, "Are you sure you want to delete this task? Yes/No

I did find TaskItem.BeforeDelete object, but I'm not sure how to implement it to achieve the end goal.

I also found a code snippet here that claims to work for almost any object item, but it's not prompting me when running tests. BeforeDelete Event - Microsoft Outlook Visual Basic Documentation

Thanks!

 

[Diane Poremsky]

May I ask is there some way, either with an interface setting I can't find or with VBA code, to make Outlook prompt me for confirmation before deleting a task?

Here's what happens to me painfully often: I get an e-mail containing something I need to add to an existing task. I double-click the task in the To-Do bar and add a bullet point, then save and close the task (returning me to the Inbox view). Then I press Delete on the keyboard, intending to delete the incoming e-mail -- but the focus is still on the task I double-clicked, and it just goes away. Undo does not get it back. I can get it back from Deleted Items, but first I have to notice that it's gone.

Ideally, Outlook would say, "Are you sure you want to delete this task? Yes/No

I did find TaskItem.BeforeDelete object, but I'm not sure how to implement it to achieve the end goal.

I also found a code snippet here that claims to work for almost any object item, but it's not prompting me when running tests. BeforeDelete Event - Microsoft Outlook Visual Basic Documentation

Thanks!

Damn spammers don't waste time finding new threads. LOL

That macro is not complete - this is a complete example but is depends on your hitting a button to run the macro. It needs to be added to the startup macro and watch the task folder.

MailItem.BeforeDelete event (Outlook)

Office VBA reference topic

learn.microsoft.com

Something like this should work... but its not, so I'm missing a step. Will check it better after my next meeting ends.

Public TasksFolder As Outlook.folder
Private WithEvents TasksFolderItems As Items

Private Sub Application_Startup()

  Dim objNS As NameSpace
  Set objNS = Application.Session

  Set TasksFolder = objNS.GetDefaultFolder(olFolderTasks)
  Set TasksFolderItems = TasksFolder.Items
    End Sub

Private Sub TasksFolderItems_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
'Prompts the user before deleting an item


    Dim strPrompt As String
    'Prompt the user for a response
    strPrompt = "Are you sure you want to delete the item?"
    If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbNo Then
        'Don't delete the item
        Cancel = True
    Else
        MsgBox ("Item Deleted")
        'Delete the item
        Cancel = False
    End If


End Sub

 

[Blair]

Hi Diane,

Thank you for taking a shot at this. I look forward to your update.

-Blair

 

[Diane Poremsky]

>>
In order for this event to fire when a mail message, distribution list, journal entry, task, contact or post are deleted through an action, an Inspector must be open.
>>
This is why its not working in my test - the item is not opened in a new window. I don't know if there is a way around it.

 

[Blair]

@Diane Poremsky - Thank you for trying. If you (or anyone else) figures this out at some point, please post the solution here.

Have a great day!