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