Dates not being read correctly

Try

VBA.CDate(Cells(1, 3).Value)

Nope, makes no difference.

What is actually in cell(1,3)?

Originally Posted by Lastejp

What is actually in cell(1,3)?

Here's a screen grab. As I said originally, it's a date field set and formatted as a date field.

Attachment 839271

Try throwing in a DoEvents command after the save...

With olAppt
        Set oPat = .GetRecurrencePattern
        oPat.RecurrenceType = olRecursYearly
        .Start = DateValue(Cells(i, 3)) + TimeValue("9:00:00")
        .End = DateValue(Cells(i, 3)) + TimeValue("9:01:00")
        .Subject = Cells(i, 1) + " " + Cells(i, 2) + " is on " & Cells(i, 3) & " since " & Cells(i, 4)
        '.Location = Cells(i, 2)
        .Body = .Subject
        .BusyStatus = olFree
        .ReminderMinutesBeforeStart = 10080
        .ReminderSet = True
        '.Categories = Cells(i, 4)
        '.IsRecurring
        .Save
       DoEvents
    End With

Originally Posted by JeteMc

Selecting attachment 839271 results in the following: "Invalid Attachment specified. If you followed a valid link, please notify the administrator"

Trying again. The attach picture thing seems pretty lame on this site.

Excel Dates Grab.PNG

I see the problem. When you format a date such as 26 November 2017, it is not interpreted as a date when read back in. Change that format to something like mm/dd/yyyy and it should work

Originally Posted by Lastejp

I see the problem. When you format a date such as 26 November 2017, it is not interpreted as a date when read back in. Change that format to something like mm/dd/yyyy and it should work

Actually, no it isn't. Excel does store the date as a date serial if you select the "Date" dropdown, the purpose of that dropdown is just to describe how you want it visually represented. So, in theory, you SHOULDN'T need to use DateValue(cells(i,3) or Format(Cells(i, 3), "yyyy-mm-dd") & " 9:00:00 AM" because it is ALREADY a date, and Outlook is EXPECTING a DateTime. However, notwithstanding all that, I have tried both of those and neither makes a blind bit of difference to the outcome.

The real question here is What has changed in the Outlook/Excel/Office object model since version 16 that has broken this, as it was working fine in all previous versions of Office?

I'm of course grateful for people guessing or issuing conjecture, but what's needed here is an actual Microsoft MVP VBA programmer to actually answer the questions! I've helpfully attached a screen grab showing the cells correctly formatted as Dates and...showing Dates...

You're right. It's only if you format the day such as "Friday August 18 2023" that doesn't read back in.

Did you try what I suggested earlier?

Throw in a DoEvents command after the save

For info: So, after a simply ENORMOUS amount of phaffing. The solution is to move the Recurrence get/set after the setting of the .Start and .End parameters. Why that is, god knows. But that solves it.