olAppointmentItem .Start

[ElRugg]

Hi all,

With an Excel cell currently active, I want to create an Outlook Meeting for that date and time entered. Although it looks like the cell is properly set up with the date format, it's not working.

Here's an abridged version of what I have so far:

Sub Mtg()

Dim olA As Object
Dim olMt As Object

Set olA = CreateObject("Outlook.Application")
Set olMt = olA.CreateItem(olAppointmentItem)

With olMt
.Start = ActiveCell.Value
.Duration = 30
.Subject = ActiveCell.Offset(0, -8).Value & " - " & ActiveCell.Offset(0, -5).Value
.Location = "Conference Room"
.ReminderSet = True
.Display
End With

End Sub

There's additional code at the beginning to test that the right column is selected and that the active cell isn't blank. That's working as expected though so that's not noted.

When testing, an error comes up at the ".Start" line. It's runtime error 438: object doesn't support this property or method. Since every suggestion seems to use that same property, not sure what I'm missing. Any help would be appreciated!

 

[RoryA]

If you do not have a reference set to the Outlook object library, then your olApointmentItem constant has no value and will be treated as 0. That means that you will actually get a mailitem, not an appointmentitem. Either set the reference or declare the constant yourself using:

const olAppointmentitem as long = 1

 

[ElRugg]

I added the Outlook references in another workbook and thought that would transfer over for other workbooks... Clearly I was wrong and thanks for the reminder to check that!