21. marts 2007 - 17:29Der er
6 kommentarer og 2 løsninger
Hjælp til JMail
Jeg har et jmailscript kørende, som sender en mail til en mailliste med ca. 50 adresser. Desværre er folk ikke altid lige flinke til at sørge for, at deres mailadresse er gyldig, og det giver problemer. Når scriptet støder på en ugyldig adresse og ikke kan aflevere emailen, så stopper det der, dvs. at resten af adresserne på maillisten ingen brev får. Det er jo ikke så smart.
Er der en som kan hjælpe mig med en kode, som tvinger scriptet til at loope videre, også selv om det skulle støde på en ugyldig adresse.
Do While Not (rs.Eof) Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ContentType = "" JMail.ServerAddress = "xxxxxxxx" JMail.Sender = "xxxxxxxxx" 'JMail.Message.MailServerUsername = "" 'JMail.Message.MailServerPassword = "" JMail.SenderName = "xxxxxxx" JMail.Subject = "Ugebrev - UGE "& ugenr &" " JMail.Body = "Du skal understøtte html mails for at læse denne mail" JMail.HTMLBody = strbesked JMail.AddRecipientEx "" & rs("email") & "", "" & rs("email") & "" JMail.Logging = true JMail.Execute Set JMail = Nothing
Jeg ville nu nok sætte resume next et andet sted, da det (potentielt set) er for sent efter den første mail er sendt:
on error resume next
Do While Not (rs.Eof) Set JMail = Server.CreateObject("JMail.SMTPMail") if err.number = 0 then JMail.ContentType = "" JMail.ServerAddress = "xxxxxxxx" JMail.Sender = "xxxxxxxxx" JMail.SenderName = "xxxxxxx" JMail.Subject = "Ugebrev - UGE "& ugenr &" " JMail.Body = "Du skal understøtte html mails for at læse denne mail" JMail.HTMLBody = strbesked JMail.AddRecipientEx "" & rs("email") & "", "" & rs("email") & "" JMail.Logging = true JMail.Execute if err.number = 0 then response.write "" & rs("Email") & " - Afsendt korrekt<br>" else response.write "Mail kunne ikke sendes til " & rs("Email") & " - Afsendelse fejlede!<br>" err.clear end if else response.write "Det var ikke muligt at oprette mail-objektet." err.clear exit do end if Set JMail = Nothing
rs.MoveNext Loop
' slå fejlhåndtering til så andre fejl dukker op og kan rettes ' inden rigtige brugere får dem at se... on error goto 0
' luk resultatet, så der ikke spildes unødige resurser rs.close set rs = nothing
Tak for jeres svar. Madeindk's forslag løser umiddelbart mit problem. Det får i hvert fald scriptet til at overspringe de to mailadresser, som jeg har fundet ud af er ugyldige på maillisten. Dog kan jeg se, at softspot har ret i det han foreslår. Jeg får først tid til at afprøve det i morgen, men vender tilbage med resultat og point (I kan vel dele?)
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.
