webForumDet fria alternativet

Mailutskick

7 svar · 328 visningar · startad av joel_joel88

joel_joel88Medlem sedan nov. 20021 222 inlägg
#1

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
@ndersMedlem sedan juni 200032 969 inlägg
#2

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?

joel_joel88Medlem sedan nov. 20021 222 inlägg
#3

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

@ndersMedlem sedan juni 200032 969 inlägg
#4

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.

joel_joel88Medlem sedan nov. 20021 222 inlägg
#5

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

@ndersMedlem sedan juni 200032 969 inlägg
#6

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!

joel_joel88Medlem sedan nov. 20021 222 inlägg
#7

Tackar @nders!

@ndersMedlem sedan juni 200032 969 inlägg
#8

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.

135 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)