Имя: Пароль:
1C
 
Как при работе с Outlook выключить лишние вопросы при отправке письма?
Ø
0 Kaban
 
30.11.04
17:38
Сабж
2 Gloom
 
01.12.04
15:55
автоглюк обычный или искпресс?
4 Uho
 
03.12.04
18:20
(0) Какие лишние вопросы?
6 Мимо Шел
 
04.12.04
14:12
Настройки безопасности ИМХО
7 Юный1СНик
 
04.12.04
14:13
наверное нужно покапать Параметры - Безопасность, во всяком случае "предупреждать, если приложения пытаются отправить почту" там есть..
8 Очкарик
 
04.12.04
14:23
Ответ на вопрос такой:
Микрософт Оутлук, в нем не отключаются эти параметры.
Сделай так, чтоб в системе почтовой прогой по умолчанию был оутлук экспресс, там отключай эти вопросы.
11 Очкарик
 
04.12.04
14:31
Зачем тебе оле для отправки почтты?
Используй v7plus.dll и не парься...
12 Очкарик
 
04.12.04
14:34
Функция УстановитьКомпоненту() Экспорт
  //РасположениеФайла(ПутьФайлаОбработки,ИмяФайлаОбработки);
  Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"v7plus.dll")=0 Тогда
    Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtForms\v7plus.dll")=0 Тогда
      Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда
        Сообщить("Не удалось обнаружить компоненту v7plus.dll!");
        Возврат 0;
      КонецЕсли;
    КонецЕсли;
  КонецЕсли;
  Попытка
    Почта = СоздатьОбъект("AddIn.V7Mail");
  Исключение
    Сообщить("Не удалось создать объект Addin.V7Mail!");
    Возврат 0;
  КонецПопытки;
  Возврат 1;
КонецФункции // УстановитьКомпоненту
//********************************************************
//************************************************
Процедура ВернутьОбратно(Майл,КодЗапроса,КодОшибки)
  Предупреждение("Пауза",1);
  Попытка
    Почта.Подключиться();
    Почта.НовоеСообщение();
    Почта.ДобавитьАдрес(Майл);
    Почта.Заголовок = "Запрос: "+КодЗапроса + " не принят, отказано в доступе с кодом ошибки: " + КодОшибки;
    Почта.Текст = "Запрос: "+КодЗапроса + " не принят, отказано в доступе с кодом ошибки: " + КодОшибки;
    Почта.Послать(0);
    Почта.Отключиться();
    
    Сообщить("Сообщение адресату: "+ Майл);
  Исключение
    Сообщить("Неудачная попытка! Отправка не произведена!");
    Возврат;
  КонецПопытки;
КонецПроцедуры
//************************************************
14 ivan437794
 
04.12.04
14:54
Параметры-Безопасность-"Предупреждать если приложение пытается отправить сообщение от моего имени"- Отключить
15 Очкарик
 
04.12.04
14:59
14, Оутлук 2002 - нет такой возможности.
Почта = СоздатьОбъект("OutlookExpress.Application"); ????
18 Gambler
 
04.12.04
17:39
Express ClickYes - это маленькая бесплатная программа, к-ая "нажимает" кнопку YES (ДА) в таких диалогах Outlook.
Есть одно не очень приятное ограничение - не работает, когда компьютер залочен.
http://www.ContextMagic.com
20 Шурик71
 
05.12.04
12:14
Если у тебя почта на MS Exchange Server - то можно.
Точного рецепта на данный случай не скажу, под рукой нет.
Ищется на сайте MS по словам Outlook Security Patch, приблизительно так:
скачивается этот патч, там есть форма, которая цепляется на общую папку Exchange, далее в этой форме можно настроить правила безопасности для этой папки.
Для простой почты без Exchange решения этой проблемы IMHO нет,
точнее, если отправлять почту данными способами.
22 Wasya
 
06.12.04
07:29
Надо скачать с сайта MS утилиту admpack. Сам еще не пробовал (только скачал), но по всем признакам должна помочь.
23 Шурик71
 
06.12.04
12:21
admpack - это как раз работает с MS Exchange.
Алитернативный вариант - это с CDO for Win2000. Это - минуя Outlook.
Работает с Win2k, WinXP.
Процедура ПослатьЭП(ОтКого,Кому,Тема,Сообщение,вложения)
  
  Перем iMsg;
  Перем iConf;
  Перем Flds;
  Перем strHTML;
  Перем strSmartHost;
  
StrSmartHost = Адрес_сервера_SMTP;
cdoSendUsingPort = 2;
iMsg = CreateObject("CDO.Message");
iConf = CreateObject("CDO.Configuration");
Flds = iConf.Fields;
// set the CDOSYS configuration fields to use port 25 on the SMTP server
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").value = cdoSendUsingPort;
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").value = strSmartHost;
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").value = 10;
Flds.Update();
//' apply the settings to the message
iMsg.Configuration = iConf;
iMsg.To = Кому;
//iMsg.BCC = Кому;
iMsg.From = ОтКого;
iMsg.Subject = Тема;
iMsg.TextBody = Сообщение;
ИмяФайлаВложений = СокрЛП(вложения);
Если ИмяФайлаВложений<>"" Тогда
  iMsg.AddAttachment (ИмяФайлаВложений);
КонецЕсли;
iMsg.Send();
iMsg = 0;
iConf = 0;
Flds = 0;
КонецПроцедуры //ПослатьЭП
2 + 2 = 3.9999999999999999999999999999999...