Автоматизация ОутГлюка (VB6)

Привет всем!
Проблема!
хочу отправлять почтовые сообщения через OutLook2000 из приложения на VB6. Могу "заполнить" все поля "кому","копия", "тема", "тело сообщения", "пристегнутые файлы"... Но не получается "выбрать" учетную запись, через которую надо отправить мыло.
Если кто знает подскажите.
Заранее спасибо.

[helldomain]

Kak ti zapolnyaesh eti zapisi?

Dim out As Object 'назначим переменную для объекта

Set out = CreateObject("Outlook.Application")

With out.CreateItem(olMailItem) 'используя объект Outlook

'внесем получателей с помощью метода Add

.Recipients.Add "MAIL@MAIL.RU" 'в поле "кому"

.Subject = "тема сообщения" 'в поле "тема"

.Body = "Текст сообщения" 'в поле сообщения

'прикрепляем картинку к сообщению
'.Attachments.Add "c:\file"

'в заключение,копируем сообщение в папку исходящих и отправляем его

.Send
End With

Вообще то это стандартный способ, который описан в любом учебнике:

[helldomain]

Posmotri primerchik. Tam na nemeckom, no tebya interesuet odna stroka. Wot eta: Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)




http://www.astalavista.com/archive/v...wto_german.htm

[helldomain]

Как писал lavalit
Dim out As Object 'назначим переменную для объекта

Set out = CreateObject("Outlook.Application")

With out.CreateItem(olMailItem) 'используя объект Outlook

'внесем получателей с помощью метода Add

.Recipients.Add "MAIL@MAIL.RU" 'в поле "кому"

.Subject = "тема сообщения" 'в поле "тема"

.Body = "Текст сообщения" 'в поле сообщения

'прикрепляем картинку к сообщению
'.Attachments.Add "c:\file"

'в заключение,копируем сообщение в папку исходящих и отправляем его

.Send
End With

Вообще то это стандартный способ, который описан в любом учебнике:

Woobsche-to ya znaju raz tak w 8 bolshe sposobow, wot i sprosil, kak eto labat.

[corgi]

Есть другая проблема с этой программой:
При выполнении сторочки .Recipients.Add....
вылетает сообщение о том что программа пытается получить доступ к адресной книге
А при выполнении строки .Send
Вылетает сообщение о том что в программе может быть макровирус и тп
Причем на некоторых компах это дело не появляется
Собственно и вопрос как это дело убрать
Буду рад любой помощи

[helldomain]

1. Eto ne poyawlyaetsya na Office 97 (i mojet 2K).
2. Eto poyawlyaetsya na OXP.
3. Reshit eto (wrode) mojno nastroikoi security dlya macrosow ili digital signingom failow.

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

[helldomain]

Stop. Ti imeesh w widu zapisi profilei MAPI?

helldomain
Ну может это и так называется. С MAPI еще толком не возился.
ЛУчше поясню заново.
У меня в оутлууке есть несколько учетных записей, настроенных естесственно на разные почтовые сервера ( на pop3.mail.ru, на pop3.rambler.ru ну и парочка в корпоративной сети ). И теперь хочется отправлять почту через определенную учетную запись. т.е. часть через корпоративную почту а часть через mail.ru или rambler.ru.
Руками то это делается просто (указываешь через какую запись отправлять и все ), а вот из VB как то пока не получается.

[helldomain]

Kak ti rukami ukaziwaesh?
1. Pri zapuske outluka poyawlyaetsya okno s profilyami w listbox'e i ti wibiraesh tam (eto MAPI).
2. Zapuskaem outlook i pri napisanii pisma Wibiraem w pole "From" mail profil?

[Pistol]

Как писал corgi
Есть другая проблема с этой программой:
При выполнении сторочки .Recipients.Add....
вылетает сообщение о том что программа пытается получить доступ к адресной книге
А при выполнении строки .Send
Вылетает сообщение о том что в программе может быть макровирус и тп
Причем на некоторых компах это дело не появляется
Собственно и вопрос как это дело убрать
Буду рад любой помощи

Не знаю как в Аутглюке, но в Аутглюк Экспресс, в закладке безопасности, есть пункт "Warn me if other applications try to send mail as me"
Мож если это отключить, проблем не будет....

[helldomain]

Ono wse rawno ne spasaet pod Office XP.

helldomain
руками - очень просто: создаешь сообщение и нажмаешь кнопу "параметры" ( в 2000 она точно есть не помню в остальных есть или нет) и указуваешь через какую учетную запись отослать... и все.... Но руками уже не хочется. Хочется, что бы она сама выбирала через какую учетку отправлять. ( скажем в зависимости от времени суток)

[corgi]

Попробуй методы:
objNameSpace.logon ([profile],[password],[showdialog],[newsession]) - начать сеанс
objNameSpace.logoff - закончить сеанс
Походу тебе это надо

[corgi]

helldomain
то что ты советовал не помогло.
Данные "фичи" существуют в XP(по умолчанию) и в 2000 и 97 после установки security update (насколько я понял)
Вот что нашел на мелкомягком сайте :idea:

How to Customize the Security Settings
Scenario 1
You may need to grant specific Microsoft Exchange Server users access to a particular file type that is commonly sent within the company.
Scenario 2
You may need to give other programs full access to Outlook's e-mail addresses or e-mail message Send functionality. An example is a computer that automatically sends out e-mail messages to specific users on a particular date or after business hours. To avoid having someone present to manually allow the program access, you can modify Outlook to allow another program to gain access to e-mail addresses accessed and automatically send e-mail messages.

To configure Outlook 2002 for the previously mentioned scenarios, an Exchange Server environment is necessary. An Outlook E-mail Security Administrator Package has been developed to allow you to customize the security settings for various Exchange Server users. The Outlook E-mail Security Administrator Package includes a document (Readme.doc) that explains how to customize and apply custom Outlook security settings. You can install the Outlook E-mail Security Administrator Package (Admpack.exe) from one of the following locations:
From the Microsoft Office Resource Kit Web site:

http://www.microsoft.com/office/ork

-or-


From the Microsoft Office XP Enterprise CD located in the following folder:

\Ork\Files\Pfiles\Orktools\Ork10\Tools\Admpack

NOTE: The previously available administrator package included a form with the build number 1802.4. The new Outlook 2002 Security Administrator Package includes a form with the build number 1802.5. If you are using Outlook 2002 with a Microsoft Exchange 2000 Server mailbox, you must use the new form (1802.5) in the security settings public folder. If you use the old form (1802.4), the administrator-controlled settings do not replicate to the Outlook 2002 client.
Scenario 3
You may need to grant a non-Exchange Server user access to a particular file type that is commonly sent or received.

You can configure a Microsoft Windows Registry setting to allow a user access to specific restricted file types. For additional information, click the article number below to view the article in the Microsoft Knowledge Base:

290497 OL2002: You Cannot Open Attachments

это статья "OL2002: Administrator Information About E-Mail Security Features"

[helldomain]

Ya nichego ne sowetwoal. Ya prosti sprosil i dopolnil infu.