powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Почтовое сообщение как модальное окно?
9 сообщений из 9, страница 1 из 1
Почтовое сообщение как модальное окно?
    #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
Почтовое сообщение как модальное окно?
    #32503991
Вербняков Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
гарантированно открой базу до выполнения этой процедуры. Проверь свойство CurrentProject.Connection, если соединение не установлено то установи его.
...
Рейтинг: 0 / 0
Почтовое сообщение как модальное окно?
    #32504003
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй вставить
DoCmd.SetWarnings False
а затем DoCmd.SetWarnings True

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

dim olk as outlook.applocation

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


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