Всем привет! Аналогичная обработка работала, а недавно перестала работать (((
Думаю, что в связи с изменениями доступа к mail.ru
Сейчас выдает ошибку (в теме)
Вот код:
Процедура ОтправитьПисьмо()
cdoSendEmailAddress = "; ;
cdoSendPassword = "; ;
cdoSendUserName = "; ;
cdoSendUsingMethod = "; ;
cdoSMTPAuthenticate = "; ;
cdoSMTPServer = ";;
cdoSMTPServerPort = ";;
cdoSMTPUseSSL = ";;
iConf = СоздатьОбъект("CDO.Configuration");
iConf.fields(cdoSendUsingMethod).value = 2;
iConf.fields(cdoSMTPServer).value = "smtp.mail.ru";
iConf.fields(cdoSMTPServerPort).value = 465;
iConf.fields(cdoSMTPAuthenticate).value = 1;
iConf.fields(cdoSendUserName).value = "
[email protected]";
iConf.fields(CdoSendPassword).value = "пароль";
iConf.fields(cdoSendEmailAddress).value = "
[email protected]";
iConf.fields(cdoSMTPUseSSL).value = 0; //Secure Sockets Layer
iConf.fields.update();
iMsg=СоздатьОбъект("CDO.Message");
iMsg.configuration = iConf;
iMsg.to ="
[email protected]"; //адрес получателя
iMsg.from ="
[email protected]"; //адрес отправителя
iMsg.subject ="ТемаПисьма"; //тема письма
iMsg.textBody ="ТелоПисьма"; //тело письма
iMsg.textBodypart.charset ="windows-1251";
Попытка
iMsg.send();
Сообщить("Сообщение отправлено.");
Исключение
//Письмо отправить не удалось (((
Ошибка = ОписаниеОшибки();
Сообщить("Письмо не отправленно Ошибка ("+Ошибка,"!");
КонецПопытки;
КонецПроцедуры
Подскажите, что не так?