---
title: "Personligt nyhetsbrev"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50743-personligt-nyhetsbrev"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bj"
published: "2002-08-19T20:54:25.000Z"
updated: "2002-08-20T06:52:00.000Z"
replies: 13
views: 405
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/50743-personligt-nyhetsbrev"
---

# Personligt nyhetsbrev

## #1 — Bj, 2002-08-19T20:54Z

Nyhetsbrev.
En sak som jag inte får ordning på. Jag vill att namnet på mottagaren skall stå i brevet.
se raden där det står MailToSend.Body = "\<" & RecSet("namn") & "\>" 
Detta funkar dock inte. Någon som kan hjälpa till?

```
Function SendMail(CatId,name,subject,message)
Set Connect=server.CreateObject("ADODB.Connection")
Connect.Provider = "Microsoft.Jet.OLEDB.4.0"
Connect.ConnectionString = "Data Source=" & dbpath
Connect.Open  
Set RecSet=server.CreateObject("ADODB.Recordset")
RecSet.Open "select * from " & MailRecSet & " where catid=" & catid,Connect,1,3

Connect.Execute("Insert Into Skickade(subject, message, datum) Values('"& subject &"','"& message &"','"&date &"')")

'If there is no record then exit the function
if RecSet.RecordCount <1 then 
	RecSet.Close
	Connect.Close 
	set RecSet=nothing
	set Connect=nothing
	SendMail=0 
end if

do while not RecSet.EOF 
	Set MailToSend = CreateObject("CDONTS.Newmail")
	MailToSend.TO = "<" & RecSet("email") & ">" 	'Hämtar mailen från databasen
	MailToSend.From = name  			'Mail från (avsändare)
	MailToSend.Subject = subject 			' rubriken på mailet
	MailToSend.Body = "<" & RecSet("namn") & ">" 	' Namnet på mottagaren
	MailToSend.Body = message 			' texten som skickas
	MailToSend.Importance=1 			' prioritet på meddelandet
	MailToSend.MailFormat=0 			' Anger att det är htmlformaterat mail
	MailToSend.BodyFormat=0				' Anger att det är htmlformaterat mail
	MailToSend.send ' send 
	Set MailToSend=nothing
	RecSet.MoveNext
```

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

## #2 — LarsG, 2002-08-19T20:58Z

```
MailToSend.Body = "<" & RecSet("namn") & "> "  & message ' Namnet på mottagaren
```

Den andra raden med tilldelning av body skriver över namnet

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

## #3 — Bj, 2002-08-19T21:12Z

Tyvärr kom inte namnet med nu heller.
Jag har en rad som ser ut så här.

Function SendMail(CatId,name,subject,message)

Om jag lägger till "namn" här så går inte ens brevet att skicka.

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

## #4 — Bj, 2002-08-19T21:19Z

Tyvärr kom inte namnet med nu heller.
Jag har en rad som ser ut så här.

Function SendMail(CatId,name,subject,message)

Om jag lägger till "namn" här så går inte ens brevet att skicka.

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

## #5 — CatZ, 2002-08-19T21:40Z

Räcker nog att du skriver 

> **Bj skrev:**
>
> Tyvärr kom inte namnet med nu heller.
> Jag har en rad som ser ut så här.
> 
> Function SendMail(CatId,name,subject,message)
> 
> Om jag lägger till "namn" här så går inte ens brevet att skicka.

1 gång :e

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

## #6 — Bj, 2002-08-19T21:43Z

Ja jag vet... skulle backa och då gällde inte sidan längre..tryckte på reload... dumt gjort ;)

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

## #7 — solbulle, 2002-08-19T22:13Z

Varför ska du lägga till "namn" där?
namnet hämtar du väl från databasen?

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

## #8 — Bj, 2002-08-20T04:16Z

Ja det var tanken.

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

## #9 — Bj, 2002-08-20T05:06Z

Om man byter ut subject mot
"\<" & RecSet("namn") & "\>
då visas namnet i ämnesraden på mailet
men om man har det i body´n då visas det inte alls. Kan det ha något att göra med att det är ett html-mail.

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

## #10 — Bj, 2002-08-20T05:41Z

Så här funkar det.

```
	Set MailToSend = CreateObject("CDONTS.Newmail")
	MailToSend.TO = "<" & RecSet("email") & ">"
	MailToSend.From = name
	MailToSend.Subject = subject
	MailToSend.Body = "Till "& RecSet("Namn") &""&_ 
	"<br>" &_
	message	
	MailToSend.Importance=1
	MailToSend.MailFormat=0
	MailToSend.BodyFormat=0
	MailToSend.send
	Set MailToSend=nothing
	RecSet.MoveNext
```

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

## #11 — @nders, 2002-08-20T05:56Z

> **Bj skrev:**
>
> Kan det ha något att göra med att det är ett html-mail.

Ja. Eftersom du har hakar runt tolkas det ju som en html-tagg. Du får se till att ersätta hakarna med dess html-entiteter.

```
MailToSend.Body = "Till [b]&amp;lt;[/b]"& RecSet("Namn") &"[b]&amp;gt;[/b]"&_
```

Mvh,

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

## #12 — Bj, 2002-08-20T06:42Z

Oki
Finns det någon möjlighet att "väva" in namnet på mottagaren i själva message.
Alltså så namnet på mottagaren finns med i meddelande och inte hamnar ovanför "message" i mailet?

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

## #13 — @nders, 2002-08-20T06:50Z

Det är ju du som bestämmer innehållet i variabeln message, så antingen får du se till att lägga in namnet innan du kallar på funktionen, eller se till så funktionen lägger in namnet i variabeln där du vill ha det. En variant är att splitta upp message i två (alltså ha två parametrar för meddelandet istället för en). Sedan kan du enkelt i funktionen smäcka ihop meddelandedel1 + namnet + meddelande2.

Mvh,

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

## #14 — Bj, 2002-08-20T06:52Z

Här skall testas... tack så länge!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/50743-personligt-nyhetsbrev