Mailing lista..

jag har denna kod för att skicka mail även kallad mailinglista :e

men då undrar jag hur man ska få till att man "samlar ihop" 50 mailadresser skickar dom i ett mail .. tar 50 nya skickar osv ända tills man nått slutet i datbasen.

det kan bli lite saftigt att skicka ett mail med 500 mottagare...

CDOSql = "SELECT usr_email FROM userinfo"
Set Rs = objConn.Execute(CDOSql)

Do Until Rs.EOF

strAllEmail = Rs("usr_email") & "; " & strAllEmail
        
Rs.MoveNext

Loop
rs.close
SET rs = Nothing

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "info@pump.to"
objCDOMail.To = "info@pump.to"
objCDOMail.Bcc = strAllEmail
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing

Tack på förhand

Jonas

[red]
Dim i
i = 0
Do

If i = 50 OR Rs.EOF Then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 
objCDOMail.From = "info@pump.to" 
objCDOMail.To = "info@pump.to" 
objCDOMail.Bcc = strAllEmail 
objCDOMail.Subject = strSubject 
objCDOMail.Body = strBody 
objCDOMail.Send 
Set objCDOMail = Nothing 
i = 0
strAllEmail = ""
Else

i = i --1

strAllEmail = Rs("usr_email") & "; " & strAllEmail 
End If
Rs.MoveNext 
Loop Until Rs.EOF
rs.close 
SET rs = Nothing
[/red]

Helt otestat......

eh

hur man ska få till att man "samlar ihop" 50 mailadresser skickar dom i ett mail

Hur skall du skicka 50 mail i ett mail?

Det blir ju isf ett mail med 50 mottagare.

Du får väl använda någon slags paging-metod för att första loopa igenom 50 mailadresser, sedan skicka dem, sedan loopa igenom 50 till, skicka dem osv osv

Hej, det går fixa med subselect. Men om du hämtar det med getrows() kan du använda en smart lösning signerad PatrikB:

intSentLetters = 50 * intTimes

intTimes = intTimes + 1

If Not intSentLetters > UBound(varEmails,2) Then
	For N = intSentLetters TO UBound(varEmails,2)
		intCounter = intCounter + 1

		'## -- skicka mailet --

		If intCounter = [b]49[/b] Then Exit For
	Next

	strURL = "skicka.asp?times=" & intTimes
	Response.Redirect strURL
Else
	Response.Write "Alla mail har skickats."
End If

Eller så kan man använda metoden BulkMerge i JMail som har ett helt recordset som inparameter.

Ursprungligen av kristoffer Eller så kan man använda metoden BulkMerge i JMail som har ett helt recordset som inparameter.

Men nu gällde saken CDONTS ;)

Men nu gällde saken CDONTS

Jo, men eftersom killen kanske inte kände till JMail och dess funktionalitet kanske han kunde överväga att använda sig av JMail istället om han har möjlighet till det eftersom BulkMerge är mycket bättre.