Имя: Пароль:
1C
 
Отправка Почты 1С 7.7
0 nvhost
 
30.11.14
23:21
Ребят подскажите, хочу реализовать след образом

ЗагрузитьВнешнююКомпоненту(“ROM-Mail.dll”);
ВК = СоздатьОбъект(“AddIn.AddInMail”);
ВК.СерверОтправки = “94.100.180.160”;
ВК.ПортОтправки = “465”;
ВК.Логин = “111”;
ВК.Пароль = “111111111”;
ВК.АутентификацияПриОтправке = 1;
Если ВК.Подключиться(“Отправка”)=0 Тогда
   Предупреждение(“Не удалось подключиться к серверу!”);
   Возврат;
КонецЕсли;
ВК.АдресОтправителя = “[email protected]”;
ВК.ИмяОтправителя = “1С:Предприятие 7.7”;
ВК.АдресПолучателя = “[email protected]”;
ВК.СкрытаяКопия = “[email protected]”;
ВК.ТипПисьма = 2;
ВК.Тема = “Тест”;
ВК.Тело = “Тестю”;
ВК.Вложения = “D:\Базы1С\Архив.zip”;
ВК.Кодировка =“windows-1251”;
ВК.НеКодироватьТему = 0;
ВК.ПодтверждениеДоставки = 0;
ВК.ПодтверждениеПрочтения = 0;
Если ВК.Отправить() = 1 Тогда
   Предупреждение(“Письмо успешно отправлено получателю”);
Иначе
   Предупреждение(“Не удалось отправить письмо!”);
КонецЕсли;
ВК.Отключиться();
1 nvhost
 
30.11.14
23:24
Пишет "Не удалось подключиться к серверу!"
2 Тюря
 
30.11.14
23:26
3 Klesk666
 
30.11.14
23:27
mail.ru наверно включил ssl
юзай dialmail
4 Тюря
 
30.11.14
23:34
5 Alexor
 
30.11.14
23:38
Я, вот, пользуюсь.
Отлично работает.

    oMessage = CreateObject("CDO.Message");
    //Кому
    
    oMessage.To = Кому;
    //От кого
    
    oMessage.From = Отправитель;
    
    
    //Заголовок сообщения
    oMessage.Subject = Тема;
    //Текст сообщения (может быть текстовым или в формате HTML)
    
    oMessage.TextBody = ТелоПисьма;
    
    //Добавляем вложение    
    Если ТипЗначения(Вложение)=2 Тогда
        Если пустоеЗначение(Вложение)=0 Тогда
            oMessage.AddAttachment(Вложение);    
        КонецЕсли;
    иначеЕсли ТипЗначения(Вложение)=100 Тогда
        для Сч=1 по Вложение.РазмерСписка() Цикл                            
            oMessage.AddAttachment(Вложение.ПолучитьЗначение(сч));    
        КонецЦикла;
    КонецЕсли;
    
    
    
    
    //Если возникает проблема с кодировками (обычно, если в системе не установлен русский язык), то можно перед отправкой добавить строку //вида:
    
    oMessage.TextBodyPart.Charset = "windows-1251";
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").value = 2;
    
    //В этом параметре по умолчанию используется значение 1, которое означает использование каталог Pickup.
    
    //Указать почтовый сервер можно так:
    
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").value = Сервер;
    
    //Настройка режима аутентификации производится при помощи того же объекта CDO.Configuration:
    
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").value=1;
    
    //Значение 1 этого параметра означает, что используется базовая аутентификация, значение 0 - без аутентификации (анонимно), значение 2
    
    //- аутентификация NTLM.
    
    //Имя пользователя и пароль можно передать точно так же:
    
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").value = Логин;
    
    oMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword").value = Пароль;
    
    
    //Иногда необходимо также определить использование специфического порта (отличного от 25), будет или нет использоваться SSL и время //тайм-аута:
    
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").value = 25;
    
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").value = 0;
    
    
    oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").value = 60;
    
    
    //После любых изменений, вносимых в конфигурацию, изменения нужно обязательно сохранить:
    
    oMessage.Configuration.Fields.Update();
    //и только после вызывать метод Send():
    
    
    Попытка
        oMessage.Send();             
    Исключение          
        Сообщить(ОписаниеОшибки(), "!");
    КонецПопытки;
6 Злопчинский
 
30.11.14
23:55
Готовое решение по принципу взял и работает
http://infostart.ru/public/14131/
7 DrZombi
 
гуру
01.12.14
08:12
(0) Используй лучше DialMail, Ром-Майл конфликтует с некоторыми ВК. В общем оно уже устарело :)
8 DrZombi
 
гуру
01.12.14
08:19
(6) А Автор жадный и лукавит "CDO.Message", использует клиент ОутГлюка. Который кстати предустановлен в ОС-и Форточек :)
9 Злопчинский
 
01.12.14
12:36
Если чтото входит в состав оси то можно сказать что делается без внешних приблуд

А насчет жадности - ну да есть такое
Кто жадный -пусть сидит и сам программирует если умеет ;-)