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.
 
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.
 
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.


>
 
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.
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

Back
Top