Dim strSQL As String
Dim strCondition As String
Dim strReportName As String
Dim intMissingEmails As Integer
Dim strPDFDest As String
Dim strSubject As String
Dim strDatum As Date
Dim strCountRows As String
strPDFDest = CurrentProject.path & "\reporttopdf\Profil_Check.pdf"
strReportName = "ber-pma-einzelblatt-check"
strSubject = "Your subject"
strDatum = Date
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
strSQL = "SELECT [tab-pma].[PMA-NR], [tab-pma].Email, [tab-pma].NamePMA, [tab-pma].VornamePMA, [tab-pma].[PMA-Kat]" & _
" From [tab-pma] " & _
" WHERE ((([tab-pma].Email) Is Not Null) And (([tab-pma].[PMA-Kat]) = 1)) And ((([tab-pma].Email) <> '')) " & _
" ORDER BY [tab-pma].[PMA-NR]"
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
Do While Not rs.EOF
If FileExistsFSO(strPDFDest) Then
Kill strPDFDest
End If
strCondition = " [PMA-NR] = " & rs![PMA-NR]
Call SetReportFilter(strReportName, strCondition)
If (IsNull(rs![Email]) Or rs![Email] = "") Then
intMissingEmails = intMissingEmails + 1
Else
SendMailCheck "email@email.de", strSubject, strPDFDest, rs![NamePMA], rs![VornamePMA]
End If
rs.MoveNext
Loop
rs.Close