Personligt nyhetsbrev

13 svar · 400 visningar · startad av Bj 19 aug. 2002

BjMedlem sedan sep. 2000314 inlägg

Frågan19 aug. 2002 20:54#1

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

LarsGMedlem sedan dec. 200012 464 inlägg

19 aug. 2002 20:58#2

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

Den andra raden med tilldelning av body skriver över namnet

BjMedlem sedan sep. 2000314 inlägg

19 aug. 2002 21:12#3

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.

BjMedlem sedan sep. 2000314 inlägg

19 aug. 2002 21:19#4

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.

CatZMedlem sedan jan. 20022 440 inlägg

19 aug. 2002 21:40#5

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

BjMedlem sedan sep. 2000314 inlägg

19 aug. 2002 21:43#6

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

solbulleMedlem sedan mars 20015 287 inlägg

19 aug. 2002 22:13#7

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

BjMedlem sedan sep. 2000314 inlägg

20 aug. 2002 04:16#8

Ja det var tanken.

BjMedlem sedan sep. 2000314 inlägg

20 aug. 2002 05:06#9

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.

BjMedlem sedan sep. 2000314 inlägg

20 aug. 2002 05:41#10

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

@ndersMedlem sedan juni 200032 967 inlägg

20 aug. 2002 05:56#11

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,

BjMedlem sedan sep. 2000314 inlägg

20 aug. 2002 06:42#12

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?

@ndersMedlem sedan juni 200032 967 inlägg

20 aug. 2002 06:50#13

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,

BjMedlem sedan sep. 2000314 inlägg

20 aug. 2002 06:52#14

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