logist @ Сегодня, 1:53
,
Честно говоря не могу сказать об этом с полной уверенностью. Все же мои знания настроек почтовых обмен оставляют желать лучшего. Для того чтобы закрыть вопрос, если вам интересно, выкладываю рабочие настройки CDO. Интерпретировать их в 1с у меня не получилось.
Письмо = Новый COMОбъект("CDO.Message");
Письмо.to = АдресПолучателя;
Письмо.from =АдресОтправителя;
Письмо.Subject = ТемаПисьма;
Письмо.TextBody = ТелоПисьма;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = "smtp.office365.com";
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = 25;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = "";
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = "";
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = True;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;
Письмо.Configuration.Fields.Update();
Попытка
Письмо.Send();
Сообщить("Отправили письмо по адресу " + АдресПолучателя);
Письмо = Неопределено;
Исключение
Сообщить("Ошибка отправки письма: " + АдресПолучателя + "!!! " + ОписаниеОшибки());
Письмо = Неопределено;
КонецПопытки;
