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
You'll need to use .delete and then resave it with the correct date. Or, just select it and change the time.
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