En kort fråga: Kan du inte kolla i filarean/tips & trix... Slår vad om att det finns i alla fall 1 lösning där... :) Plocka ut alla mailadresser, sedan loopar du igenom dem och för varje post skickar du ett mail.. men jag vill bara skicka ett internt mail, inom sidan. Jaha.. får det att fungera men får ett felmeddelande ocksåMaila alla medlemmar...
Hur gör jag för att skicka ett internt mail till alla användare på min sida på en gång?Sv: Maila alla medlemmar...
Sv: Maila alla medlemmar...
Jag gör såhär:
<code>
strSQL = "SELECT strEmail from medlemmar"
Set rst = objCon.execute(strSQL)
antalmail = 0
Do until rst.EOF
If Len(rst("Stremail")) < 10 Then
Else
mejlBody = "Hej! Ett massmail..."
rstStrEmail = rst("Stremail")
If rstStrEmail = "" Then rstStrEmail = "error@localhost"
Set MyCDONTSMail = Server.CreateObject("CDONTS.NewMail")
MyCDONTSMail.From = "Hej<noreply@hej.com>"
MyCDONTSMail.To = rstStrEmail
MyCDONTSMail.Subject = "Massutskick från Mig"
MyCDONTSMail.Body = mejlBody
MyCDONTSMail.Send
rst.Movenext
antalmail = antalmail + 1
Response.Flush
set MyCDONTSMail = nothing
End If
Loop
Set rst = Nothing
Set objCon = Nothing
</code>
Ful kod jag vet, men det funkar :)Sv: Maila alla medlemmar...
har en mySQL databasSv: Maila alla medlemmar...
Nåt i stil med detta då?
<code>
strSQL = "SELECT intMemberID from medlemmar order by intMemberID ASC"
Set rst = objCon.execute(strSQL)
antalmail = 0
strMeddelande = "Hej!"
Do until rst.EOF
objCon.execute("INSERT INTO meddelanden (Strmessage, Intfran, Inttill, Strsubject, Dtsent, Bolharlast, Bolharsvarat) values ('" & strMeddelande & "', 1, " & rst("intMemberID") & ", 'God jul och ny T-shirt', #" & Now & "#, 0, 0)")
rst.Movenext
antalmail = antalmail + 1
Response.Flush
Loop
Set rst = Nothing
Set objCon = Nothing
</code>Sv: Maila alla medlemmar...
Response object error 'ASP 0156 : 80004005'
Header Error
/jenova/community/mail/massmail.asp, line 147
The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.
har för mej att man ska använda response.buffer på nått sätt för att lösa det men komemr inte ihåg hur...
har testat
resonse.buffer = true högst upp pås dian men det fungerar ändå inte.. satte in en response.redirect längst ner också.. är det den som gör att det inte fungerar?