Hello All,

I am trying to create an appointment in outlook using VBA. I can create the appointment and add the necessary attendees. The problem is that I want to send the appointment to all the attendees except myself as I don’t want this to display in my calender. Below is the code. Can any one help??

Dim obj0app As Outlook.Application
Dim objappt As Outlook.AppointmentItem

Set obj0app = CreateObject("Outlook.Application")
Set objappt = obj0app.CreateItem(olAppointmentItem)

With objappt
    .Subject = "Booked Training"
    .Body = "Training Date"
    .ReminderSet = True
    .Start = Date + 3 & " 8:00"
    .End = Date + 3 & " 8:30"
    .ResponseRequested = False
    .RequiredAttendees = "a,b,c"
    .BusyStatus = olBusy
    .Location = "G4"
    .Send
End With