Enkelte nyhedsbrevmodtagere modtager ikke mailen
Jeg har et nyhedsbrevscript der sender et nyhedsbrev til en række folk i databasen. Scriptet kører fint og jeg modtager ingen fejl, men alligevel er der enkelte af dem der ikke modtager mailen - hvad kan det skyldes ?Test personer:
Person Server Status
Thomas scandlines modtager ikke
Kit scandlines modtager ikke
Trond creuna modtager
Michael 1 because modtager
Michael 2 fzy modtager
Michael 3 hotmail modtager
Rasmus because modtager
Henrik despec modtager
Henrik cybercity modtager
Andersen kepler modtager ikke
Mette ikea modtager
Anders tat data modtager ikke
Scriptet:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/scandlines.asp" -->
<%
Dim rsNyhedsbrev
Dim rsNyhedsbrev_numRows
Set rsNyhedsbrev = Server.CreateObject("ADODB.Recordset")
rsNyhedsbrev.ActiveConnection = MM_scandlines_STRING
rsNyhedsbrev.Source = "SELECT * FROM StarClubNyhedsbrev ORDER BY IDnyhedsbreve DESC"
rsNyhedsbrev.CursorType = 0
rsNyhedsbrev.CursorLocation = 2
rsNyhedsbrev.LockType = 1
rsNyhedsbrev.Open()
rsNyhedsbrev_numRows = 0
%>
<%
Dim rsEmails
Dim rsEmails_numRows
Set rsEmails = Server.CreateObject("ADODB.Recordset")
rsEmails.ActiveConnection = MM_scandlines_STRING
rsEmails.Source = "SELECT Navn, Email FROM test"
rsEmails.CursorType = 0
rsEmails.CursorLocation = 2
rsEmails.LockType = 1
rsEmails.Open()
rsEmails_numRows = 0
%>
<%
css = "<head><link rel='StyleSheet' href='http://www.border-wines.dk/include/stylesheet.css' type='text/css'></head>"
Overskrift = (rsNyhedsbrev.Fields.Item("Overskrift").Value)
Tekst = css & rsNyhedsbrev("Tekst")
Dato = (rsNyhedsbrev.Fields.Item("Dato").Value)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "websmtp.border-wines.dk"
JMail.Sender = "StarClub"
JMail.Subject = Overskrift
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
do while not rsEmails.EOF or rsEmails.BOF
JMail.AddRecipientBcc rsEmails.Fields.Item("Email").Value
Jmail.Body = replace(Tekst, "ModtagerensNavn", rsEmails("Navn"))
JMail.Execute
JMail.ClearRecipients
rsEmails.movenext
loop
Response.Redirect "oversigt_nyhedsbrev.asp"
%>
<%
rsNyhedsbrev.Close()
Set rsNyhedsbrev = Nothing
%>
<%
rsEmails.Close()
Set rsEmails = Nothing
%>
