Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отсылка письма через OutLook 
V
    Опции темы
Gala
Дата 3.2.2006, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 15.9.2005

Репутация: нет
Всего: 2
OutLook - Макросом отсылаю письмо выскакивает сообщение на методе Send
"Программа автоматически пытается отправить письмо от вашего имени"
как избежать этого сообщения (В OutLook Express - Это сделать легко в настройках безопастности, а как в OutLook)
PM MAIL   Вверх
likhobory
Дата 3.2.2006, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 1
Всего: 20
для Outlook ХР и выше - никак

используй Outlook 2000
либо библиотеку Microsoft CDO Exchange


--------------------
TSC! Russia 
PM MAIL   Вверх
Gala
Дата 7.2.2006, 19:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 15.9.2005

Репутация: нет
Всего: 2
А как вложить файл в письмо используя библиотеку Microsoft CDO Exchange
PM MAIL   Вверх
Gala
Дата 8.2.2006, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 15.9.2005

Репутация: нет
Всего: 2
Вообще то я не пишу на VB, но когда прижало полазил по форумам в то числе и по этому, но решения как отправить письмо без сообщений, используя Outlook выше 2000-го так и не нашел (правда были подсказки натолкнувшие на решение)

Кому интерестно вот решение
Код

  Dim outMessage As Object
 
  Set outMessage = CreateObject("CDO.Message")
   With outMessage
      .Subject = <Тема>
      .Textbody = <Текс письма>
      .To = <адрес>
      .AddAttachment <файл вложения>
      .Send
 End With


И ни каких сообщений от Outlook
PM MAIL   Вверх
Akina
Дата 8.2.2006, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Gala @ 8.2.2006, 17:50 Найти цитируемый пост)
И ни каких сообщений от Outlook
лучше указать это явно:
Код
.Send showDialog:=False
а вообще в MSDN все очень подробно, с кучей кода, расписано...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Gala
Дата 8.2.2006, 18:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 15.9.2005

Репутация: нет
Всего: 2
Цитата

лучше указать это явно:
.Send showDialog:=False


Я считаю, что модератору не пристало довать совет ведущий к ошибке (? Протестируйте)
В CDO 1.2.1 у метода Send, объекта Message, нет параметров.

Тему не закрывал думал услышать умные замечания!
PM MAIL   Вверх
Akina
Дата 8.2.2006, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Gala @ 8.2.2006, 19:18)
совет ведущий к ошибке (? Протестируйте)
В CDO 1.2.1 у метода Send, объекта Message, нет параметров.

Идем на
http://msdn.microsoft.com/library/default....11401432f8c.asp
или от корня
MSDN Home > MSDN Library > Win32 and COM Development > Messaging and Collaboration > Collaboration Data Objects (CDO) > CDO 1.2.1 > CDO Library > CDO Reference > Message Object > Send Method
и читаем:
Цитата

Send Method (Message Object)
The Send method sends the message to the recipients through the MAPI system.

Syntax
objMessage.Send( [saveCopy] [, showDialog] [, parentWindow] )

objMessage

Required. The Message object.

saveCopy

Optional. Boolean. If True, saves a copy of the message in a user folder, such as the Sent Items folder. The default value is True.

showDialog

Optional. Boolean. If True, displays a Send Message dialog box where the user can change the message contents or recipients. showDialog cannot be set to True when sending an AppointmentItem or MeetingItem object. The default value is False.

parentWindow

Optional. Long. The parent window handle for the Send Message dialog box. A value of zero (the default) specifies that the dialog box should be application-modal. The parentWindow parameter is ignored unless showDialog is True.


Неуважительный тон на первый раз проигнорирую. Порекомендую только разузнать, кто есть модератор и чем он отличается от консультанта (советодателя).


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Gala
Дата 8.2.2006, 19:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 15.9.2005

Репутация: нет
Всего: 2
Уважаемый Akina не хотел, чтоб мой тон был истолкован, как не уважительный.
Но есть два но
1. на вашими звездами написано "Советчик (VBx)"
2. Факты упрямая вещь и .Send showDialog:=False выдает ошибку.

OutLook 2002 использую CDO.Dll, а не CDOEX.DLL
PM MAIL   Вверх
Akina
Дата 9.2.2006, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Gala @ 8.2.2006, 20:42 Найти цитируемый пост)

использую CDO.Dll, а не CDOEX.DLL

Мне это ни о чем не говорит - я всегда работаю с почтой через установленный в текущей системе Simple MAPI (и проблем не встречаю).

Цитата(Gala @ 8.2.2006, 20:42 Найти цитируемый пост)

Факты упрямая вещь и .Send showDialog:=False выдает ошибку.

Утверждать что MSDN содержит ошибку, тем более такого уровня - я бы поостерегся... правильнее предположить что у тебя где-то что-то не по документации сделано...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0707 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.