---
title: "Mailing lista.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41409-mailing-lista"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "LearningASP"
published: "2002-04-11T18:46:16.000Z"
updated: "2002-04-13T14:49:16.000Z"
replies: 6
views: 490
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/41409-mailing-lista"
---

# Mailing lista..

## #1 — LearningASP, 2002-04-11T18:46Z

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

Permalänk: https://www.webforum.nu/p/41409

## #2 — icaaq, 2002-04-11T19:12Z

```
[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......

Permalänk: https://www.webforum.nu/p/641632

## #3 — OveRRidE, 2002-04-11T19:14Z

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

Permalänk: https://www.webforum.nu/p/641633

## #4 — Jörgen HP, 2002-04-11T20:40Z

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
```

Permalänk: https://www.webforum.nu/p/641686

## #5 — kristoffer, 2002-04-12T07:11Z

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

Permalänk: https://www.webforum.nu/p/641738

## #6 — Jörgen HP, 2002-04-12T09:33Z

> *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 ;)

Permalänk: https://www.webforum.nu/p/641803

## #7 — kristoffer, 2002-04-13T14:49Z

> 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.

Permalänk: https://www.webforum.nu/p/642520

---

Tråden på webben: https://www.webforum.nu/amne/asp/41409-mailing-lista