Nån som har något bra exempel på hur man snabbt och enkelt gör en egen nyhetsbrevsfunktion??

Du måste exempelvis först ha tillgång till emailadresserna som du skall maila. Därefter gör du en sida som du kan skriva text på - slutligen gäller det att exempelvis använda CDONTS som du troligtvis redan har på din server. När du postar din text, kör du en loop igenom alla de mailadresser som skall skickas och för varje så skriver du exempelvis:

<code>
sql = "select strEmail, strFirstName as Name from tblUser "
Set rst = con.Execute(sql)

' initierar CDONTS
Do While Not (rst.Eof or rst.Bof)
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From = from
MyCDONTSMail.To = rst("strEmail")
MyCDONTSMail.Subject = subject
MyCDONTSMail.Body= "Hej " & rst("Name") & vbcrlf & message
MyCDONTSMail.Send

Set MyCDONTSMail=Nothing

rst.MoveNext
Loop
Rst.Close
%>
</code>

/Pelle

Men om jag har 3.000 pers att skicka nyhetsbrevet till - time'ar den inte ut då???

jag har ingen aning, det är mycket möjligt att den gör det...du kan ju sätta timeout tiden till betydligt längre.

Hmm... Har inte använt CDONTS. Men skulle man inte kunna återanvända Objektets instansen?

<code>
<%
Dim con
Dim rstTemp
Dim fldEmail
Dim fldName
Dim MyMail

Dim strSQL

Set con = Server.CreateObject("ADODB.Connection")
con.Open "<<<Connection String>>>"

strSQL = "SELECT strEmail, strFirstName as Name FROM tblUser "
Set rst = con.Execute(strSQL)

If rst.Eof or rst.Bof Then
Response.Write "Inga mottagare!"
Else
Set fldEmail = rst("strEmail")
Set fldName = rst("Name")

'initierar CDONTS
Set MyMail = Server.CreateObject("CDONTS.NewMail")

With MyMail
Do Until rst.Eof
.From = from
.To = fldEmail
.Subject = subject
.Body= "Hej " & fldName & vbcrlf & message

.Send

rst.MoveNext
Loop
End With

Set MyMail = Nothing
End If

Rst.Close
Set Rst = Nothing

con.Close
Set con = Nothing

%>
</code>

Nä, det är det som är så dumt. Man måste sätta cdonts till nothing mellan varje mail, jag har provat förrut och det går inte iväg då - såvida jag inte missat något.

Ps. Jag skickar till 2800 pers varje vecka och det går bra...

/Pelle