Имя: Пароль:
1C
1C 7.7
v7: вылетает 1С 7.7 при отправке почты через CDO на windows 7
0 ksa-nsk
 
02.11.15
08:38
Приветствую всех!
На XP почта через CDO уходила на "ура", поставил семерку, и появился затык - запускаешь отправку почты через CDO, почта уходит, 1С вылетает напрочь, прощальное сообщение:

Программа "1C:V7.7 starter program (for SQL)"  не работает
Возникшая проблема привела к прекращению работы программы. Windows закроет эту программу, а если есть известный способ устранения проблемы, уведомит вас об этом.

Ну и на этом все исчезает.

Кто-нибудь сталкивался с таким "счастьем"? Есть возможность вылечить?
1 ДенисЧ
 
02.11.15
08:47
Есть.
Поставить обратно ХП
2 ksa-nsk
 
02.11.15
09:16
(1) Еще можно гейтсу предъявить)). Хотя лекарство действенное.
3 Злопчинский
 
02.11.15
18:19
хм.. вроде нормально у меня дома работает на семерке.. надо проверить
4 Злопчинский
 
03.11.15
02:21
Проверил у себя вин7проф
работает нормально, без вылетов.
возможно окружение другое
5 ksa-nsk
 
03.11.15
08:47
юмор в том, что сначала отправляет нормально, а потом вылет, лучше бы сразу не работало, а так неопределенность эдакая((.
6 Злопчинский
 
03.11.15
10:40
ну если отправляет нормально - ты это определил чем - кодом возврата цдо?
7 Масянька
 
03.11.15
10:52
(4) Поддержу. Окна 7 проф, ТиС 7.7. Нормально уходит.
(5) На разные ящики?
8 Масянька
 
03.11.15
10:54
+(7) Сразу положу:

Функция Отправить(КаталогДляЗаписи)

    Форма.Отправка.Заголовок("Идет отправка сформированного письма по электронной почте.");

    Письмо = СоздатьОбъект("CDO.Message");
    
    Письмо.To    = Адрес;
    Письмо.From    = Отправитель;
    Письмо.Subject     = Тема;
    Письмо.TextBody = Текст;
    Письмо.TextBodyPart.Charset = "iso-8859-5";

    Письмо.AddAttachment(КаталогДляЗаписи);
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value                 = 2;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value             = SMTPСервер;
    Письмо.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/smtpserverport").Value         = SMTPПорт;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value    = 60;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendmailaddress").Value         = Адрес;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value             = -1;
    Письмо.Configuration.Fields.Update();
    
    Попытка
        Письмо.Send();
        Форма.Отправка.Заголовок("");
        Форма.Параметр.Установить("Отправка",     1);
        Предупреждение("Успешно отправлено на электронный адрес: " + Адрес);
    Исключение
        Форма.Отправка.Заголовок("");
        Форма.Параметр.Установить("Отправка",     0);
        Предупреждение("Не удалось отправить по причине: " + РазделительСтрок + ОписаниеОшибки());
        Возврат 1;
    КонецПопытки;

КонецФункции // Отправить

////////////////////////////////////
cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword";;      
cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress";;  
cdoAutoPromoteBodyParts      = "http://schemas.microsoft.com/cdo/configuration/autopromotebodyparts"; ;
cdoFlushBuffersOnWrite       = "http://schemas.microsoft.com/cdo/configuration/flushbufferson;write"; ;
cdoHTTPCookies               = "http://schemas.microsoft.com/cdo/configuration/httpcookies"; ;
cdoLanguageCode              = "http://schemas.microsoft.com/cdo/configuration/languagecode"; ;
cdoNNTPAccountName           = "http://schemas.microsoft.com/cdo/configuration/nntpaccountname"; ;
cdoNNTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/nntpauthenticate"; ;
cdoNNTPConnectionTimeout     = "http://schemas.microsoft.com/cdo/configuration/nntpconnectiontimeout"; ;
cdoNNTPServer                = "http://schemas.microsoft.com/cdo/configuration/nntpserver"; ;
cdoNNTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/nntpserverpickupdirectory"; ;
cdoNNTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/nntpserverport"; ;
cdoNNTPUseSSL                = "http://schemas.microsoft.com/cdo/configuration/nntpusessl"; ;
cdoPostEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/postemailaddress"; ;
cdoPostPassword              = "http://schemas.microsoft.com/cdo/configuration/postpassword"; ;
cdoPostUserName              = "http://schemas.microsoft.com/cdo/configuration/postusername"; ;
cdoPostUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress"; ;
cdoPostUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/postusing"; ;
cdoSaveSentItems             = "http://schemas.microsoft.com/cdo/configuration/savesentitems"; ;
cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress"; ;
cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword"; ;
cdoSendUserName              = "http://schemas.microsoft.com/cdo/configuration/sendusername"; ;
cdoSendUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress"; ;
cdoSendUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/sendusing"; ;
cdoSMTPAccountName           = "http://schemas.microsoft.com/cdo/configuration/smtpaccountname"; ;
cdoSMTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"; ;
cdoSMTPConnectionTimeout     = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"; ;
cdoSMTPServer                = "http://schemas.microsoft.com/cdo/configuration/smtpserver";;
cdoSMTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory";;
cdoSMTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";;
cdoSMTPUseSSL                = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";;
cdoURLGetLatestVersion       = "http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion";;
cdoURLProxyBypass            = "http://schemas.microsoft.com/cdo/configuration/urlproxybypass";;
cdoURLProxyServer            = "http://schemas.microsoft.com/cdo/configuration/urlproxyserver";;
cdoUseMessageResponseText    = "http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext";;
9 ksa-nsk
 
05.11.15
08:03
всем спасибо, вот что помогло, по крайней мере пока нет вылетов.
Забыл сказать - ядро и БД лежит на сервере.
После смены XP на семерку отключил брэндмауэр на винде и пришлось отключить DEP, взял отсюда: http://netler.ru/ikt/windows7-dep.htm

Еще раз всем спасибо за участие, тема закрыта...
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс