---
title: "Mailutskick"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/127301-mailutskick"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "joel_joel88"
published: "2005-04-28T19:09:33.000Z"
updated: "2005-04-29T03:10:33.000Z"
replies: 7
views: 328
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/127301-mailutskick"
---

# Mailutskick

## #1 — joel_joel88, 2005-04-28T19:09Z

Hej!

Jag håller på med ett mailutskick men det blir fel. Det skickas hundratals mail till samma epost, och meddelandet skrivs ut många gånger i mailet. Vad är felet

```
strMeddelande = trim(Request("meddelande"))
strMeddelande = Replace(strMeddelande, vbCrLf, "<br>" & vbCrlf)

Do until recset.eof

Set newMail = CreateObject("CDONTS.NewMail")
newMail.From = "sfk_styrelse@yahoogroups.com"
newMail.To = recset("epost")
newMail.Subject = Request("rubrik")
html = html & strMeddelande
newMail.Body = html 
newmail.MailFormat = 0 
newmail.BodyFormat = 0
newMail.importance = 2
newMail.Send
Set objMailer = Nothing
SendMail = 0

recset.movenext
Loop
```

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

## #2 — @nders, 2005-04-28T19:19Z

Till att börja med tömmer du aldrig variabeln *html*, så det är inte så konstigt att det blir ett längre och längre meddelande.

Är du säker på att inte recordsetet innehåller en del samma emailadresser?

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

## #3 — joel_joel88, 2005-04-28T19:20Z

Nope den innehåller bara olika epostadresser, inga som är samma. Vad menar du med att tömma variabeln html.
Ska jag ta html =  "" efter loopen

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

## #4 — @nders, 2005-04-28T19:34Z

> Ska jag ta html = "" efter loopen

Efter loopen känns ju onödigt. Det är ju inte där det behövs. Överst inne i loopen känns vettigt.

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

## #5 — joel_joel88, 2005-04-28T19:38Z

Så här altså :e Varför skickas det så många gånger tro till smama epost?

```

strMeddelande = trim(Request("meddelande"))
strMeddelande = Replace(strMeddelande, vbCrLf, "<br>" & vbCrlf)

Do until recset.eof

html = ""

Set newMail = CreateObject("CDONTS.NewMail")
newMail.From = "sfk_styrelse@yahoogroups.com"
newMail.To = recset("epost")
newMail.Subject = Request("rubrik")
html = html & strMeddelande
newMail.Body = html 
newmail.MailFormat = 0 
newmail.BodyFormat = 0
newMail.importance = 2
newMail.Send
Set objMailer = Nothing
SendMail = 0

recset.movenext
Loop
```

redigerade för jag skrev fel......

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

## #6 — @nders, 2005-04-28T19:39Z

Du måste ju göra tömningen inne i loopen! Annars töms ju inte variabeln inför varje nytt mail...

Edit: ja, så ja!

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

## #7 — joel_joel88, 2005-04-28T19:41Z

Tackar @nders!

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

## #8 — @nders, 2005-04-29T03:10Z

Hur gick det med adresserna? Fortfarande samma problem?

Den kod du visar påverkar inte det i alla fall, så om problemet kvarstår får du undersöka innehållet i recordsetet lite närmare.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/127301-mailutskick