Почта

Rasty · 03 мар 2016, 00:00

Есть розница 2.0 и 1.0 на платформе 8.2, в ней не реализовано ssl для почт, есть какие нибудь хитрости для отправки писем с пабликов(порты с незащищеным соединение не канают тестил)

Rasty · 03 мар 2016, 10:18

Нашел в просторах интернета с помощью CDO.Message можно это сделать

Код Выделить


loConfig = Новый ComОбъект("CDO.Configuration");
loCdoMessage = Новый ComОбъект("CDO.Message");

loCdoMessage.Configuration = loConfig;
loCdoMessage.From    = "Тест 1C"""" <test@yandex.ru>";
loCdoMessage.To      = "test1@ya.ru";
loCdoMessage.Subject = "Тема письма";

ТекстСообщения = "Текст письма";

HTMLBody = "<html>
|<head>
|<meta content=""text/html; charset=Windows-1251"" http-equiv=""content-type"">
|<title> Тестовое сообщение </title>
|</head>
|<body>
|<h3>" + ТекстСообщения + "</h3>
|<p></p>
|</body>
|</html>";

//|" + ТекстСообщения + " для варианта без стилей
loCdoMessage.BodyPart.Charset = "windows-1251";
loCdoMessage.HTMLBody = HTMLBody;

loCdoMessage.AddAttachment("C:\1.txt");
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").            Value = 2;
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").           Value = "smtp.yandex.ru";
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").       Value = "465";
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").     Value = 1;
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").         Value = "test@yandex.ru";
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").         Value = "111";
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").           Value = 1;
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;

loConfig.Fields.Update();
loCdoMessage.Send();

Почта

Rasty

Rasty

Похожие темы (5)

Поиск