wat doe ik fout bij deze verzameling email

[dinoshop]

stukje script gemaakt om van uit tmpmail de email adressen in een mail te openen met de adressen die gefilterd zijn van uit een lijst met extensie waar .
text dat nu scheef staat en onderstreept daar loopt die op vast

Private Sub Mail_Click()
Dim email As String
Dim strSQL As String
Dim tmp As Variant
Dim rs As Recordset
Dim qTmp As QueryDef

    
    Me.Dirty = False
    strSQL = "SELECT TmpMail.Lijst, *" _
    & "FROM TmpMail" _
    & "WHERE (TmpMail.Lijst)=True"
    
    tmp = InputBox("", "", strSQL)
    Set qTmp = CurrentDb.QueryDefs("TmpMail")
  [U][I]  qTmp.SQL = strSQL[/I][/U]
   
    
    strSQL = "SELECT * FROM TmpMail WHERE ([Email] Is Not Null And Not [Email] = """")"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If rs.RecordCount > 0 Then
       Do Until rs.EOF
            If Not email = vbNullString Then email = email & ";"
            email = email & rs!email
            rs.MoveNext
        Loop
    Else
        MsgBox "Geen email adressen..."
        Exit Sub
   End If

 

[OctaFish]

Je opent een recordset met de naam tmpMail, en wijzigt vervolgens direct de SQL van die query met je QueryDef. Dat móet wel foutgaan...

 

[dinoshop]

Sorry wat een mistake
even aangepast maar blijft een probleem geven
zoals je kan zien in voorbeeld is de lijst een ja nee vraag en daarop selecteer ik in tmpmail vult die alles netjes in, dus ik doe iets verkeerd


nu dus de vraag wat doe ik verkeerd?

Private Sub Mail_Click()
Dim email As String
Dim strSQL As String
Dim tmp As Variant
Dim rs As Recordset
Dim qTmp As QueryDef

    
    Me.Dirty = False
    
    strSQL = "SELECT qrySelectieMaken.Lijst,WHERE (qrySelectieMaken.Lijst)=True""" _
       
    ''tmp = InputBox("", "", strSQL)
    Set qTmp = CurrentDb.QueryDefs("TmpMail")
    qTmp.SQL = strSQL
       
    strSQL = "SELECT * FROM TmpMail WHERE ([Email] Is Not Null And Not [Email] = """")"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If rs.RecordCount > 0 Then
       Do Until rs.EOF
            If Not email = vbNullString Then email = email & ";"
            email = email & rs!email
            rs.MoveNext
        Loop
    Else
        MsgBox "Geen email adressen..."
        Exit Sub
   End If
   
    
End Sub

 

[OctaFish]

Ik zie een paar fouten in je SQL, maar ik weet niet of die uit de echte code komen? Probeer deze eens:

strSQL = "SELECT Email WHERE Lijst=True"

 

[dinoshop]

Heb hem en werkt goed nu alleen nog deze oplossen

If Not SendObject Then
    MsgBox "geen verzendingen uitgevooerd"
    Else
    MsgBox "verzonden"
    End If

 

[OctaFish]

Wat probeer je dáár nou? Waar heb je die code vandaan? Dat krijg je volgens mij zo nooit aan de praat.... En dat hoeft ook helemaal niet, als je de juiste foutafhandeling toepast.

Private Sub Cmd_Verzenden_Click()
On Error GoTo Err_Cmd_Verzenden_Click

    DoCmd.SendObject , , , Me.Aan, , "", Me.Onderwerp, Me.Bodytekst, True, ""
    Exit Sub

Err_Cmd_Verzenden_Click:
    Select Case Err.Number
    Case 2501
        MsgBox "Het verzenden van de mail is geannuleerd. De mail is niet verzonden.", , "Let op!"
        Resume Exit_Error
    Case Else
        MsgBox "Error " & Err.Number & ": " & _
        Err.Description, vbOKCancel, "Mislukt! ,Cmd_Verwijderen_Click"
    End Select
End Sub

 

[dinoshop]

soms weet ik het ook niet hoe ik er op kom, maar stom vaker gedaan en toch .. sorry maar werkt weer als vanouds .
Dank