Event listener for deleted items

Status
Not open for further replies.

inovermyhead

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Hello

I have the following code in ThisOutlookSession but it is not doing anything when I delete an item from my Inbox. Have I missed something?

Code:
Option Explicit 
 
Private WithEvents deletedItems As Outlook.Items 
 
Public Sub Application_Startup()
   Dim olApp As Outlook.Application
   Dim objNS As Outlook.NameSpace
   Set olApp = Outlook.Application
   Set objNS = olApp.GetNamespace("MAPI")
   Set deletedItems = objNS.GetDefaultFolder(olFolderDeletedItems).Items
      
 
End Sub 
 
Private Sub deletedItems_ItemAdd(ByVal item As Object)
   Debug.Print deletedItems.Items(i).EntryID 
 
End Sub

Thanks in advance

John
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Do you get any error messages? I'm getting an error on the debug.print line - if you aren't getting an error, then the macro is not running. Did you click in application startup to kick start the macro? Do you have macro security set to low?
 

inovermyhead

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Yes I worked out that the macro was not running so adjusted the security settings as you advised and problem solved.

Thanks
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
use this the itemadd macro -

Private Sub deletedItems_ItemAdd(ByVal item As Object)

Debug.Print item.EntryID

End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
J Outlook 2010 Outlook/Win7 Client logging Event ID 36887 Using Outlook 0
K Recurring all day annual event Using Outlook 3
P Restore an individual all-day recurring event Using Outlook 2
K VBA BeforeItemMove event create rule to always move to its folder. Outlook VBA and Custom Forms 4
K Working with Explorer.Close event Outlook VBA and Custom Forms 3
F Outlook 2016 call to Stop Timer Event Outlook VBA and Custom Forms 4
D Event ID issues Exchange Server Administration 2
J ItemChange event Outlook VBA and Custom Forms 11
T Outlook 2016 Calendar multiday event display Using Outlook 4
oliv- Treat once an email with the ItemAdd event in a shared mailbox Outlook VBA and Custom Forms 2
M Automatically create event in calendar when task is created Outlook VBA and Custom Forms 1
A UID field in iCal files - unique per-event or per-user or both? Using Outlook 2
D help with Item/Inspector close event Outlook VBA and Custom Forms 1
B on flag message event - create task Outlook VBA and Custom Forms 22
Diane Poremsky Change the All Day Event Default Free/Busy to "Busy" New Slipstick.com Articles 3
C Calendar - Centering an event in Outlook? Using Outlook 1
J Outlook calendar...How to add an event or appointment without a border around it? Using Outlook 9
J Create Calendar Alert Event form Mail Subject line? Using Outlook 4
S Item Add Event fires intermittently Outlook VBA and Custom Forms 3
R Why is a meeting organizer me and not the creator of the event? Using Outlook 1
V Calendar event acting odd Using Outlook 7
G Capture "forward event" ? Outlook VBA and Custom Forms 11
P Change the Outlook.com "from" address for calendar event invites Using Outlook 9
20 Ton Squirrel Detect Application_Startup event completion Outlook VBA and Custom Forms 1
L Outlook 2007 All Day Event Using Outlook 27
M Save Attachments Event? Using Outlook 0
Commodore Calendar Folder property is missing - Event 27 Using Outlook 11
G Quit event code - 2007 Using Outlook 3
J Capturing forward event when multiple items are selected Using Outlook 0
P Trying to get 'Calendar Name' to appear like 'Subject' and 'Location' in event Calendar Printing Assistant 0
G What event happens when you open 2 copies of your inbox? Using Outlook 5
D Adding a participant automatically to a calendar event Using Outlook 1
H Changing Organizer of event (for single to total calendar move; long way ) Exchange Server Administration 4
N Combobox in outlook add ons toolbar not firing event on main window resized Using Outlook 3
D Extracting Location info from All Day Event in mailboxes into webpage Exchange Server Administration 3
H Conflicts with other event in calendar ( outlook 2007 & 2010) Using Outlook 0
B Restoring Deleted Recurring Event AND Notes Using Outlook 8
Q Looking for Outlook 2010 Close Event Id Exchange Server Administration 1
S Outlook Recurring event Using Outlook 1
D Task and Event View in Outlook 2010? Using Outlook 3
I Event ID 2937 after update to Exchange 2010 SP1 ArbitrationMailbox Exchange Server Administration 4
S Error starting MS Outlook - Problem Event Name CLR20R3 Using Outlook 2
I Event ID 14031 logged after transition to Exchange 2010 Exchange Server Administration 4
J Recurring event (from 2006 and deleted multiple times) continues to send me multiple reminders Using Outlook 1
I Event ID 2937 after update to Exchange 2010 SP1 Exchange Server Administration 8
0 trying to get rid of the "end" time of each event within each day on the calendar. This shows up wh Using Outlook 1
Y MSExchange AuditLogsearch Event ID:4002 Exchange Server Administration 0
A "Item could not be found" error when attempting to send Outlook 2007 calendar event update Using Outlook 2
M Event 8010, MSExchangeTransport Exchange Server Administration 2

Similar threads

Top