Dim where1 As String

Private Sub BOk_Click()

Dim adressen As String

adressen = GetEMailadressen()
subject = TBetreff
body = TEMailText
If OVerdeckt Then
 DoCmd.SendObject acSendReport, "Mitglieder-Information", acFormatPDF, , , adressen, subject, body
Else
 DoCmd.SendObject acSendReport, "Mitglieder-Information", acFormatPDF, adressen, , , subject, body
End If
End Sub

Function GetEMailadressen() As String

Dim db1 As Database
Dim rs1 As Recordset
Dim adressen As String
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("SELECT * FROM TMitglieder" + where1)
adressen = ""
While Not rs1.EOF
 If Not IsNull(rs1("EMail")) Then
  adressen = adressen + rs1("EMail") + ";"
 End If
 rs1.MoveNext
Wend
rs1.Close
adressen = Left(adressen, Len(adressen) - 1)
GetEMailadressen = adressen

End Function

Public Sub SetWhereClause(where2 As String)

where1 = where2

LAnzahl.Caption = Format(DCount("MGNR", "TMitglieder", Mid(where1, 8))) + " Mitglieder mit E-Mail Adresse gefunden"


End Sub

Private Sub Form_Close()

 SetParameter "RUNDSCHREIBENEMAIL_BETREFF", TBetreff
 SetParameter "RUNDSCHREIBENEMAIL_EMAILTEXT", TEMailText
 SetParameter "RUNDSCHREIBENEMAIL_TEXT", TRundschreiben

End Sub

Private Sub Form_Open(Cancel As Integer)

Dim betreff As String
Dim emailtext As String
Dim rundschreiben As String

If IsNull(GetParameter("RUNDSCHREIBENEMAIL_BETREFF")) Then
 betreff = "Rundschreiben"
 SetParameter "RUNDSCHREIBENEMAIL_BETREFF", betreff
End If
betreff = GetParameter("RUNDSCHREIBENEMAIL_BETREFF")

If IsNull(GetParameter("RUNDSCHREIBENEMAIL_EMAILTEXT")) Then
 emailtext = "Liebe Mitglieder"
 SetParameter "RUNDSCHREIBENEMAIL_EMAILTEXT", emailtext
End If
emailtext = GetParameter("RUNDSCHREIBENEMAIL_EMAILTEXT")


If IsNull(GetParameter("RUNDSCHREIBENEMAIL_TEXT")) Then
 rundschreiben = "Rundschreiben"
 SetParameter "RUNDSCHREIBENEMAIL_TEXT", rundschreiben
End If
rundschreiben = GetParameter("RUNDSCHREIBENEMAIL_TEXT")

TBetreff = betreff
TEMailText = emailtext
TRundschreiben = rundschreiben

End Sub