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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Fax...

Тема: Fax

15.06.2007 21:03:03

bss

12 сообщения

Тема: Fax

Как послать по факсу файл из MS Access?

P.S. Проблемы с базой данных
Автор: Светлана от 09.09.2002 13:12:34 Источник ...

15.06.2007 21:03:03

All

4316 сообщения

RE: Fax

Есть 2 способа рассылки факсов: 1 - через макрос, и другой через VBA
1. Создайте макрос в базе данных и выберите макрокоманду: "Отправить объект". Настройки у нее будут такие.
Тип объекта: Отчет
Имя Объекта: Отчет1
Форма вывода: Rich Text Format
Кому: : [Fax: ???-????] (где ???-???? номер факса)
2. Через VBA DoCmd.SendObject acReport,"Отчет1",acFormatRTF, _
"[fax: ???-????]", , , , , False
3. Необходимо также установить как принтер: MSFAX

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

15.06.2007 21:03:03

Denis1

15 сообщения

RE: Fax

Я из Access отправляю на факс практически любые файлы (включая документы Word), используя службу факсов Windows (FaxCom), если кому интересно - поделюсь.

P.S. Проблемы с базой данных
Автор: Denis от 11.09.2002 14:13:24 Источник ...

15.06.2007 21:03:03

bss

12 сообщения

RE: Fax

Очень интересно и необходимо!!!!!!!!!!!!!!

Заранее благодарна!

P.S. Проблемы с базой данных
Автор: Светлана от 11.09.2002 15:26:03 Источник ...

15.06.2007 21:03:03

Denis1

15 сообщения

RE: Fax

Во-первых, нужна операционка Win2000 или XP.
Установите ссылку на faxcom 1.0 Type library (faxcom.dll).
Ну вот Вам небольшой пример (совсем кратенько):
' Факс-рассылка
' Recips - массив номеров факсов
' CmpNms - массив имен получателей
' rnum - количество елементов массивов;
' FaxFile - путь к файлу факса;
Public Function SendFaxCom(Recips() As String, CmpNms() As String, _
rnum As Integer, FaxFile As String) As Boolean
On Error GoTo err
Dim i As Integer
Dim fsrv As New FaxServer
Dim fdoc As FAXCOMLib.FaxDoc

fsrv.Connect (MyFaxServer)
Set fdoc = fsrv.CreateDocument(FaxFile)
For i = 1 To rnum
fdoc.RecipientCompany = CmpNms(i)
fdoc.FaxNumber = MyFaxLinePref & Recips(i)
fdoc.Send
Next
fsrv.Disconnect
SendFaxCom = True
Exit Function

err:
Call MsgBox(err.Description)
SendFaxCom = False
End Function

P.S. Проблемы с базой данных
Автор: Denis от 11.09.2002 15:54:09 Источник ...

Страница 1 из 2

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

Microsoft Access. Файлы mdb и accdb

Тема: Fax...

Поиск

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

Начало | Forums