Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Отсылка письма через OutLook

Автор: Gala 3.2.2006, 13:41

OutLook - Макросом отсылаю письмо выскакивает сообщение на методе Send
"Программа автоматически пытается отправить письмо от вашего имени"
как избежать этого сообщения (В OutLook Express - Это сделать легко в настройках безопастности, а как в OutLook)

Автор: likhobory 3.2.2006, 14:10

для Outlook ХР и выше - никак

используй Outlook 2000
либо библиотеку http://msdn.microsoft.com/library/default.asp?url=/library/en-us/exchanchor/htms/msexchsvr_cdo_top.asp

Автор: Gala 7.2.2006, 19:51

А как вложить файл в письмо используя библиотеку Microsoft CDO Exchange

Автор: Gala 8.2.2006, 16:50

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

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

Код


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

И ни каких сообщений от Outlook

Автор: Akina 8.2.2006, 17:46

Цитата(Gala @ 8.2.2006, 17:50

)

И ни каких сообщений от Outlook

лучше указать это явно:

Код

.Send showDialog:=False

а вообще в MSDN все очень подробно, с кучей кода, расписано...

Автор: Gala 8.2.2006, 18:18

Цитата

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

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

Тему не закрывал думал услышать умные замечания!

Автор: Akina 8.2.2006, 18:59

Цитата(Gala @ 8.2.2006, 19:18)

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

Идем на
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/909f3ed1-1d5b-4476-a97b-711401432f8c.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.

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

Автор: Gala 8.2.2006, 19:42

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

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

Автор: Akina 9.2.2006, 10:59

Цитата(Gala @ 8.2.2006, 20:42

)

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

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

Цитата(Gala @ 8.2.2006, 20:42

)

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

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