---
title: "Hur skickar jag nyhetsbrev?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7418-hur-skickar-jag-nyhetsbrev"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "kristoffer"
published: "2000-12-14T13:23:00.000Z"
updated: "2000-12-14T15:33:00.000Z"
replies: 4
views: 218
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/7418-hur-skickar-jag-nyhetsbrev"
---

# Hur skickar jag nyhetsbrev?

## #1 — kristoffer, 2000-12-14T13:23Z

Är nedanstående kod korrekt eller skall jag placera skapandet av objektet utanför loopen? Komponenten är ASPMail.

```
sql_select = "select email from users"
data_source = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\databases\email.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source

While Not rs.EOF
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "John Doe"
Mailer.FromAddress= "you@domain.com"
Mailer.RemoteHost = "mail.domain.com"
Mailer.AddRecipient "", rs("email")
Mailer.Subject = Request.Form("subject")
Mailer.BodyText = message & rs("email")
Mailer.SendMail
Set mail = Nothing
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
```

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

## #2 — Vide, 2000-12-14T13:34Z

Ja, allt som inte skall ändras för varje runda, kan jag rekommendera att flytta utanför loopen... :)

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

## #3 — kristoffer, 2000-12-14T13:38Z

Hur skall koden då se ut? Jag måste väl tömma alla variabler varje gång jag börjar om i loopen?

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

## #4 — Vide, 2000-12-14T15:14Z

Detta borde funka:

```
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "John Doe"
Mailer.FromAddress= "you@domain.com"
Mailer.RemoteHost = "mail.domain.com"
While Not rs.EOF
Mailer.AddRecipient "", rs("email")
Mailer.Subject = Request.Form("subject")
Mailer.BodyText = message & rs("email")
Mailer.SendMail
rs.MoveNext
Wend
Set mail = Nothing
rs.Close
Set rs = Nothing
```

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

## #5 — kristoffer, 2000-12-14T15:33Z

Man måste nog använda ClearBodyMessage efter varje utskick, annars appendas Message på Message.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7418-hur-skickar-jag-nyhetsbrev