|
|
|
Как при работе с 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; КонецПроцедуры //ПослатьЭП |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |