Deleting Appointment Automatically When Expired

Status
Not open for further replies.
O

Orion Cochrane

Is there a way for Outlook to automatically delete an appointment when the

system time is >=End of Appointment? I want a prompt before deleting.

TIA

I am running on Office 2003, unless otherwise stated.
 
K

Ken Slovak - [MVP - Outlook]

You would have to write code to do that, scanning your calendar folder on a

timer event or run manually from a macro or something like that.

"Orion Cochrane" <OrionCochrane> wrote in message

news:D20BAE8F-FE25-45A5-B9E7-BC88435EC9E8@microsoft.com...
> Is there a way for Outlook to automatically delete an appointment when the
> system time is >=End of Appointment? I want a prompt before deleting.

> TIA
> > I am running on Office 2003, unless otherwise stated.
 
O

Orion Cochrane

Can you give me the code to do that?

I am running on Office 2003, unless otherwise stated.
wrote:


> You would have to write code to do that, scanning your calendar folder on a
> timer event or run manually from a macro or something like that.

> >

>

> "Orion Cochrane" <OrionCochrane> wrote in message
> news:D20BAE8F-FE25-45A5-B9E7-BC88435EC9E8@microsoft.com...
> > Is there a way for Outlook to automatically delete an appointment when the
> > system time is >=End of Appointment? I want a prompt before deleting.
> > TIA
> > > > I am running on Office 2003, unless otherwise stated.

>
 
K

Ken Slovak - [MVP - Outlook]

Very slightly modified from an example from the Outlook VBA Help on

Items.Restrict. Always use the Object Browser to look for examples and

sample code:

Public Sub ApptDateCheck()

Dim myNamespace As Outlook.NameSpace

Dim myAppts As Outlook.Items

Dim myItems As Outlook.Items

Dim myItem As Object

Dim i As Long

Dim DateStart As Date

DateStart = Date

Set myNamespace = Application.GetNamespace("MAPI")

Set myAppts = myNamespace.GetDefaultFolder(olFolderCalendar).Items

Set myItems = myAppts.Restrict("[End] < """ & DateStart & """")

For i = myItems.Count To 1 Step -1

Set myItem = myItems.Item(i)

If (myItem.Class = olAppointment) Then

myItem.Delete

End If

Next

End Sub

"Orion Cochrane" <OrionCochrane> wrote in message

news:0FBA4472-6405-49AA-B059-A9470FB38C8A@microsoft.com...
> Can you give me the code to do that?
> > I am running on Office 2003, unless otherwise stated.
 
Status
Not open for further replies.
< Address book search customization | Creating recurrence appointment >
Similar threads
Thread starter Title Forum Replies Date
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 Outlook.com accounts in Outlook 0
T Deleting duplicate emails Using Outlook 2
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
N Deleting Duplicate Calendar Entires Outlook VBA and Custom Forms 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

Similar threads

Top