Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
Приветствую всех! Пришла информация от клиента, которому сделал базу, что на некоторых (не всех) компьютерах перестали отправляться емейлы. Он обращался в службу поддержки Microsoft и ему сказали, что техническую поддержку на CDO не производят. Нужна другаю конфигурация отправки емейл. Какие возможны варианты? Проблема серьезная, клиент просит ее срочно решить.
5 ноя 21, 12:36    [22392151]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
vmag
Member

Откуда: MP
Сообщений: 4229
wladimirrr,
Перестали ни с того, ни с сего ?
Так не бывает... вчера все работало, никто ничего не переустанавливал, а завтра не работает ???
есть много других причин помимо сдо...
за последние 5 лет сильно изменилось законодательство, но в нашей стране не все провайдеры исполняют законы сразу, некоторые вообще не исполняют, некоторые через год, некоторые только сейчас...
Последние требования (те, о которых я знаю):
1. Емаил отправителя должен совпадать с емаил с которого реально уходит письмо (борьба со спамом и анонимами), нельзя указывать плюшевый (другой) емаил в качестве адреса отправителя.
2. Почтовый сервер требует обязательную авторизацию не только при получении почты, но и при отправке.
3. Переход на работу только по защищенному протоколу SSL + использование специфических портов.
4. Полный отказ от pop и smtp, переход на imap
5. Блокировка массовых рассылок и ограничение трафика (объема вложений).
6. Ограничение количества получателей одного письма (одно письмо максимум в 5-10 адресов)...
Ну так скажем, если ящик входит в тариф вместе с сайтом, то с провайдером можно договориться, написать письмо чтоб на конкретный емаил забили болт...
Если ящик на яндексе, маил, гугле и т.д. (халявный), то скорее всего голяк...
Антивирус может не догадываться, что какая то программа считает себя аутлуком...

Сообщение было отредактировано: 5 ноя 21, 16:40
5 ноя 21, 16:38    [22392227]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
vmag, я в начале не написал - компы находятся в США. Там же и обращались в поддержку. Прикрепляю код одного из емейлов. Некоторое время назад (3-5дня) перестал работать на НЕКОТОРЫХ компьютерах. Сначала поддержка советовала изменить порт, это не помогало, затем заявили, что CDO не поддерживают. Так мне передали.
Private Sub Command498_Click()
 On Error GoTo ErrorHandler
 Dim db As DAO.Database
 Set db = CurrentDb()
 Dim rs As DAO.Recordset
 Dim strSQL As String
 Dim Docs As String
 Dim MsgHtml As String
 Dim objbp As Object
 
 DoCmd.RunCommand acCmdSaveRecord
        
 strSQL = " SELECT Stips.Document, Stips.Notes " _
         & " FROM Stips " _
         & " WHERE Deal_ID =" & (Forms!Application!Deal_ID) & "And Received =" & False & ";"
         
 Set rs = db.OpenRecordset(strSQL)
 
 rs.MoveFirst

 Do While (Not rs.EOF)

 If Not IsNull(rs!Document) Then
 Docs = Docs & rs!Document & " " & rs!Notes & "; "
 End If

 rs.MoveNext
 Loop
 rs.Close

Docs = Left(Docs, Len(Docs) - 2)

 MsgHtml = "<div style=font-family: arial, helvetica, sans-serif; font-size: 11pt; color:#333333;>"
 MsgHtml = MsgHtml & "<p>Dear " & Forms!Application!First_name & ",</p>"
 MsgHtml = MsgHtml & "<p>The application for " & Forms!Application!Legal_B_Name & "/" & Forms!Application!DBA & " - MCA ID # " & Forms!Application!Deal_ID & " <em><strong> is missing the following documents required to fund their account:</strong></em></p>"
 MsgHtml = MsgHtml & "<ul>"
 MsgHtml = MsgHtml & "<li>" & Docs & "</li>"
 MsgHtml = MsgHtml & "</ul>"
 MsgHtml = MsgHtml & "<p>You can email missing documents by replying to this email or fax via our secure line to 1-(877)- 340-9184.</p>"
 MsgHtml = MsgHtml & "<p>We look forward to receiving the documents and funding your merchant. </p>"
 MsgHtml = MsgHtml & "<p>Best regards, " & Forms!Start!informWorker.Form!Name_worker & "</p>"
 
 'Logo

 MsgHtml = MsgHtml & "<p><span style=color: #14549b; line-height: 18pt;><strong>Email:&nbsp;"
 MsgHtml = MsgHtml & "</strong>" & Forms!Application!IDDBW.Column(12) & "</span>
"
 MsgHtml = MsgHtml & "<span style=color: #14549b; line-height: 18pt;><strong>Direct Phone:&nbsp;"
 MsgHtml = MsgHtml & "</strong><span style=color: #525252;>" & "</span>
"
 MsgHtml = MsgHtml & "<span style=color: #14549b; line-height: 18pt;><strong>Toll Free:&nbsp;"
 MsgHtml = MsgHtml & "</strong><span style=color: #525252;>" & Forms!Application!IDDBW.Column(7) & " ext </span>
"
 MsgHtml = MsgHtml & "<span style=color: #14549b; line-height: 18pt;><strong>Fax:&nbsp;"
 MsgHtml = MsgHtml & "</strong><span style=color: #525252;>" & Forms!Application!IDDBW.Column(14) & "</span>
"


Dim msg As Object
Dim config As String

Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"

With msg
.To = Forms!Application!Email
.CC = "***@p******.com"
.FROM = "*********@*****.com"
.Subject = "PCF: Stips missing for funding - #" & Forms!Application!Deal_ID & " " & Forms!Application!Legal_B_Name & "/" & Forms!Application!DBA
 
.HTMLBody = MsgHtml
.HTMLBodyPart.Charset = "utf-8"
.TextBodyPart.Charset = "utf-8"
.BodyPart.Charset = "utf-8"
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.office365.com"
.Item(config & "smtpauthenticate") = 1
.Item(config & "smtpserverport") = 25
.Item(config & "sendusername") = "app@*******.com"
.Item(config & "sendpassword") = "*******"
.Item(config & "smtpusessl") = True
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With
.Send
End With
Set msg = Nothing
MsgBox "The message sent to the recipient!", vbOKOnly, ""
    Exit Sub
ErrorHandler:
MsgBox (Forms!Application!Deal_ID) & ": The message is not sent to the recipient!", vbOKOnly, ""
End Sub
5 ноя 21, 17:04    [22392237]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
vmag, сообщение об ошибке.

К сообщению приложен файл. Размер - 32Kb
5 ноя 21, 17:07    [22392238]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
peter64
Member

Откуда:
Сообщений: 220
wladimirrr,
версия tls > 1.0 ?
5 ноя 21, 17:23    [22392243]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
peter64
wladimirrr,
версия tls > 1.0 ?

Не в курсе. Где это можно посмотреть?
5 ноя 21, 17:47    [22392246]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
peter64
Member

Откуда:
Сообщений: 220
wladimirrr,
https://docs.microsoft.com/ru-ru/mem/configmgr/core/plan-design/security/enable-tls-1-2
5 ноя 21, 18:13    [22392252]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
peter64
Member

Откуда:
Сообщений: 220
wladimirrr,
у нас 1-с ник недавно тоже правил
((Послать(sad) Локальная ошибка сервера (SMTP error code 451 451 5.7.3 STARTTLS is required to send mail [*****.PROD.OUTLOOK.COM]))
5 ноя 21, 18:18    [22392255]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
peter64, если на компьютере этот код работал 5 дней назад, а потом стал давать ошибку, не мог же TSL поменяться на более раннюю версию? К сожалению у меня нет доступа к этим компам, что бы проверить.

Сообщение было отредактировано: 5 ноя 21, 18:51
5 ноя 21, 18:49    [22392263]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
vmag
Member

Откуда: MP
Сообщений: 4229
wladimirrr,

the server rejected one or more recipient addresses
Значит
сервер отклонил один или несколько адресов получателей...

- Пусть в этот адрес отправят письмо обычным аутлуком, скорее всего оно тоже не дойдет...
- Пусть в ваш адрес направят письмо этим кодом - покажите скрин, что дошло...

Вы же не можете отвечать за чьи-то кривые руки или за то, что адресат не заплатил за свой хост с ящиками своевременно или на пути отвалился чей-то dns сервер...

Сообщение было отредактировано: 5 ноя 21, 19:50
5 ноя 21, 19:47    [22392273]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
vmag
Member

Откуда: MP
Сообщений: 4229
wladimirrr,

А вот это больше всего смущает:
.Item(config & "smtpserver") = "smtp.office365.com"

Хотите отправлять почту, соблюдая законы лиги сэксуальных меньшинств - следите за соблюдением законов этой лиги, вовремя продляйте подписку, ну и т.д. и т.п.
5 ноя 21, 19:59    [22392274]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
vmag
wladimirrr,

the server rejected one or more recipient addresses
Значит
сервер отклонил один или несколько адресов получателей...

- Пусть в этот адрес отправят письмо обычным аутлуком, скорее всего оно тоже не дойдет...
- Пусть в ваш адрес направят письмо этим кодом - покажите скрин, что дошло...

Вы же не можете отвечать за чьи-то кривые руки или за то, что адресат не заплатил за свой хост с ящиками своевременно или на пути отвалился чей-то dns сервер...

Все проверили, с одного компа отправляется, с другого нет. Подписка оплачена, раз отправляется.
5 ноя 21, 20:04    [22392275]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
vmag, вот даже на форуме Майкрософт такие вопросы задают. Почему то ответов нет((.
https://docs.microsoft.com/en-us/answers/questions/565358/sending-emails-in-ms-access-with-oauth.html
5 ноя 21, 20:10    [22392276]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
vmag
Member

Откуда: MP
Сообщений: 4229
wladimirrr
Все проверили, с одного компа отправляется, с другого нет.

- чем отличаются компы?
- в одной сетке или нет?
- один провайдер или нет?
- один человек отправлял или разные? может у кого то кривые руки, один набрал правильно
kyznetsov@mail.ru
другой не правильно
kyznecov@mail.ru
5 ноя 21, 20:14    [22392277]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
vmag
Member

Откуда: MP
Сообщений: 4229
wladimirrr
vmag, вот даже на форуме Майкрософт такие вопросы задают. Почему то ответов нет((.

Наверно Петров и Баширов сейчас в Америке...
Вот вроде совсем свежая статья на эту тему (пару дней)
5 ноя 21, 20:18    [22392278]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
vmag
wladimirrr
Все проверили, с одного компа отправляется, с другого нет.

- чем отличаются компы?
- в одной сетке или нет?
- один провайдер или нет?
- один человек отправлял или разные? может у кого то кривые руки, один набрал правильно
kyznetsov@mail.ru
другой не правильно
kyznecov@mail.ru


Все компы в одной сетке, провайдер один, емейл подставляется из формы Аксесс.
Ручная работа - только нажать кнопку.
5 ноя 21, 20:18    [22392279]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
vmag
Member

Откуда: MP
Сообщений: 4229
wladimirrr
Ручная работа - только нажать кнопку.

Выше дал ссылку на статью от 03.11.21...
я чувствовал что 365 это гимор, но не думал, что до такой степени...
5 ноя 21, 20:25    [22392283]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 355
vmag
wladimirrr
vmag, вот даже на форуме Майкрософт такие вопросы задают. Почему то ответов нет((.

Наверно Петров и Баширов сейчас в Америке...
Вот вроде совсем свежая статья на эту тему (пару дней)


Вот наверно ключ к решению, только у меня, к сожалению, нет таких глубоких знаний в этой области. Нужна помощь в виде примера.
5 ноя 21, 20:29    [22392285]     Ответить | Цитировать Сообщить модератору
 Re: Microsoft перестал поддерживать CDO?  [new]
vmag
Member

Откуда: MP
Сообщений: 4229
wladimirrr
Нужна помощь в виде примера.

До примера далековато...
Сначала нужно добиться отправки аутлуком из того же 365, зафиксить рабочие настройки, а потом уже подкручивать акцесс...
Возможно придется еще попрыгать с бубном вокруг OAuth с SMTP AUTH и Exchange со своими доменами...

Если через аутлук пойдет отправка, то потом из акцесса через него и отправлять (примеры в инете есть)

Сообщение было отредактировано: 6 ноя 21, 14:47
6 ноя 21, 14:37    [22392506]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить