E-Mail an Verteiler - es hakt irgendwo

[itsaaccess]

Hallo Zusammen,
der Code ist irgendwie zerschossen. Entweder es fehlt was oder
es sind nur die Anführungszeichen. Könntet Ihr bitte mal drüber
schauen. Bei  " Do Until rs.EOF"
kommt ständig Meldung(beim drüberfahren)
"Objektvariable oder With-Blockvariable nicht festgelegt"

(Bei einem einfach sql wie
sql1 = "SELECT  tb_Email_Liste.email FROM  tb_Email_Liste"   geht es
will aber nur bestimmte Mail-Adressen)


----------------------------------- hier der Code ----------------------------------

Private Sub EMail_anVerteiler_Click()
On Error Resume Next

Dim strEmailAdr As String
Dim berichtsname As String
berichtsname = Me.Text32.Column(1)
strTitel = Me.Text32.Column(1)
Const StrMailText = "Hallo, anbei die neusten Belegungen"

strEmailAdr = ""

Dim sql As String, db1 As DAO.Database, rs As DAO.Recordset
Set db1 = CurrentDb

sql = "SELECT tb_zuordn_emailvert_emailnutzer.EMail_Vert_ID, tb_zuordn_emailvert_emailnutzer.EMail_Nutzer_ID, tb_Email_Liste.email" _
& "FROM tb_zuordn_emailvert_emailnutzer INNER JOIN tb_Email_Liste ON tb_zuordn_emailvert_emailnutzer.EMail_Nutzer_ID = tb_Email_Liste.Email_Empfaenger_ID" _
& "WHERE (((tb_zuordn_emailvert_emailnutzer.EMail_Vert_ID) = " _
& Me.cboVerteiler.Column(0) & "))" _
& "ORDER BY tb_zuordn_emailvert_emailnutzer.EMail_Vert_ID"

Set rs = db1.OpenRecordset(sql, dbOpenSnapshot)

Do Until rs.EOF
    If Not IsNull(rs!email) Then
      strEmailAdr = strEmailAdr & rs!email & ";"
    End If
    rs.MoveNext
Loop

DoCmd.OpenReport berichtsname, acViewPreview, , "[Buchung_ID]= " & Me.Text34.Column(1)
DoCmd.SendObject acReport, berichtsname, "PDF", strEmailAdr, , , strTitel, StrMailText, True
End Sub
--------------------------------------------------------------------------------------

Vielen Dank und Gruß
Abdy

[DF6GL]

Hallo,

Private Sub EMail_anVerteiler_Click()
On Error Resume Next 'vernünftigen Errorhandler einbauen!

Dim strEmailAdr As String
Dim berichtsname As String
berichtsname = Me.Text32.Column(1)
strTitel = Me.Text32.Column(1)
Const StrMailText = "Hallo, anbei die neusten Belegungen"

strEmailAdr = ""

Dim sql As String, db1 As DAO.Database, rs As DAO.Recordset
Set db1 = CurrentDb

sql = "SELECT tb_zuordn_emailvert_emailnutzer.EMail_Vert_ID, tb_zuordn_emailvert_emailnutzer.EMail_Nutzer_ID, tb_Email_Liste.email" _
& "  FROM tb_zuordn_emailvert_emailnutzer INNER JOIN tb_Email_Liste ON tb_zuordn_emailvert_emailnutzer.EMail_Nutzer_ID = tb_Email_Liste.Email_Empfaenger_ID" _
& "  WHERE (((tb_zuordn_emailvert_emailnutzer.EMail_Vert_ID) = " _
& Me.cboVerteiler.Column(0) & "))" _
& "  ORDER BY tb_zuordn_emailvert_emailnutzer.EMail_Vert_ID"

Set rs = db1.OpenRecordset(sql, dbOpenSnapshot)

Do Until rs.EOF
    If Not IsNull(rs!email) Then
      strEmailAdr = strEmailAdr & rs!email & ";"
    End If
    rs.MoveNext
Loop

DoCmd.OpenReport berichtsname, acViewPreview, , "[Buchung_ID]= " & Me.Text34.Column(1)
DoCmd.SendObject acReport, berichtsname, "PDF", strEmailAdr, , , strTitel, StrMailText, True
End Sub

[itsaaccess]

Hallo Franz,

vielen , vielen Dank!
Hat mir mindestens 2-4 Stunden Suche erspart.

Viele Grüße an den schönen Bodensee
Andy