DevTrain

Autor: Bernhard Elbl

Serien-Emails per ASP

Wie kann per ASP Serien-Emails versenden?
Mit dem CDO.Message-Objekt können Emails versandt werden. Diesem Objekt kann ich Email-Werte zuweisen.(z.B. TO, CC, BCC, Subject, Textbody) Ich versende die Emails über BCC, damit keiner von den Empfängern die Emailadresse des anderen sehen kann. Die Adressen beziehe ich aus einer Access-DB der Tabelle Customers mit dem Feldnamen "Email".
<%
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")

'------------ öffnen der Connection des Recordsets
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & Server.MapPath("./db/") & "\dbcustomer.mdb;"
'------------ der SQL-String frägt die DB nach allen Werten der Tabelle Customers ab.
strSQL = "SELECT Email FROM Customers"
'------------ das Recordset wird geöffnet. benötigt wird die Abfrage und die Connection
rs.Open strSQL, conn
%>
..
..hier steht die Form mit Method="POST"
...

<%
if Request.Form("send") = "Senden" and Request.Form("betreff") <> "" then
  rs.MoveFirst
  do while not rs.EOF

'------------ hier werden die Empfänger aus dem Feld "Email" gelesen
   Empfaenger = Empfaenger & rs.Fields("Email") & "; "

'------------ springt zum nächsten Recordset
   rs.MoveNext
  loop
  
'------------ aus der Form werden die Daten, z.b. wie emailtext dem Textbody,
'------------ der CDO zugewiesen
'------------ die Variable Empfaenger wird BCC zugewiesen
 Set oMsg = Server.CreateObject("CDO.Message")   
  oMsg.From = "meineEmail@Adresse.de"   
  oMsg.BCC = Empfaenger 
  oMsg.Subject = Request.Form("betreff")
  oMsg.TextBody = Request.Form("emailtext")
  oMsg.Send
 Set oMsg = Nothing 

end if
%>



Erfasst am: 24.01.2001 - Artikel-URL: http://www.devtrain.de/news.aspx?artnr=272
© Copyright 2003 ppedv AG - http://www.ppedv.de