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
Hallo,
ZitatPrivate 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
Hallo Franz,
vielen , vielen Dank! :)
Hat mir mindestens 2-4 Stunden Suche erspart.
Viele Grüße an den schönen Bodensee
Andy