dit is wat ik heb werkt goed alleen hij mailt er maar 1
zou willen dat iedereen die een vinkje heeft een mail stuurt hoe doe ik dat ?
Private Sub Sendall_Click()
On Error GoTo Sendall_Err
Dim Email As String
If Me.Verzonden.Value = -1 Then
Me.Email = DLookup("email", "tblpersoneel", "PersoneelNR=" & [Werknemer])
DoCmd.OpenReport "RptInzetschema", acViewPreview, , Me.Filter, acHidden
DoCmd.SendObject acSendReport, "RptInzetschema", acFormatPDF, Me.Email, , , , , True
DoCmd.Close acReport, "RptInzetschema"
ElseIf Me.Verzonden = 0 Then
Exit Sub
Sendall_Err:
MsgBox Error$
Else
End If
End Sub