Søg
Avatar billede Slettet bruger
23. august 2006 - 19:06 Der er 12 kommentarer og
1 løsning

Problemer med Jmail

Hvorfor indsætter koden ikke alle mail adresser fra databasen?

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("mail.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "SELECT * FROM nyhed"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<%
Do while not rs.EOF
on error resume next

    Set jmail = Server.CreateObject("JMail.Message")
    jmail.AddRecipient rs("mail"), rs("firma")

    jmail.From = "mail@domæne.dk"
    jmail.Subject = "Nyhedsbrev"
    jmail.Body = "Navn"
    jmail.HTMLBody = "<html><body>"
    jmail.appendHTML "prøve"
    jmail.appendHTML "</body></html>"

rs.MoveNext
loop

if not jmail.Send("mail.tirasnet.dk" ) then
  Response.write "<pre>" & msg.log & "</pre>"
else
  Response.write "Meddelelsen er nu sendt!"
  Response.write "<p>"
end if
%>
<%
Conn.Close
Set Conn = Nothing
%>

hvad er der galt?
Avatar billede ttopholm Nybegynder
23. august 2006 - 19:15 #1
Prøv at fjerne

on error resume next

og lad os se, hvad der ske.. den linie gør sådan at den ikke viser fejl
Avatar billede Slettet bruger
23. august 2006 - 21:03 #2
Den kommer ikke med en fejl, men skriver at "Meddelelsen er nu sendt!", men den henter kun den sidste mail i DB og sender til den.
Avatar billede ttopholm Nybegynder
23. august 2006 - 21:16 #3
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("mail.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "SELECT * FROM nyhed"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<%
Set jmail = Server.CreateObject("JMail.Message")
Do while not rs.EOF


   
    jmail.AddRecipient rs("mail"), rs("firma")

  rs.MoveNext
loop
jmail.From = "mail@domæne.dk"
    jmail.Subject = "Nyhedsbrev"
    jmail.Body = "Navn"
    jmail.HTMLBody = "<html><body>"
    jmail.appendHTML "prøve"
    jmail.appendHTML "</body></html>"


if not jmail.Send("mail.tirasnet.dk" ) then
  Response.write "<pre>" & msg.log & "</pre>"
else
  Response.write "Meddelelsen er nu sendt!"
  Response.write "<p>"
end if

Conn.Close
Set Conn = Nothing
%>
Avatar billede ttopholm Nybegynder
23. august 2006 - 21:17 #4
prøv den..

Du oprettede et jmail-objecet hver gang, det skal være udenfor loopet..
Avatar billede Slettet bruger
23. august 2006 - 21:24 #5
Nu kommer den med "Intern serverfejl Internet Explorer"
Avatar billede ttopholm Nybegynder
23. august 2006 - 21:35 #6
Kan du slår udskadelige http fejl fra....

Funktioner->Internetindstillinger->advanceret og ´find uskadelige hhtp fejl fra

eller send et link til hvor filen ligger så man kan teste det...
Avatar billede Slettet bruger
23. august 2006 - 21:58 #7
jmail.Message error '8000ffff'

Error: 554 The following recipients could not be sent to: tiras@post.cybercity.dk; 554 <tiras@post.cybercity.dk>: Relay access denied

/mail.asp, line 32
Avatar billede Slettet bruger
23. august 2006 - 21:58 #8
Nu kommer den med denne melding.
Avatar billede ttopholm Nybegynder
23. august 2006 - 22:11 #9
Det ser ud til at din webhost har lukket, så du ikke kan sende til andre en dit eget domæne.. Jeg ville lige tjekke op med dem..

hvem har du af udbyder
Avatar billede Slettet bruger
23. august 2006 - 22:32 #10
Det forstår jeg ikke, for jeg kan sagtens sende til den e-mail adresse, når jeg bare indtaster den, hvor den ikke skal hente den fra en database.
Avatar billede ttopholm Nybegynder
23. august 2006 - 22:37 #11
har du sat den udgående mailserver korrekt
Avatar billede Slettet bruger
23. august 2006 - 23:03 #12
Nu har jeg tilføjet en jmail.serverAdress og ændret den til en jmail.SMTPmail i stedet for en jmail.message, herefter kommer den med denne fejl:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'AddRecipient'

/mail.asp, line 20

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("mail.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "SELECT * FROM nyhed"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<%
Set jmail = Server.CreateObject("JMail.SMTPmail")

Do while not rs.EOF

(Dette er linie 20) jmail.AddRecipient rs("mail"), rs("firma") 

  rs.MoveNext
loop

    JMail.ServerAddress = "smtp.unoeuro.com"
    jmail.From = "info@tirasnet.dk"
    jmail.Subject = "Nyhedsbrev"
    jmail.Body = "Engros Beslag & Værktøj"
    jmail.HTMLBody = "<html><body>"
    jmail.appendHTML "prøve"
    jmail.appendHTML "</body></html>"

if not jmail.Send("mail.tirasnet.dk" ) then
  Response.write "<pre>" & msg.log & "</pre>"
else
  Response.write "Meddelelsen er nu sendt!"
  Response.write "<p>"
end if

Conn.Close
Set Conn = Nothing
%>
Avatar billede Slettet bruger
06. oktober 2006 - 20:23 #13
Slut
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel Indlæg Oprettet Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver 2 16/01/202610:29 16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver 20 07/05/202520:51 10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver 7 06/03/202522:34 10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver 4 31/12/202423:10 01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver 14 11/12/202415:12 13/12/202415:40
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 09:43 AI google.com Af Peter Olsen i Andre onlineløsninger
31/0310:22 Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel
30/0313:45 Kablet forbindelse mellem android telefon og windows 11 pc Af 1Dorte i Android
30/0312:04 Elementtype vises - og ikke billedet? Af hkprofil i Billedbehandling
29/0312:08 Problemer med replay af købte kursusvideoer Af annam i Browsere
White papers
Flere white papers »