Как создать оповещение о сообщениях из MS Access 2007 в Outlook - PullRequest
Новая
       33

Как создать оповещение о сообщениях из MS Access 2007 в Outlook

0 голосов
/ 19 февраля 2019

Я создаю проект, который является частью моей учебы.Мне нужно создать код VBA, который будет отправлять оповещения через Outlook, когда у кого-то истекает срок действия.

Система работает следующим образом: Открыть базу данных -> если наступает дата истечения срока сотрудника (1 месяц назад) -> отправить сообщениедля внешнего вида и сообщения должны включать имя, фамилию, дату истечения срока действия и id_card

Я не знаю, как.Я новичок с Access.Ребята, мне нужна ваша помощь.

Я пытался что-то создать, и единственное, что мне удалось сделать, это это.Я знаю, что мне нужно многое изменить, но я не знаю, что мне нужно изменить. 

Private Sub Form_Load()

    Dim subject As String, Body As String, EmailAddress As String
    Dim rs As Object, recount As Integer, count As Integer

    Set rs = Me.RecordsetClone

    If rs.RecordCount > 0 Then

        rs.MoveLast

        rs.MoveFirst

        recount = rs.RecordCount

        For count = 1 To recount

            EmailAddress = rs.[email]

            subject = "Action Required"

            Body = rs.VendorName & " " & "is due for oversight review process"

            DoCmd.SendObject , , , EmailAddress, , , subject, Body, False
            rs.MoveNext

        Next count

    End If

End Sub
...