Deleting Duplicate Calendar Entires

Not open for further replies.

Niall McS

New Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Hi I am new to VB and I have been tasked with adding a bit of code into a macro to replace and delete duplicate calendar items. For intance if a meeting was scheduled for 22-oct-2014 @9am but the meeting changed to 10am I am looking to delete the entry for 9am within the calendar. As I am new to VB I am unsure whether to use a delete or a replace command. The existing code is:

Private Sub Copy(ByRef Item As Object)
Dim folderID As String 'ID for folder
folderID = "00000000..." 'Set folder ID value
Dim storeID As String 'ID for store
storeID = "0000000030..." 'Set store ID value

Dim objCalendarFolder As Outlook.Folder 'Folder for additional calendar
Set objCalendarFolder = Outlook.Application.Session.GetFolderFromID(folderID, storeID)
If (Not objCalendarFolder Is Nothing) Then
Dim currentAppt As AppointmentItem
If TypeOf Item Is AppointmentItem Then
Set currentAppt = Item
Set currentAppt = Item.GetAssociatedAppointment(False) 'Call get current item function
End If

Call currentAppt.Copy.Move(objCalendarFolder)
Set currentAppt = Nothing
End If
End Sub

I was thinging along the lines of in laymans terms

If Item = True
Else Exit

Forum Admin

Senior Member
You'll need to use .delete and then resave it with the correct date. Or, just select it and change the time.

Niall McS

New Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Thanks for the response.. I should have been more clear in that a user will create an appointment on their calendar and it will update a shared group calendar. This is what adds another level of complexity
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
T Deleting duplicate emails Using Outlook 2
Fozzie Bear Accepted Zoom Invites deleting without going into Default Calendar - Office 2016 Mac Using Outlook 3
J Autoreply email recieved from specific sender after deleting some text from body. Using Outlook 0
B Outlook 2013 erratically deleting original file that is attached Using Outlook 0
M Deleting attachments does not reduce file size Using Outlook 0
L Deleting Office 365 calendar appt w/o emailing invitees Using Outlook 3
D Outlook 2016 Deleting emails without affecting folder structure - Outlook Office 365 Using Outlook 3
R Deleting emails from storage folder Outlook VBA and Custom Forms 1
R Deleting Synchronisation of Old Accounts Using accounts in Outlook 0
W Deleting Sent Task Email, Deletes the task from my list Using Outlook 1
M Adding Macro to populate "to" "subject" "body" not deleting email string below. Outlook VBA and Custom Forms 5
L OL 2016 contact: is there a way to prevent an admin from mistakenly deleting a contact? Using Outlook 1
N Saving And Deleting Outlook Attachments with Unknown Error Message Outlook VBA and Custom Forms 1
B Deleting multiple accounts Using Outlook 1
A Sort emails into subfolders based on sender and deleting emails automatically Outlook VBA and Custom Forms 3
C Outlook is permanently deleting deleted items (purging) Using Outlook 0
S Automatically selecting folders and deleting messages in Outlook VBA Outlook VBA and Custom Forms 7
P Deleting items in folders doesnt send them to deleted items! Using Outlook 4
W Deleting Emails from the Server in Outlook 2016 Using Outlook 2
B Outlook not deleting messages from server Using Outlook 0
Rupert Dragwater Deleting email from Deleted Items does not work Using Outlook 0
B Deleting old Stream_autocomplete and other files Using Outlook 1
skylark53 Loss of default format on deleting signature Using Outlook 5
P deleting old UDP items in tasks Outlook VBA and Custom Forms 3
V Outlook 2013 deleting email text when sent Using Outlook 11
D After Moving or Deleting Open Item - Meeting Requests Using Outlook 4
D Outlook 2013 Deleting all my messages Using Outlook 9
J Deleting Email from Exchange Server Using Outlook 2
T Deleting iCloud Synced Contacts Exchange Server Administration 2
N Messages still in 'Deleted items' folder even after deleting! Using Outlook 2
R Deleting Attachments(embedded) in Outlook 2013 Using Outlook 10
W Outlook deleting emails Using Outlook 5
O Outlook 2013 deleting emails randomly Using Outlook 0
S Deleting Personal folder and IMAP account PST files Using Outlook 0
G Deleting AOL Emails form Outlook 2010 or 2013 Using Outlook 1
C Is there a way to prompt a user before deleting an item? BCM (Business Contact Manager) 4
D Deleting internet calendar on one computer removes it from all computers Using Outlook 2
L Outlook 2013 IMAP account is deleting e-mails from my inbox - help!!! Using Outlook 3
B Deleting Nested Attachments Using Outlook 2
Commodore Deleting folders or feeds when deleting from default RSS Feeds structure? Using Outlook 7
K Clearing/Deleting all Public Folders through VBA Using Outlook 3
S Deleting Custom Fields Using Outlook 4
R Deleting one email in a conversation deletes all Using Outlook 6
O Inbox Search Results won't update when deleting or moving an email Using Outlook 12
B How to completely and permanently deleting a POP3 Account in 2010 Using Outlook 9
P Printing, pasting & deleting issues Using Outlook 4
B How do I get a warning before deleting e-mail messages? Using Outlook 2
S Outlook 2010 is not deleting mail from my server once downloaded Using Outlook 2
R Deleting the offline address book Using Outlook 1
P E-mail not deleting from Inbox Using Outlook 1

Similar threads