Outlook Appointments > how do I delete or update

Barsoom

New Member
Joined
May 25, 2012
Messages
6
I Know how to make an outlook appointment:

Sub MakeAppt()


Dim olApp As Outlook.Application
Dim olApt As AppointmentItem


Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)


With olApt
.RequiredAttendees = Range("B2")
.Subject = Range("B3")
.Location = Range("B4")
.Start = Range("B5") + Range("D5")
.End = Range("B6") + Range("D6")
.Categories = Range("E6")
.Body = Range("A8")
.MeetingStatus = 1
.BusyStatus = olBusy
'.Send
.Save
End With


Set olApt = Nothing
Set olApp = Nothing

MsgBox "Appointment Made", vbInformation, "Appointment Made"


End Sub
##############

How do I delete an appointment based on its
1. Subject
2. Start Date

Also How do I Update or Amend an appointment by searching for its
1. Subject
2. Start Date
and updating absolutely everything else
 

Forum statistics

Threads
1,086,120
Messages
5,387,964
Members
402,091
Latest member
thomastsiakis

Some videos you may like

This Week's Hot Topics

Top