Avatar billede michaelb Nybegynder
08. september 2002 - 13:12 Der er 4 kommentarer og
1 løsning

Flere JMail's på én kontakt-side

Hvis jeg sætter denne kode på 2 gange, bliver formularen sendt til mailen 2 gange, selvom jeg kun sender den 1e formular! Hvordan gør jeg så jeg kan sende én formular, til den ene e-mail, og den anden formular til den anden e-mail?? Forstår du?

-------------------------------------------------------

Mail1:

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    navn = Trim(Request.Form("navn"))
    mail = Trim(Request.Form("mail"))
    besked2 = Trim(Request.Form("besked"))
      Set JMail          = Server.CreateObject("JMail.SMTPMail")
    JMail.ContentType = "text/html"
    JMail.ISOEncodeHeaders = False
    JMail.ServerAddress = "pop3.mail.dk"
    JMail.Sender        = "michael.b@pc.dk"
        Jmail.SenderName = navn
    JMail.Subject      = "Tilmelding"
    JMail.AddRecipientEx  "michael.b@pc.dk", "Michael Bollerslev"
    JMail.Priority      = 1
    Besked = "" + besked2 + "<br/><br/>"
    besked = Besked + "Afsenders e-mail: <a href='mailto:" + mail + "'>" + mail + "</a>" 
    JMail.Body = besked
    JMail.Execute
response.write "<font color=cc0000>Din mail er sendt</font><br/><br/>"
END IF
%>

<form action="kontakt.asp"  method="post">
<textarea name="besked"></textarea>
<input type="text" name="navn"> 
<input type="text" name="mail">         
<input type="submit" value="send"><br>
</form>

Mail2:

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    navn = Trim(Request.Form("navn"))
    mail = Trim(Request.Form("mail"))
    besked2 = Trim(Request.Form("besked"))
      Set JMail          = Server.CreateObject("JMail.SMTPMail")
    JMail.ContentType = "text/html"
    JMail.ISOEncodeHeaders = False
    JMail.ServerAddress = "pop3.mail.dk"
    JMail.Sender        = "michael.b@pc.dk"
        Jmail.SenderName = navn
    JMail.Subject      = "Tilmelding"
    JMail.AddRecipientEx  "michael.b@pc.dk", "Michael Bollerslev"
    JMail.Priority      = 1
    Besked = "" + besked2 + "<br/><br/>"
    besked = Besked + "Afsenders e-mail: <a href='mailto:" + mail + "'>" + mail + "</a>" 
    JMail.Body = besked
    JMail.Execute
response.write "<font color=cc0000>Din mail er sendt</font><br/><br/>"
END IF
%>

<form action="kontakt.asp"  method="post">
<textarea name="besked"></textarea>
<input type="text" name="navn"> 
<input type="text" name="mail">         
<input type="submit" value="send"><br>
</form>
Avatar billede michaelb Nybegynder
08. september 2002 - 13:12 #1
Det lyder allerhelvede besværligt, men det er faktisk ganske enkelt ;D
Avatar billede rune_c Nybegynder
08. september 2002 - 13:34 #2
er det hele på samme asp side? Jeg fatter blomkål af hvad du skriver! Du har 2 forms på samme side? Hver form skal sendes til hver sin email? Hvordan? Skal man trykke på begge Send knapper på samme tid? Forklar, forklar, forklar...
Avatar billede michaelb Nybegynder
08. september 2002 - 13:42 #3
du har ret i det første du siger! At hver form skal sende til hver sin e-mail.

Sådan skal det være:

Jeg trykker på sendknap nr. 1 i formular nr. 1 og formularen bliver sendt til e-mail nr. 1

Jeg trykker på sendknap nr. 2 i formular nr. 2 og formularen bliver sendt til e-mail nr. 2

Sådan er det nu:

Jeg trykker på sendknap nr. 1 i formular nr. 1 og formularen bliver sendt til både e-mail nr. 1 og e-mail nr. 2

Jeg trykker på sendknap nr. 2 i formular nr. 2 og formularen bliver sendt til både e-mail nr. 2 og e-mail nr´. 1

Var det bedre?
Avatar billede rune_c Nybegynder
08. september 2002 - 14:05 #4
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    no = Request.Form("to")
    navn = Trim(Request.Form("navn" & no))
    mail = Trim(Request.Form("mail" & no))
    besked2 = Trim(Request.Form("besked" & no))
      Set JMail          = Server.CreateObject("JMail.SMTPMail")
    JMail.ContentType = "text/html"
    JMail.ISOEncodeHeaders = False
    JMail.ServerAddress = "pop3.mail.dk"
    JMail.Sender        = "michael.b@pc.dk"
        Jmail.SenderName = navn
    JMail.Subject      = "Tilmelding"
   
    select case no
        case "1" JMail.AddRecipientEx  "michael.b@pc.dk", "Michael Bollerslev"
        case "2" JMail.AddRecipientEx  "michael.b@pc.dk", "Michael Bollerslev"
    end select
    JMail.Priority      = 1
    Besked = "" + besked2 + "<br/><br/>"
    besked = Besked + "Afsenders e-mail: <a href='mailto:" + mail + "'>" + mail + "</a>" 
    JMail.Body = besked
    JMail.Execute
response.write "<font color=cc0000>Din mail er sendt</font><br/><br/>"
end if
%>

<form action="kontakt.asp"  method="post">
<textarea name="besked1"></textarea>
<input type="text" name="navn1"> 
<input type="text" name="mail1">         
<input type="submit" value="send"><br>
<input type="hidden" name="to" value="1">
</form> 

<form action="kontakt.asp"  method="post">
<textarea name="besked2"></textarea>
<input type="text" name="navn2"> 
<input type="text" name="mail2">         
<input type="submit" value="send"><br>
<input type="hidden" name="to" value="2">
</form>

<form action="kontakt.asp"  method="post">
<textarea name="besked2"></textarea>
<input type="text" name="navn2"> 
<input type="text" name="mail2">         
<input type="submit" value="send"><br>
<input type="hidden" name="to" value="3">
</form>

eller noget ligende
Avatar billede michaelb Nybegynder
08. september 2002 - 15:12 #5
Jeg siger tusind tak for hjælpen!
Mvh. Michael
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