Avatar billede kkd Nybegynder
03. april 2003 - 20:17 Der er 1 kommentar og
1 løsning

Send til mailliste!

Hej...

Jeg har dette script liggende som jeg bruger til at sende besked ud til en mailliste, der ligger i en database.
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\db\mailliste.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
    SQL = "SELECT * from mailliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "mail.hjemmeside.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "mailliste@hjemmeside.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "mailliste@hjemmeside.dk", send("email"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
end if



response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
else %>

Mit problem er, at den en gang har virket, men nu virker det ikke længere. Jeg ved ikke hvad jeg har lavet (mener ikke jeg har ændret noget fra dengang det virkede) men nu virker det i hvert fald ikke.
Nå man sender mailen, får man en korrekt besked om at beskeden er blevet sendt til de adresser der figurerer i maillisten, men adresserne modtager intet!
Avatar billede eagleeye Praktikant
03. april 2003 - 20:22 #1
Pørv at fjerne eller udkommentere denne linje:

on error resume next

Så skulle du gerne få en bedre fejl kode eller tekst.
Avatar billede kkd Nybegynder
04. april 2003 - 09:44 #2
Jeg undskylder mange gange.... Kender I det når man stirrer sig blind på noget?
Det var en simpel stavefejl i afsenderadressen. Den er rettet og nu fungerer den perfekt.
Undskyld ulejligheden!
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