Kontaktformular skrevet til ASP / Jmail

Der er ikke noget jmail i ovenstående - så mon ikke problemet ligger i afsendepost.asp

Hej keyserzone

Tak for dit svar, sorry havde glemt en copy paste af "afsendepost.asp"

Den er herunder:

Hvad med afsendelselsen til kunden, kunne dette også fixes ?



<%
    // Kontrollerer om der er tomme felter og om noget mangler at blive tastet ind.
        IF Len(Request.Form("Epost")) > 0 AND Len(Request.Form("Emne")) > 0 AND Len(Request.Form("Meddelelse")) > 0 AND Len(Request.Form("Statistik")) > 0 AND Len(Request.Form("Navn")) > 0 AND Len(Request.Form("Adresse")) > 0 AND Len(Request.Form("Telefon")) > 0Then

    // Mailkomponenten "Jmail"
        Set objMailer = Server.CreateObject ("JMail.SMTPMail")

    // Udgående Mailserver.
        objMailer.ServerAddress    = "smtp.domæne.com"   

    // Udgående Mailserver Port.
        objMailer.ServerPort = 25

    // Formularen "Afsenderens E-Postadresse"
        objMailer.Sender = Request.Form("Epost")

    // Formularen "Emne"
        objMailer.Subject = Request.Form("Emne")

    // Almindelig Tekst.
        objMailer.ContentType = "text/plain"

    // Modtager E-Postadresser.
        objMailer.AddRecipient("min@mail.dk")
       
    // Formularen "Statistik"
        objMailer.Body = Request.Form("Statistik")
   
    // Formularen "Navn"
        objMailer.Body = Request.Form("Navn")
       
    // Formularen "Adresse"
        objMailer.Body = Request.Form("Adresse")
       
    // Formularen "Telefon"
        objMailer.Body = Request.Form("Telefon")       
   
    // Formularen "Meddelelse"
        objMailer.Body = Request.Form("Meddelelse")

    // Afsender E-Post.
        objMailer.Execute()
        Set objMailer = nothing

    // Skriver okmeddelelse.
                Session("error") = ("Tak for Deres henvendelse - Vi besvarer meddelelsen hurtigst muligt.")
                Response.Redirect("kontaktsvar.asp")

    // Skriver fejlmeddelelse.
        else
                Session("error") = ("Der var fejl i Deres indtastning - Prøv venligst igen !")
                Response.Redirect("kontaktfejl.asp")
        End if
%>

Hver eneste gang du sætter

objMailer.Body =

overskriver du det eksisterende indhold, altså vil body kun indeholde den sidst indsatte værdi. Jeg kan ikke huske om jmail har en appendbody men mener det ikke - så du skal opbygge hele indholdet som én streng og sætte den i én body.

Ved at benytte flere objMailer.AddRecipient kan du tilføje flere modtagere. Du kan også benytte AddRecipientBCC eller AddRecipientCC alt afhængig af hvordan de skal tilføjes.

Hej igen keysersoze

Tak for dit hurtige svar.

Jeg er dog ikke helt med, kunne jeg for dig til at skrive mig et eksempel ?

Du kan måske sætte indholdet ind i mit fremsendte script.

Er ikke sikker på hvordan du gerne vil have vist mailen, men du gøre følgende i afsendepost.asp:

<%
    // Kontrollerer om der er tomme felter og om noget mangler at blive tastet ind.
        IF Len(Request.Form("Epost")) > 0 AND Len(Request.Form("Emne")) > 0 AND Len(Request.Form("Meddelelse")) > 0 AND Len(Request.Form("Statistik")) > 0 AND Len(Request.Form("Navn")) > 0 AND Len(Request.Form("Adresse")) > 0 AND Len(Request.Form("Telefon")) > 0Then

    // Mailkomponenten "Jmail"
        Set objMailer = Server.CreateObject ("JMail.SMTPMail")

    // Udgående Mailserver.
        objMailer.ServerAddress    = "smtp.domæne.com" 

    // Udgående Mailserver Port.
        objMailer.ServerPort = 25

    // Formularen "Afsenderens E-Postadresse"
        objMailer.Sender = Request.Form("Epost")

    // Formularen "Emne"
        objMailer.Subject = Request.Form("Emne")

    // Almindelig Tekst.
        objMailer.ContentType = "text/plain"

    // Modtager E-Postadresser.
        objMailer.AddRecipient("min@mail.dk")
 
    // Formularne "Statistik", "Navn", "Adresse", "Telefon" og "Meddelelse"
        objMailer.Body = Request.Form("Statistik") & ", " & Request.Form("Navn") & ", " & Request.Form("Adresse") & ", " & Request.Form("Telefon") & ", " & Request.Form("Meddelelse")
 
    // Afsender E-Post.
        objMailer.Execute()
        Set objMailer = nothing

    // Skriver okmeddelelse.
                Session("error") = ("Tak for Deres henvendelse - Vi besvarer meddelelsen hurtigst muligt.")
                Response.Redirect("kontaktsvar.asp")

    // Skriver fejlmeddelelse.
        else
                Session("error") = ("Der var fejl i Deres indtastning - Prøv venligst igen !")
                Response.Redirect("kontaktfejl.asp")
        End if
%>





ELLER!! Følgende:

<%
    // Kontrollerer om der er tomme felter og om noget mangler at blive tastet ind.
        IF Len(Request.Form("Epost")) > 0 AND Len(Request.Form("Emne")) > 0 AND Len(Request.Form("Meddelelse")) > 0 AND Len(Request.Form("Statistik")) > 0 AND Len(Request.Form("Navn")) > 0 AND Len(Request.Form("Adresse")) > 0 AND Len(Request.Form("Telefon")) > 0Then

    // Mailkomponenten "Jmail"
        Set objMailer = Server.CreateObject ("JMail.SMTPMail")

    // Udgående Mailserver.
        objMailer.ServerAddress    = "smtp.domæne.com" 

    // Udgående Mailserver Port.
        objMailer.ServerPort = 25

    // Formularen "Afsenderens E-Postadresse"
        objMailer.Sender = Request.Form("Epost")

    // Formularen "Emne"
        objMailer.Subject = Request.Form("Emne")

    // Almindelig Tekst.
        objMailer.ContentType = "text/plain"

    // Modtager E-Postadresser.
        objMailer.AddRecipient("min@mail.dk")
     
    // Formularen "Statistik"
        objMailer.Body = Request.Form("Statistik")
 
    // Formularen "Navn"
        objMailer.Body = objMailer.Body & ", " & Request.Form("Navn")
     
    // Formularen "Adresse"
        objMailer.Body = objMailer.Body & ", " & Request.Form("Adresse")
     
    // Formularen "Telefon"
        objMailer.Body = objMailer.Body & ", " & Request.Form("Telefon")     
 
    // Formularen "Meddelelse"
        objMailer.Body = objMailer.Body & ", " & Request.Form("Meddelelse")

    // Afsender E-Post.
        objMailer.Execute()
        Set objMailer = nothing

    // Skriver okmeddelelse.
                Session("error") = ("Tak for Deres henvendelse - Vi besvarer meddelelsen hurtigst muligt.")
                Response.Redirect("kontaktsvar.asp")

    // Skriver fejlmeddelelse.
        else
                Session("error") = ("Der var fejl i Deres indtastning - Prøv venligst igen !")
                Response.Redirect("kontaktfejl.asp")
        End if
%>



Begge scripts, giver samme resultat i body, men skrives på hver sin måde i koden. Personligt ville jeg bruge metode nr 1, da den er langt mere kompakt. Derudover er det op til dig selv at ændre i mailens "udseende", som du gerne vil have det.

Og med hensyn til afsendelsen af kopien til afsenderen, kan du - som keysersoze tidligere skrev - gøre følgende:

Metode 1:
Tilføj følgende linje til afsendepost.asp:
// Kopi til afsender
  objMailer.AddRecipientBCC(Request.Form("Epost"))


Metode 2:
Ændre den gamle linje:
// Modtager E-Postadresser.
  objMailer.AddRecipient("min@mail.dk")
Til:
// Modtager E-Postadresser.
  objMailer.AddRecipient("min@mail.dk, " & Request.Form("Epost"))


Begge metoder burde virke, det kommer blot an på hvordan du vil have det til at se ud i headeren :)

Hej Erizias

Jeg har forsøgt med begge type af dine gode forslag, men det virker bare ikke.

Jeg får en serverfejl 500.

Sorry - På den igen :-))

Havde skrevet forkert sorry virker nu Erizias. Endnu engang tak for hjælpen begge 2.

Sidst nænvte for point for den store hjælp.