Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Почтовое сообщение как модальное окно? / 9 сообщений из 9, страница 1 из 1
30.04.2004, 11:08
    #32503975
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
У меня выполнение процедуры включает в себя отправку сообщения по почте...Выполнение процедуры привязано к открытию формы, которая в свою очередь открывается параметрами запуска базы.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
 
Function Fio()
Fio = Environ$("USERNAME")
If Fio = "svolkov" Then
DoCmd.OpenForm "Управляющая"
Else
 DoCmd.OpenQuery "Протокол"
On Error Resume Next
  DoCmd.SendObject acSendNoObject, , ,_
"svolkov@мыло.ru", , Fio, "Доступ к базе данных 'Отчеты'",_
"Вы не имеете права на просмотр этого файла."_
& vbCrLf & "Если Вам действительно необходимо_
с ним работать - свяжитесь со мной." & vbCrLf &_
vbCrLf & "Отправьте это сообщение или позвоните по тел. ХХХ"
 End If
 End Function

Но есть проблемма:
Если процедура выполняется при открытой базе (из базы) - все работает, а при открытии базы происходит следущее:
После появления окна сообщения оно является модальным и (поэтому???) в случае отмены отправки сообщения намертво зависает база.
Причем появляются следующие сообщения (см. приложенный файл)

Очень прошу помощи...Сегодня до 16 час. необходимо закончить работу, а я уже 2 дня не могу решить проблемму.
Буду рад любым советам...
СПАСИБО.
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
30.04.2004, 11:14
    #32503991
Вербняков Александр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
гарантированно открой базу до выполнения этой процедуры. Проверь свойство CurrentProject.Connection, если соединение не установлено то установи его.
...
Рейтинг: 0 / 0
30.04.2004, 11:17
    #32504003
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
Попробуй вставить
DoCmd.SetWarnings False
а затем DoCmd.SetWarnings True

Результат не гарантирую, но вдруг поможет
...
Рейтинг: 0 / 0
30.04.2004, 11:24
    #32504032
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
> Kelme
Писал, не помогает...
> Вербняков Александр
CurrentProject.Connection проверено, результат тот же
Гарантированно базу открывать не могу - эта процедура является своебразным доступом в базу... Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
30.04.2004, 11:28
    #32504046
Вербняков Александр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
что за форма или запрос у тебя открываются при проверке фамилии?
...
Рейтинг: 0 / 0
30.04.2004, 11:45
    #32504107
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
Пустышка,
только для того, чтобы подцепить процедуру и открыть запрос протокол...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
30.04.2004, 12:04
    #32504182
Вербняков Александр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
В принципе есть вариант выполнить отправку письма черер Outlook

dim olk as outlook.applocation

затем создай сообщение и отправь его, не будешь зависеть от Access
...
Рейтинг: 0 / 0
30.04.2004, 12:32
    #32504280
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
пробовал...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
30.04.2004, 12:45
    #32504324
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почтовое сообщение как модальное окно?
пардон... Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Почтовое сообщение как модальное окно? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]