83 lines
2.0 KiB
Plaintext
83 lines
2.0 KiB
Plaintext
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 |