Updated to Microsoft 365 and now have a issue

[Drewgarry007]

Hi,

I have upgraded my PC to windows 365 and now get a 'Object library feature not supported' error when running the below macro. I have edited the email addresses, texts and file paths. the files the macro picks up are created and saved daily so these would be the first files saved down using windows 365:

Public Sub CreateNewMessage()
Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

With objMsg
  .To = "Email addressl"
  .CC = "Email address"
  '.BCC =
  .Subject = "Super " & Format(Now, " ddmmmyy")
  .Categories = "Test"
  .VotingOptions = "Yes;No;Maybe;"
  .BodyFormat = olFormatPlain ' send plain text message
  .Importance = olImportanceHigh
  .Sensitivity = olConfidential
  .Attachments.Add ("Z:\file path" & Format(Now, " ddmmmyyyy") & ".xlsx")
  .Attachments.Add ("Z:\file path" & Format(Now, " ddmmmyyyy") & ".xlsx")

 
' Calculate a date using DateAdd or enter an explicit date
  .ExpiryTime = DateAdd("m", 6, Now) '6 months from now
  .DeferredDeliveryTime = #8/1/2012 6:00:00 PM#
  .Body = "Hi," & vbNewLine & vbNewLine & _
              "text" & Format(Now, "ddmmmyyyy.") & vbNewLine & vbNewLine & _
              "Thanks," & vbNewLine
  .Display
End With

Set objMsg = Nothing

End Sub

Any ideas??

 

[RoryA]

FYI, it's Microsoft 365 (formerly Office 365), rather than Windows 365.

Which line is causing the error?

 

[Drewgarry007]

This line seems to be the issue:

Set objMsg = Application.CreateItem(olMailItem)

 

[RoryA]

So this is an Outlook question, rather than Excel?

 

[Drewgarry007]

it pics up excel files so thought it might be something to do with the files but yes the macro sits in outlook

 

[RoryA]

I've just checked it in Microsoft 365 and the code works fine for me. Perhaps you need to repair Office?