Avatar billede mvk Nybegynder
22. oktober 2004 - 13:07 Der er 1 løsning

Emailscript kan man hoppe ugyldige emails over

jeg har et emailscript som melder fejl når det når til en email der ikke fungerer:

jmail.SMTPMail error '8000ffff' 
Error: 554 The following recipients could not be sent to: emilius.dk@ jubiimail.dk; 501 5.5.4 Invalid Address 
/admin/nyhedsbrev/script_nyhedsbrev.asp, line 43 

er der nogen måde hvorpå man kan ændre scriptet så det bare hopper den mail over ?

hele scriptet:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/database.asp" -->
<%
Dim rsNyhedsbrev
Dim rsNyhedsbrev_numRows
Set rsNyhedsbrev = Server.CreateObject("ADODB.Recordset")
rsNyhedsbrev.ActiveConnection = MM_database_STRING
rsNyhedsbrev.Source = "SELECT * FROM nyhedsbrev ORDER BY IDnyhedsbrev DESC"
rsNyhedsbrev.CursorType = 0
rsNyhedsbrev.CursorLocation = 2
rsNyhedsbrev.LockType = 1
rsNyhedsbrev.Open()
rsNyhedsbrev_numRows = 0

Overskrift = (rsNyhedsbrev.Fields.Item("Overskrift").Value)
Tekst = rsNyhedsbrev("Tekst")

Dim rsEmails
Dim rsEmails_numRows
Set rsEmails = Server.CreateObject("ADODB.Recordset")
rsEmails.ActiveConnection = MM_database_STRING
rsEmails.Source = "SELECT *  FROM nyhedsbrev_modtagere ORDER BY Email ASC"
rsEmails.CursorType = 0
rsEmails.CursorLocation = 2
rsEmails.LockType = 1
rsEmails.Open()
rsEmails_numRows = 0

do while not rsEmails.EOF or rsEmails.BOF
strEmail = (rsEmails.Fields.Item("Email").Value)

    Set JMail                = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress        = "websmtp.perchs.dk;websmtp.perchs.dk;mailrelay.andersenit.dk"
    JMail.Sender            = "admin@perchs.dk"
    JMail.SenderName        = "A. C. Perchs Thehandel"
    JMail.ContentType        = "text/html"
    JMail.Subject            = Overskrift
    JMail.AddRecipient        strEmail
    JMail.Priority          = 3
    JMail.AddHeader          "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    Jmail.Body              = Tekst
 
  JMail.Execute
  Set JMail = Nothing
  rsEmails.MoveNext
  Response.Write (strEmail) & "</p>"
  Loop

rsNyhedsbrev.Close()
Set rsNyhedsbrev = Nothing
rsEmails.Close()
Set rsEmails = Nothing

'    Response.Redirect "oversigt_nyhedsbrev.asp"
%>
Avatar billede mvk Nybegynder
22. oktober 2004 - 13:21 #1
on error resume next
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester