Mangler der noget - mail komponent
<%'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rs 'Holds the recordset for the record to be updated
Dim strSQL 'Holds the SQL query for the database
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../databaser/familiesiden/bruger.mdb")
'Create an ADO recordset object
Set rs = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT email FROM brugerdata WHERE ebesked=true "
'Open the recordset with the SQL query
rs.Open strSQL, adoCon
'num variablen skal tælle hvor mange brugere vi sender til
num = 0
while not rs.eof
Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "robot:yyyy@xxxx.dk"
' mail config settings
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "robot@xxxx.dk"
JMail.Subject = "Der er kommet en ny nyhed på xxxxx.dk"
JMail.AddRecipient rs("email")
JMail.Body = "Hejsa<br>Der er kommet en ny nyhed på http://www.xxxxx.dk<br>Log på og se hvem der har noget nyt at fortælle.<br>Mvh Kristian"
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
' Send it...
JMail.Execute
response.write rs("email") &"<br>"
set JMail = nothing
num = num + 1 ' tilføjer 1 til varariablen for hvert gennemløb
rs.MoveNext
Wend
Response.write "<span class='text' align='center'>Nyhedsmailen blev sendt til <b>" & num & " </b> brugere<br>"
response.write "<span align='center' >"
%>
<%
'Reset server objects
rs.Close
Set rs = Nothing
Set adoCon = Nothing
%>
Giver bare :
Jmail.SMTPMail error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/news/ebesked.asp, line 44
yyy er kode og xxx er mit domæne. Det er mit første roderi med mail så måske der mangler noget ??
