Appointments from Excel into Outlook Calendar

S

Sh0t2bts

Hi Guys

I found the below code within this forum to insert appointments into
your Outlook Calendar, the .RequiredAttendees is the section that I am
stuck on, I want it to send appointments to people I state in Cell E1.

These people are listed in our active directory as surname, firstname I
have tried this format in the cell E1 and also their full e-mail
address but no appointment is sent.

I want to send the appointment to (e-mail address removed), internally
it will be Bloggs, Joe.

Can anyone point out where I am going wrong?

Many Thanks

Mark

Sub CreateOutlookAppointment()
Dim ol As Object
Dim objItem As AppointmentItem

Set ol = CreateObject("outlook.application")

Set objItem = ol.CreateItem(olAppointmentItem)
With objItem
.Subject = Range("A1").Value
.Location = Range("B1").Value
.Start = Range("C1").Value
.Duration = Range("D1").Value
.RequiredAttendees = Range("E1").Value
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.Save
End With

Set objItem = Nothing
Set ol = Nothing
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel > Outlook Calendar code works.... 1 question 1
Outlook private calendar 1
Copying the "Link to Record" from an Appointment to a Task 0
Copying the "Link to Record" from an Appointment to a Task 0
Non Default Outlook Calendar 2
Creating appointments from MS Access to Outlook 1
Outlook and Access integration using VBA 1
Automated appointments from Access to Shared Calendars 1

Top