JMail hvordan springer jeg ugyldige mail adresser over
mit Jmail script fejler når den skal skrive til en ugyldig email adresse. jeg ved ikke hvordan jeg kan få den til at springe dem over.fejl:
E-mail sendt til sjödahl@tele.fkTegn
jmail.SMTPMail error '8000ffff'
Error: 554 The following recipients could not be sent to: sjödahl@tele.fk; 501 5.5.4 Invalid Address
/admin/starclub/sendmails.asp, line 47
script:
<%@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
Overskrift = (rsNyhedsbrev.Fields.Item("Overskrift").Value)
Tekst = (rsNyhedsbrev.Fields.Item("Tekst").Value)
Dim rsEmails
Dim rsEmails_numRows
Set rsEmails = Server.CreateObject("ADODB.Recordset")
rsEmails.ActiveConnection = MM_scandlines_STRING
rsEmails.Source = "SELECT Fornavn, Email FROM test"
rsEmails.CursorType = 0
rsEmails.CursorLocation = 2
rsEmails.LockType = 1
rsEmails.Open()
rsEmails_numRows = 0
Do While Not rsEmails.EOF
strEmail = (rsEmails.Fields.Item("Email").Value)
strNavn = (rsEmails.Fields.Item("Fornavn").Value)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.border-wines.dk;websmtp.border-wines.dk;mailrelay.andersenit.dk"
JMail.Sender = "admin@border-wines.dk"
JMail.SenderName = "Star Club"
JMail.ContentType = "text/html"
JMail.Subject = Overskrift
JMail.AddRecipient strEmail
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
Jmail.Body = replace(Tekst, "ModtagerensNavn", strNavn)
' Jmail.Body = "<html><body>" & Tekst & "</body></html>"
Response.write "E-mail sendt til " & strEmail & strNavn & "<br>"
JMail.Execute
Set JMail = Nothing
rsEmails.MoveNext
Loop
rsEmails.close
Set rsEmails = Nothing
rsNyhedsbrev.Close()
Set rsNyhedsbrev = Nothing
%>
jeg har forsøgt at give den følgende ugyldige adresser:
michael vk@email.dk
michael@æøå.dk
sjödahl@tele.fk
