powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отправка писем через CDO.
5 сообщений из 5, страница 1 из 1
Отправка писем через CDO.
    #39834410
Максим_78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Некоторое время назад настроил скрипт для рассылки почтовых уведомлений внутри корпоративной сети через CDO с аутентификацией отправителя.
Скрипт отработал корректно, почта падала в Outlook от имени пользователя зарегистрированного в AD.
Затем прошло несколько месяцев и скрипт вновь понадобился, но теперь выполнение скрипта завершается ошибкой:
"System Error &H8004020E (-2147220978). Не удается изменить или удалить объект, добавленный с использованием COM+ Admin SDK".
Админы говорят, что политики не менялись. Я попробовал различные конфигурации скрипта, запускал с разных ПК.
Подскажите пожалуйста, если не решение, то хотя бы в каком направлении разбираться, по тексту ошибки мне не понять в чём проблема.
Спасибо!

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
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
...
Рейтинг: 0 / 0
Отправка писем через CDO.
    #39834732
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код ошибки же есть
...
Рейтинг: 0 / 0
Отправка писем через CDO.
    #39834857
Максим_78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
EoltКод ошибки же есть
А что значит сие?
...
Рейтинг: 0 / 0
Отправка писем через CDO.
    #39835420
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Максим_78,

CDO_E_SENDER_REJECTED

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
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 = &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
...
Рейтинг: 0 / 0
Отправка писем через CDO.
    #39836140
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно попробовать поле отправителя написать полностью в формате: .From = "Your Name <your_email_address>"
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отправка писем через CDO.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]