VPF::VB 6.0 и outlook express - Форум программистов

ffast

Дата 29.8.2008, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

есть задача отправлять eml письма из outlook express без участя человека все что я добился это запустить письма но все равно нужно нажимать "Отправить"
пример: ff = Shell("C:\Program Files\Outlook Express\MSIMN.EXE /eml:c:\123.eml", vbNormalFocus)
может кто знает как это сделать Делать это нажатием CTRL+ENTER не нужно!

Akina

Дата 29.8.2008, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Советчик

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

Репутация: 34
Всего: 454

Почитайте справку по MAPI и Simple MAPI.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

I_Am_Rock

Дата 29.8.2008, 23:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 12
Всего: 15

Цитата(ffast @ 29.8.2008, 16:54

)

может кто знает как это сделать Делать это нажатием CTRL+ENTER не нужно!

Можно сделать, чтобы прога нажимала на Отправить в Аутлуке. Т.е. при появлении окна с нужным заголовком ловится хендл этого окна, среди дочерних ищется Отправить, программно нажимается Отправить и закрывается окно - все происходит без участия чела и быстро - вот так я бы, наверное, сделал.

ffast

Дата 30.8.2008, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

I_Am_Rock:
а можеш написать пример кода я просто не понемаю о чем ты

I_Am_Rock

Дата 30.8.2008, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 12
Всего: 15

Вот этот код программно нажимает кнопку Пуск. По аналогии можно сделать и у тебя. Будут вопросы - спрашивай.

Код


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Dim hParent As Long, hChild As Long

Private Sub Command1_Click()
hParent = FindWindow("Shell_traywnd", vbNullString)
hChild = FindWindowEx(hParent, 0, "Button", vbNullString)
SendNotifyMessage hChild, WM_LBUTTONDOWN, 0, 0
SendNotifyMessage hChild, WM_LBUTTONUP, 0, 0
End Sub

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »