Afsendelse af flere mails med JMail

Henter du email-adresserne fra en DB eller ? Og er det det samme den skal sende ?
For du kan da lave en for...next løkke.

Ja, jeg henter den ene adresse fra en DB, den anden er bare en oplysningsmail der bliver sendt til mig selv, så der er adressen indsat i scriptet. Begge dele fungerer - bare ikke sammen.

Hvilken fejl giver den dig ?
Har du et script ?

Scriptet er her. Fejlen er bare en uspeciferet HTTP 500 intern server-fejl.

<%
' *** mail til os

    Dim strDomnenavn
    Dim strBrugernavn
    Dim strID
   
    strDomnenavn = Request.Form("Domnenavn")
    strBrugernavn = aktivbruger.Fields.Item("brugernavn").Value
    strID = aktivbruger.Fields.Item("kundenrID").Value
   
   

    Dim objMail
    Set JMail = server.CreateObject("JMail.SMTPMail")

    JMail.ServerAddress = "smtp.mail.dk"
    JMail.ContentType = "text/html"
    JMail.Sender = "post@dansk-webnet.dk"
    JMail.AddRecipient  "post@dansk-webnet.dk"
    JMail.Subject = "Bestilling modtaget"
   
    JMail.Body = "<font face='Verdana' size ='2'>" &_
    "Der er foretaget bestilling af følgende bruger:" &_
    "<Br>"&_
    "<Br>"&_
    "Brugernavn: " & strBrugernavn &_
    "<Br>" &_
    "Kundenr: " & strID &_
    "<Br>"&_
    "Domænenavn: " & strDomnenavn &_
    "</font>"
   
    JMail.AddHeader "Originating-IP", Request.ServerVariables("Remote_ADDR")
    JMail.Execute

%>   
   

<%
' *** mail til kunden

    Dim strDomnenavn
    Dim strHoteltype
    Dim strBrugernavn
    Dim strID
    Dim strEmail
   
    strDomnenavn = Request.Form("Domnenavn")
    strHoteltype = Request.Form("Hoteltype")
    strBrugernavn = aktivbruger.Fields.Item("brugernavn").Value
    strID = aktivbruger.Fields.Item("KundenrID").Value
    strEmail = aktivbruger.Fields.Item("Email").Value
   
    Dim objMail
    Set JMail = server.CreateObject("JMail.SMTPMail")

    JMail.ServerAddress = "smtp.mail.dk"
    JMail.ContentType = "text/html"
    JMail.Sender = "post@dansk-webnet.dk"
    JMail.AddRecipient  strEmail
    JMail.Subject = "Bestilling modtaget"
   
    JMail.Body = "<font face='Verdana' size ='2'>" &_
    "Tak for ordren." &_
    "<Br>"&_
    "<Br>"&_
    "Vi har registreret følgende:" &_
    "<Br>"&_
    "<Br>"&_
    "Brugernavn: " & strBrugernavn &_
    "<Br>" &_
    "Kundenr: " & strID &_
    "<Br>"&_
    "<Br>"&_
    "Har bestilt registrering af domænet: " & strDomnenavn &_
    "<Br>"&_
    "Hoteltype: " & strHoteltype &_
    "<Br>"&_
    "<Br>"&_
    "Hvis du har k&oslash;bt webhotel til dit dom&aelig;ne, bedes " &_
    "<Br>"&_
    "du returnere mailen med oplysninger om hvilke mailadresser" &_
    "<Br>"&_
    "du ønsker oprettet, samt hvilke faciliteter du vil få " &_
    "<Br>"&_
    "brug for på hotellet." &_
    "<Br>"&_
    "<Br>"&_
    "Med venlig hilsen" &_
    "<Br>"&_
    "<Br>"&_
    "Dansk WebNet ApS" &_
    "<Br>"&_
    "Vesterled 7, Postbox 162" &_
    "<Br>"&_
    "8300 Odder" &_
    "<Br>"&_
    "Tlf. 86 54 54 27" &_
    "</font>"
   
    JMail.AddHeader "Originating-IP", Request.ServerVariables("Remote_ADDR")
    JMail.Execute

%>

Øjeblik, så kigger jeg lige på det....

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
'JMail.ContentType = "text/html"
JMail.ServerAddress = "din smtp.dk"
JMail.Priority = 1
JMail.Sender = "afsender@mail.dk"
JMail.AddRecipientEx Request.Form("email"), Request.Form("navn")
Jmail.AddRecipientBCC "dinmail@dk.dk"
JMail.Subject = "Bestilling"
JMail.Body = "Hej " & Request.Form("navn")
JMail.Execute
Set JMail = Nothing
%>

Hmm... hvordan skal det bruges - gider du forklare lidt?

Du dim'er det samme 2 gange. Prøv at fjerne dubletterne

Skal jeg fjerne

Dim strBrugernavn
Dim strID
Dim strDomnenavn

i det ene script? Det virker ikke...

Jeg har lige kogt det sammen til et script..

<%
' *** mail til os

    Dim strDomnenavn
    Dim strHoteltype
    Dim strBrugernavn
    Dim strID
    Dim strEmail
   
    strDomnenavn = Request.Form("Domnenavn")
    strBrugernavn = aktivbruger.Fields.Item("brugernavn").Value
    strID = aktivbruger.Fields.Item("kundenrID").Value
    strHoteltype = Request.Form("Hoteltype")
    strEmail = aktivbruger.Fields.Item("Email").Value


    Dim objMail
    Set JMail = server.CreateObject("JMail.SMTPMail")

    JMail.ServerAddress = "smtp.mail.dk"
    JMail.ContentType = "text/html"
    JMail.Sender = "post@dansk-webnet.dk"
    JMail.AddRecipient  "post@dansk-webnet.dk"
    JMail.Subject = "Bestilling modtaget"
   
    JMail.Body = "<font face='Verdana' size ='2'>" &_
    "Der er foretaget bestilling af følgende bruger:" &_
    "<Br>"&_
    "<Br>"&_
    "Brugernavn: " & strBrugernavn &_
    "<Br>" &_
    "Kundenr: " & strID &_
    "<Br>"&_
    "Domænenavn: " & strDomnenavn &_
    "</font>"
   
    JMail.AddHeader "Originating-IP", Request.ServerVariables("Remote_ADDR")
    JMail.Execute


' *** mail til kunden

      JMail.ClearCustomHeaders
        JMail.ClearRecipients
    JMail.AddRecipient  strEmail
    JMail.Subject = "Bestilling modtaget"
   
    JMail.Body = "<font face='Verdana' size ='2'>" &_
    "Tak for ordren." &_
    "<Br>"&_
    "<Br>"&_
    "Vi har registreret følgende:" &_
    "<Br>"&_
    "<Br>"&_
    "Brugernavn: " & strBrugernavn &_
    "<Br>" &_
    "Kundenr: " & strID &_
    "<Br>"&_
    "<Br>"&_
    "Har bestilt registrering af domænet: " & strDomnenavn &_
    "<Br>"&_
    "Hoteltype: " & strHoteltype &_
    "<Br>"&_
    "<Br>"&_
    "Hvis du har k&oslash;bt webhotel til dit dom&aelig;ne, bedes " &_
    "<Br>"&_
    "du returnere mailen med oplysninger om hvilke mailadresser" &_
    "<Br>"&_
    "du ønsker oprettet, samt hvilke faciliteter du vil få " &_
    "<Br>"&_
    "brug for på hotellet." &_
    "<Br>"&_
    "<Br>"&_
    "Med venlig hilsen" &_
    "<Br>"&_
    "<Br>"&_
    "Dansk WebNet ApS" &_
    "<Br>"&_
    "Vesterled 7, Postbox 162" &_
    "<Br>"&_
    "8300 Odder" &_
    "<Br>"&_
    "Tlf. 86 54 54 27" &_
    "</font>"
   
    JMail.AddHeader "Originating-IP", Request.ServerVariables("Remote_ADDR")
    JMail.Execute

%>

Tror jeg har en kompromis-løsning nu:
Har tilføjet

Jmail.AddRecipientBCC "dinmail@dk.dk"

i kundens mail, og må så leve med at modtage en dublet af den.

Vil gerne kvittere med nogle point til jer begge, men mangler et svar fra larsen.

Mvh.
Shanne :)

Det var jo også det jeg skrev i mit indlæg :-)
---
JMail.Sender = "afsender@mail.dk"
JMail.AddRecipientEx Request.Form("email"), Request.Form("navn")
Jmail.AddRecipientBCC "dinmail@dk.dk"---

Tak for begge løsninger - håber i også synes det er rimeligt at dele pointene?

Selvfølgelig :-) Takker

merci :-)