mail versturen

[paul.jacobs]

Klopt dat het wat raar is gemaakt maar dat komt dat ik het TempVars ergens anders al op haal.
Maar dat was wat veel werk om het na te maken. Het mag van mij natuurlijk ook allemaal in een keer
Hier zit het rapport bij

Hopelijk wil je er nog een keer naar kijken

Alvast bedankt

 

[OctaFish]

No problem!

 

[paul.jacobs]

dit is het geworden
On Error GoTo Hell
Dim rst As Recordset
Dim strSubject, strBody, strEmail As String
Dim str As String


str = "SELECT mail FROM personeel LEFT JOIN deelnemers ON personeel.[Id] = deelnemers.[naam] WHERE deelnemers.[project]= " & TempVars("Project").Value
Set rst = CurrentDb.OpenRecordset(str, dbOpenSnapshot)
If Not rst.EOF And rst.RecordCount > 0 Then
Do While Not rst.EOF
If Not strEmail = "" Then strEmail = strEmail & ";"
strEmail = strEmail & rst.Fields("mail")
rst.MoveNext
Loop
End If
strBody = "Hierbij het overzicht van openstaande acties. "
strSubject = "Lijst met namen"
DoCmd.SendObject acSendReport, "afspraken PP", acFormatPDF, strEmail, , , strSubject, strBody, True
Exit Sub

Hell:
MsgBox Err.Number & " " & Err.Description