Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Послать файл по электронке / 2 сообщений из 2, страница 1 из 1
26.09.2002, 11:17
    #32053199
lesha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Послать файл по электронке
Добрый день.

Реально как нибудь по 97 MS ACCESS послать письмо с файлико по электронке?


С уважением - Алексей

alexsvk@mail.ru
...
Рейтинг: 0 / 0
27.09.2002, 14:32
    #32053687
Послать файл по электронке
Готовое решение.
Работает только через Microsoft Outlook.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
Function ReportSendMail(ByVal SendOrSave As Boolean, MyTo As String, MySubject As Variant, _
                        MyBody As Variant, ParamArray varItems() As Variant)
' Данная функция отправляет или сохраняет письмо
' Переменные:
'     SendOrSave - отпределяет будет письмо отправлено сразу или сохранено (true - отправлено)
'     MyTo       - адрес электронной почты
'     MySubject  - заголовок электронной почты
'     MyBody     - текст письма электронной почты
'     varItems() - список подключенных к письму приложений или отчетов
    Dim MyApplication As Object
    Dim myItem As Object
    Dim intI As Integer
    ' Установление связи с Microsoft Outlook
    On Error Resume Next
    Set MyApplication = GetObject(,  "Outlook.Application" )
    If Err.Number <>  0  Then
        Err.Clear
        Set MyApplication = CreateObject( "Outlook.Application" )
    End If
    ' Создание нового объекта - письма и присвоение ему всех параметров
    Set myItem = MyApplication.CreateItem(0) '  0  - почта
    With myItem
        .To = MyTo
        .Subject = MySubject
        .Body = MyBody
        For intI = UBound(varItems) To LBound(varItems) Step - 1 
            If Not Nz(varItems(intI),  "") = " " Then
                .Attachments.Add varItems(intI)
            End If
        Next intI
        ' В зависимости от параметра - отправить или сохранить в черновике
        If SendOrSave = True Then
            ' Отправить
            .Send
        Else
            ' сохранить в черновике
            .Save
        End If
        If Err.Number <>  0  Then
            ReportSendMail = Err.Number
            Err.Clear
        Else
            ReportSendMail =  0 
        End If
    End With
End Function
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Послать файл по электронке / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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