CDO_Mail_Small_Text Run time error

[Louis chiron]

Hi,

I use the following VBA CDO code to send an email with an attachment to an email address once a week. This has worked fine for several years but this week it returns the following runtime error:
Run-time error '-2147220975 (80040211)':
The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available.

The error is showing on the ".Send" line of the code

I've searched for causes/solutions which seem to point to a problem with login details but I have checked both username and password for the sending address and they're correct, and the recipients email address is also correct.

The code itself has not been altered so I cant understand what has now caused this error.

Does anybody know what the actual run-time error code means and how to fix it? Thanks

The macro is being run from:
Microsoft Excel for Microsoft 365 MSO (Version 2409 Build 16.0.18025.20030) 64-bit
O/S: Windows 10 Home
Version 22H2

Sub CDO_Mail_Small_Text()

Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim title As String
        Dim Flds As Variant

 Const myEmailAddress = "xxmy emailxx@hotmail.com"
 Const myEmailPassword = "xxmy passwordxx"
 
   ' Defines Title
 title = Sheet1.Range("c2").Value
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

        iConf.Load -1    ' CDO Source Defaults
        Set Flds = iConf.Fields
    With Flds
           .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail.outlook.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myEmailAddress
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = myEmailPassword
     
            .Update
        End With



    strbody = "Hi," & vbNewLine & vbNewLine & _
          "Please find attached the wages sheet for w/c " & title & vbNewLine & vbNewLine & vbNewLine & _
          "Kind Regards," & vbNewLine & vbNewLine & _
         

    With iMsg
        Set .Configuration = iConf
        .To = "xxrecipient's emailxx@hotmail.com"
        .CC = ""
        .BCC = ""
        .From = myEmailAddress
        .Subject = "Wages w/c " & title
        .TextBody = strbody
        .AddAttachment ("C:\Users\xxfile locationxx.xlsx")
        .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Sub