Макрос в VBA Outlook для периодической записи непрочитанных сообщений в БД Access

[Margenal]

Сообщение от Aleksandr H.

Call встреча. Без ()

Правильно ли я понимаю что Call нужно писать вместо sub?

но в таком случае при запуске макроса, отсутствует выбор имени самого макроса

можете на примере показать как правильно написать.

[Aleksandr H.]

Сообщение от Margenal

Правильно ли я понимаю что Call нужно писать вместо sub?

нет. Надо писать

Call встреча

вместо

Call встреча()

Module2

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

ModuleCurrent

Private Sub Application_Reminder(ByVal Item As Object) 'Событие "Напоминание"
    Dim apti As AppointmentItem 'Присваивание переменной события
    Dim subj As String 'Объявление переменной "тема"
    If TypeName(Item) <> "AppointmentItem" Then Exit Sub 'Проверка типа события
    
        Set apti = Item
        call Встреча
        subj = "Пора посмотреть почту"
        If apti.subject = subj Then 'Проверка темы события
        apti.Application.Reminders.Remove subj 'Удаление события
        With apti 'Создание нового события
            .Start = DateAdd("n", 2, Now)
            .End = DateAdd("n", 2, .Start)
            .ReminderSet = True
            .ReminderMinutesBeforeStart = 0
            .Save
        End With
    End If
    Set apti = Nothing
End Sub
 
sub Встреча()
  Dim conn As ADODB.Connection
  Set conn = CreateObject("ADODB.Connection")
  dim acc as string 'ID почтовой сессии

    For i = 1 To Outlook.Session.Accounts.Count 'Поиск нужной почты
        If Outlook.Session.Accounts(i).CurrentUser.Address = "адрес проверяемой почты" Then
            acc = i
            Exit For
        End If
    Next
Set myFolder = Outlook.session.Accounts.Item(acc).DeliveryStore.GetDefaultFolder(olFolderInbox) 'Задаем проверяемую папку "входящие" необходимой сессии
Set mymyItem = myFolder.Items.GetLast 'Присваиваем письмо переменной
Set ObjFolder = Application.session.Accounts.Item(acc).GetDefaultFolder(olFolderInbox).Folders("Название папки, куда скидывать прочитанные письма")
Sleep (100) 'Заставляем макрос отдохнуть секунду, пока письмо прогрузится
    If TypeName(mymyItem) = "MailItem" and mymyItem.UnRead = True Then
        If mymyItem.Body <> "" Then
            With conn
                .Provider = "Microsoft.Jet.OLEDB.4.0"
                .ConnectionTimeout = 10
                .ConnectionString = "Data Source='Путь к базе\База встреч\Mail_bd.mdb'"
                .CommandTimeout = 60
            End With
            conn.Open ()
               conn.Execute "INSERT INTO ImportOutlook (DateReceipt, Mail_by, Mail_Addressee, Mail_cc, Mail_subject, Mail_body, Mail_file) VALUES ('" & mymyItem.CreationTime & "', '" & mymyItem.Mail_by & "' , '" & mymyItem.Mail_Addressee & "', '" & mymyItem.Mail_cc & "', '" & mymyItem.Mail_subject & "', '" & mymyItem.Mail_body & "', '" & mymyItem.Mail_file.Count & "', '" & mymyItem.Mail_file & "')" 
            conn.Close ()
 
                                If mymyItem.Mail_file.Count > 0 Then
                For Each att In mymyItem.Mail_file
                    With att
                        .SaveAsFile "Путь к папке\Вложения" & .DisplayName 'Путь, куда сохранять вложения. Для каждого письма должна быть своя папка.
                    End With
                Next
            End If
            mymyItem.UnRead = False 'Отмечаем письмо прочтенным
            mymyItem.Move (ObjFolder) 'Перемещаем письмо в папку на почте
        End If
    End If
 
End Sub

[Margenal]

Сообщение от Aleksandr H.

ModuleCurrent

Сделал как указано но теперь при запуске макроса выскакивает ошибка:

Run-time error '438':Object doesn't support this property or method.

И еще вопрос в References нужно ли подключать библиотеки?

Сейчас у меня дополнительно подключена библиотека:

Microsoft Activex Data Objects 2.8 Library

[Aleksandr H.]

Раз работаете с аксесом то референс аксеса очень рекомендую ��

[Margenal]

Сообщение от Aleksandr H.

Раз работаете с аксесом то референс аксеса очень рекомендую ��

в данном случае это что за ссылка?

[Margenal]

Сообщение от Aleksandr H

Сделал как указано но теперь при запуске макроса выскакивает ошибка:

Run-time error '438':Object doesn't support this property or method.

Можете подсказать по поводу ошибки

[Aleksandr H.]

Нет. Я не знаю где именно по коду она вываливается

[Margenal]

Сообщение от Aleksandr H.

Я не знаю где именно по коду она вываливается

От ошибки избавился путем удаления всего кода и заново его прописал как новый макрос.
но теперь появилась новая ошибка
Compile error: User-defined type not defined
при этом выделяет строку : conn As ADODB.Connection

[Aleksandr H.]

https://stackoverflow.com/questions/...es-not-defined

dim conn as object

I had forgotten to add a reference to "Microsoft ActiveX Data Objects 2.5 Library":

Tools > References > Check the checkbox in front of "Microsoft ActiveX Data Objects 2.5 Library"