schutzgeist
Erfahrenes Mitglied
Ich versuche aus dem unteren Skript hier von ein Rundmailing zu erstellen.
Hab nun probiert, meine Datensatzabfrage da irgendwie reinzubekommen... will aber mal wieder nicht...
Nach dem Absenden des Formulars bekomm ich aber nur ne weiße Seite...
Ich möchte, dass alle eMail Adressen aus der Tabelle Mitglieder2 bei denen Funktion = Vorstand ist mir in den Mailer eingefügt werden :/
Hab nun probiert, meine Datensatzabfrage da irgendwie reinzubekommen... will aber mal wieder nicht...
Code:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/connection.asp" -->
<%
Dim objRS__MMColParam
objRS__MMColParam = "1"
If (Request.QueryString("Vorstand") <> "") Then
objRS__MMColParam = Request.QueryString("Vorstand")
End If
%>
<%
Dim objRS
Dim objRS_numRows
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = MM_connection_STRING
objRS.Source = "SELECT eMail FROM Mitglieder2 WHERE Funktion = '" + Replace(objRS__MMColParam, "'", "''") + "'"
objRS.CursorType = 0
objRS.CursorLocation = 2
objRS.LockType = 1
objRS.Open()
objRS_numRows = 0
Set Mailer = Server.CreateObject( "JMail.Message" )
Mailer.Logging = true
Mailer.Silent = true
' --- Angeben des Absendernamens und dessen EMailadresse
Mailer.From = "ich@ich.de"
Mailer.FromName = "Test Absender"
' --- Angeben des Betreffs
Mailer.Subject = "Betreff dieser EMail"
' --- Angeben des Mailtextes
Mailer.Body = "Hallo Welt," & vbCrLf & "Test, Test, Test"
Do While Not objRS.EOF
' --- Angeben des Empfängers
Mailer.AddRecipient (objRS.Fields.Item("eMail").Value)
' --- Absenden der EMail
' --- Hier wird erst der Mailserver angegeben
If not Mailer.Send("mail.ich.de" ) Then
Response.Write "Fehler: " & vbCrLf & Mailer.Log
Else
Response.Write "Mail erfolgreich versendet"
End if
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
Set Mailer = Nothing
%>
Nach dem Absenden des Formulars bekomm ich aber nur ne weiße Seite...
Ich möchte, dass alle eMail Adressen aus der Tabelle Mitglieder2 bei denen Funktion = Vorstand ist mir in den Mailer eingefügt werden :/