Is it possible that this is a Microsoft Update caused Error?

Sub SendEmail()
    Dim OutApp As Object
    Dim OutMail As Object
    
    Dim sBody As String, sRecipiant as string
    
    sBody = "This is an email message"
    sRecipiant = "me@here.net"
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = sRecipiant
        .CC = vbNullString
        .BCC = vbNullString
        .Subject = "email test -- " & Format(Now, "General Date")
        .Body = sBody
        .ReadReceiptRequested = False
        '.Send
'with and without attachments.Add
Debug.PRint(.Attachments.Count)
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
        
End Sub