Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Почту перевели на outlook.office365.com. CDO стал бесполезен? / 7 сообщений из 7, страница 1 из 1
28.08.2013, 11:03
    #38379624
AR®
AR®
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почту перевели на outlook.office365.com. CDO стал бесполезен?
Знает ли кто-то точно, как в настройках CDO для отправки почты указать, что используется шифрование TLS ?
Следующий код не приводит к требуемому результату сам по себе:

Код: plaintext
1.
Fields().Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", true);



Чего не хватает еще?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2013, 09:38
    #38380605
AR®
AR®
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почту перевели на outlook.office365.com. CDO стал бесполезен?
Может быть, стоит перенести тему в другой раздел?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2013, 10:56
    #38380695
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почту перевели на outlook.office365.com. CDO стал бесполезен?
Может, поможет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2013, 11:26
    #38380750
AR®
AR®
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почту перевели на outlook.office365.com. CDO стал бесполезен?
Не помогло.
В разных вариантах я уже пробовал все эти настройки выставлять.
Устойчивый результат только один:
Метод "send" в COM-объекте класса "CDO.Message" возвратил код ошибки 0x8004020E (<неизвестно>), который означает: <неизвестно>.


Когда я захожу в login.microsoftonline.com в настройки учетной записи, от имени которой пытаюсь слать письмо, там, в настройках SMTP не так много требований: сервер smtp.office365.com, порт 587, используется шифрование TLS.
Отключить это шифрование "там" я не могу по условиям лицензии.

Как же включить это шифрование в CDO при отправке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2013, 16:15
    #38381346
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почту перевели на outlook.office365.com. CDO стал бесполезен?
Sending SMTP mail via Office 365 exchange using CDO.Message and other applications
вот вроде работает, только он сам не знает почему
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
24.11.2016, 13:34
    #39353607
Garisson
Garisson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почту перевели на outlook.office365.com. CDO стал бесполезен?
Такая же проблема как у автора темы. Удалось ли кому нибудь ее разрешить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2016, 14:57
    #39353722
Garisson
Garisson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почту перевели на outlook.office365.com. CDO стал бесполезен?
GarissonТакая же проблема как у автора темы. Удалось ли кому нибудь ее разрешить?

Через Outlook 2010 отправлется нормально
В коде вроде все правильно:

Dim ObjSendMail, mailSubject, mailBody
Set ObjSendMail = CreateObject("CDO.Message")
mailSubject = "Test"
mailBody = "Test"
ObjSendMail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
ObjSendMail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
ObjSendMail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendtls") = 1
ObjSendMail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 240
ObjSendMail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@serv.com"
ObjSendMail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"
ObjSendMail.Configuration.Fields.Update

ObjSendMail.To = "mail@mail.ru"
ObjSendMail.Subject = mailSubject
ObjSendMail.From = """From Name"" <email@mail.com>;"
ObjSendMail.TextBody = mailBody
ObjSendMail.Send
set ObjSendMail = nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Почту перевели на outlook.office365.com. CDO стал бесполезен? / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 400ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172859]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 272ms
total:  400ms
x
x
Закрыть


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