6 svar · 475 visningar · startad av LearningASP
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.