Отправка писем через CDO. - VB

Формулировка задачи:

Добрый день!
Некоторое время назад настроил скрипт для рассылки почтовых уведомлений внутри корпоративной сети через CDO с аутентификацией отправителя.
Скрипт отработал корректно, почта падала в Outlook от имени пользователя зарегистрированного в AD.
Затем прошло несколько месяцев и скрипт вновь понадобился, но теперь выполнение скрипта завершается ошибкой:
"System Error &H8004020E (-2147220978). Не удается изменить или удалить объект, добавленный с использованием COM+ Admin SDK".
Админы говорят, что политики не менялись. Я попробовал различные конфигурации скрипта, запускал с разных ПК.
Подскажите пожалуйста, если не решение, то хотя бы в каком направлении разбираться, по тексту ошибки мне не понять в чём проблема.
Спасибо!

Sub Send_Mail()
Dim msg As Object
Dim config As String
Set msg = CreateObject("CDO.Message")
msg.BodyPart.Charset = "windows-1251"
config = "http://schemas.microsoft.com/cdo/configuration/"
    With msg
        .To = "*******"       
        .From = "*****"
        .Subject = "Тема письма(ТЕСТ)"
        .TextBody = "Текст письма"       
        With .Configuration.Fields
            .Item(config & "sendusing") = 2
            .Item(config & "smtpserver") = "*******"
            .Item(config & "smtpauthenticate") = 1
            .Item(config & "smtpserverport") = 465      
            .Item(config & "sendusername") = "*******"
            .Item(config & "sendpassword") = "*****"
            .Item(config & "smtpusessl") = 0
            .Item(config & "smtpconnectiontimeout") = 20
            .Update
        End With
        .Send
    End With
End Sub

Решение задачи: «Отправка писем через CDO.»

textual
                            Листинг программы 
                        

                            Private Const CDO_E_ADOSTREAM_NOT_BOUND As Long = &H8004022C
Private Const CDO_E_ARGUMENT1 As Long = &H80044000
Private Const CDO_E_ARGUMENT2 As Long = &H80044001
Private Const CDO_E_ARGUMENT3 As Long = &H80044002
Private Const CDO_E_ARGUMENT4 As Long = &H80044003
Private Const CDO_E_ARGUMENT5 As Long = &H80044004
Private Const CDO_E_AUTHENTICATION_FAILURE As Long = &H80040215
Private Const CDO_E_BAD_DATA As Long = &H80040229
Private Const CDO_E_BAD_SENDER As Long = &H80040233
Private Const CDO_E_CONNECTION_DROPPED As Long = &H80040212
Private Const CDO_E_CONTENTPROPXML_CONVERT_FAILED As Long = &H80040230
Private Const CDO_E_CONTENTPROPXML_NOT_FOUND As Long = &H8004022D
Private Const CDO_E_CONTENTPROPXML_PARSE_FAILED As Long = &H8004022F
Private Const CDO_E_CONTENTPROPXML_WRONG_CHARSET As Long = &H8004022E
Private Const CDO_E_DIRECTORIES_UNREACHABLE As Long = &H80040232
Private Const CDO_E_FAILED_TO_CONNECT As Long = &H80040213
Private Const CDO_E_FROM_MISSING As Long = &H8004020D
Private Const CDO_E_HTTP_FAILED As Long = &H8004021A
Private Const CDO_E_HTTP_FORBIDDEN As Long = &H80040219
Private Const CDO_E_HTTP_NOT_FOUND As Long = &H80040218
Private Const CDO_E_INACTIVE As Long = &H80040206
Private Const CDO_E_INVALID_CHARSET As Long = &H8004022B
Private Const CDO_E_INVALID_CONTENT_TYPE As Long = &H80040216
Private Const CDO_E_INVALID_ENCODING_FOR_MULTIPART As Long = &H8004021C
Private Const CDO_E_INVALID_ENCODING_TYPE As Long = &H800CCE1D
Private Const CDO_E_INVALID_POST As Long = &H80040214
Private Const CDO_E_INVALID_POST_OPTION As Long = &H80040221
Private Const CDO_E_INVALID_PROPERTYNAME As Long = &H80040204
Private Const CDO_E_INVALID_SEND_OPTION As Long = &H80040220
Private Const CDO_E_LOGON_FAILURE As Long = &H80040217
Private Const CDO_E_MULTIPART_NO_DATA As Long = &H8004021B
Private Const CDO_E_NNTP_POST_FAILED As Long = &H80040210
Private Const CDO_E_NNTP_SERVER_REQUIRED As Long = &H8004020B
Private Const CDO_E_NO_DEFAULT_DROP_DIR As Long = &H80040209
Private Const CDO_E_NO_DIRECTORIES_SPECIFIED As Long = &H80040231
Private Const CDO_E_NO_PICKUP_DIR As Long = &H80040222
Private Const CDO_E_NO_SUPPORT_FOR_OBJECTS As Long = &H80040207
Private Const CDO_E_NOT_ALL_DELETED As Long = &H80040223
Private Const CDO_E_NOT_AVAILABLE As Long = &H80040208
Private Const CDO_E_NOT_FOUND As Long = &H800CCE05
Private Const CDO_E_NOT_OPENED As Long = &H80040202
Private Const CDO_E_PROP_CANNOT_DELETE As Long = &H80040228
Private Const CDO_E_PROP_NONHEADER As Long = &H8004022A
Private Const CDO_E_PROP_NOT_FOUND As Long = &H8004021E
Private Const CDO_E_PROP_READONLY As Long = &H80040227
Private Const CDO_E_PROP_UNSUPPORTED As Long = &H80040205
Private Const CDO_E_RECIPIENT_MISSING As Long = &H8004020C
Private Const CDO_E_RECIPIENTS_REJECTED As Long = &H8004020F
Private Const CDO_E_SELF_BINDING As Long = &H80040234
Private Const CDO_E_SENDER_REJECTED As Long = &H8004020E
Private Const CDO_E_SMTP_SEND_FAILED As Long = [url=][/url]&H80040211
Private Const CDO_E_SMTP_SERVER_REQUIRED As Long = &H8004020A
Private Const CDO_E_UNCAUGHT_EXCEPTION As Long = &H80040201
Private Const CDO_E_UNSUPPORTED_DATASOURCE As Long = &H80040203

                        