Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Отправка ...

Тема: Отправка почты TheBat Outlook

15.06.2007 21:04:44

Павел4

1 сообщения

Тема: Отправка почты TheBat Outlook

Здравствуйте!
Подскажите пожалуйста, как при помощи кнопки(не гиперссылки), организовать отправку
письма (TheBat и Outlook), в поле тема надо записать знак "&текст", а
также прикрепить файл.
Большое спасибо, Павел.

P.S. Проблемы с базой данных
Автор: Павел от 25.11.2003 21:08:51 Источник ...

15.06.2007 21:04:44

All

4316 сообщения

RE: Отправка почты TheBat Outlook

Может эту команду использовать.
DoCmd.SendObject , , , "support@mail.ru", , , "Title", "Text", True

P.S. Проблемы с базой данных
Автор: Алекс от 0:00:00 Источник ...

15.06.2007 21:04:44

All

4316 сообщения

RE: Отправка почты TheBat Outlook

Private Sub lblАрхивация_Click()
' здесь будем архивировать данные с помощью WinRar
'собственная разработка ;)
If MsgBox("Для архивации данных необходима всего одна пустая дискета." & vbCrLf & _
"Но так как дискеты очень ненадежны, советую хранить дубликаты на трех дискетах." & vbCrLf & _
"Программа подготовит сжатый файл с названием [НарушенияПДД_Данные.rar] на диске С:" & vbCrLf & _
"Вам следует переписать его на дискеты. Удалять этот сжатый файл необязательно." & vbCrLf & vbCrLf & _
"ВНИМАНИЕ: перед архивацией необходимо выйти из программы на всех компьютерах сети." & vbCrLf & vbCrLf & _
"Начать архивацию данных ?", vbInformation + vbYesNo + vbDefaultButton2, "Подготовка к архивации") = vbNo Then Exit Sub

' надо будет првильно указать путь (по месту)
On Error GoTo Err_cmdPackData_Click

' уничтожим старый файл, чтобы не мешался
Kill ("C:\НарушенияПДД_Данные.*")
continue:
' файл Winrar должен лежать в папке C:\База_ГАИ, а также там должен лежать и ключ регистрации
' необходимо избегать пробелов
' оправляем на адрес rafa2000@pochta.ru можно на несколько - надо разделять запятыми или точка с запятой
' дополнительно прилагается файл с настроками
Call Shell("C:\База_гаи\Winrar a -iemlrafa2000@pochta.ru -hprafa2000 -rr -m5 C:\НарушенияПДД_Данные c:\База_гаи\Нарушения_ПДД_data.mdb", 1)

Exit_cmdPackData_Click:
Exit Sub

Err_cmdPackData_Click:

' если номер ошибки 53, то не найден файл для Kill'а
' можно создавать новый
If Err.Number = 53 Then GoTo continue

End Sub

круче не бывает ;))))

P.S. Проблемы с базой данных
Автор: Rafa от 0:00:00 Источник ...

15.06.2007 21:04:45

All

4316 сообщения

RE: Отправка почты TheBat Outlook