19. marts 2007 - 12:09Der er
4 kommentarer og 1 løsning
Kopi til afsender
Jeg har lavet en formular, hvor indholdet af den sendes via CDONTS, og det fungerer ganske fint. Det eneste, jeg mangler, er, at afsenderen/brugeren skal have en kopi af det, han har sendt afsted. I formularen har jeg lavet et felt, brugeren udfylder, der hedder 'Sender', som email-valideres. Hvordan sikrer jeg, at brugeren får en kopi af formularens indhold?
<i>*Hvis mit spørgsmål ikke hører til i denne kategori, så sig endelig til - jeg er nemlig i tvivl om det er i asp, java eller andet*</i>
Er det denne her, du skal bruge: (jeg har x'et min mailadresse ud)
-----
<% Dim EmailTo Dim Subject Dim productname Dim packingsize Dim quantity Dim company Dim contact Dim sender
' get posted data into variables EmailTo = "xxx@xxx.com" Subject = "Request for Quote" productname = Trim(Request.Form("productname")) packingsize = Trim(Request.Form("packingsize")) quantity = Trim(Request.Form("quantity")) company = Trim(Request.Form("company")) contact = Trim(Request.Form("contact")) sender = Trim(Request.Form("sender"))
' validation Dim validationOK validationOK=true If (Trim(Sender)="") Then validationOK=false If (validationOK=false) Then Response.Redirect("error.htm?" & Sender)
' prepare email body text Dim Body Body = Body & "productname: " & productname & VbCrLf Body = Body & "packingsize: " & packingsize & VbCrLf Body = Body & "quantity: " & quantity & VbCrLf Body = Body & "company: " & company & VbCrLf Body = Body & "contact: " & contact & VbCrLf Body = Body & "sender: " & sender & VbCrLf
' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.Bcc = Sender mail.From = Sender mail.Subject = Subject mail.Body = Body mail.Send
Set Mailer = Nothing
' redirect to success page Response.Redirect("thankyou.htm" & EmailFrom)
Kan du ikke bare gøre sådan her - lige i mit eksempel går jeg udfra at dit felt hvor brugeren krydser af om han vil modtage en kopi eller ej hedder 'sendkopi'.
<% Dim EmailTo Dim Subject Dim productname Dim packingsize Dim quantity Dim company Dim contact Dim sender
' get posted data into variables EmailTo = "xxx@xxx.com" Subject = "Request for Quote" productname = Trim(Request.Form("productname")) packingsize = Trim(Request.Form("packingsize")) quantity = Trim(Request.Form("quantity")) company = Trim(Request.Form("company")) contact = Trim(Request.Form("contact")) sender = Trim(Request.Form("sender"))
' validation Dim validationOK validationOK=true If (Trim(Sender)="") Then validationOK=false If (validationOK=false) Then Response.Redirect("error.htm?" & Sender)
' prepare email body text Dim Body Body = Body & "productname: " & productname & VbCrLf Body = Body & "packingsize: " & packingsize & VbCrLf Body = Body & "quantity: " & quantity & VbCrLf Body = Body & "company: " & company & VbCrLf Body = Body & "contact: " & contact & VbCrLf Body = Body & "sender: " & sender & VbCrLf
' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo If Request.Form("modtagKopi") = 1 Then mail.CC = Sender End If mail.From = Sender mail.Subject = Subject mail.Body = Body mail.Send
Set Mailer = Nothing
' redirect to success page Response.Redirect("thankyou.htm" & EmailFrom) %>
Og så skal checkboxen se sådan her ud: <input type="checkbox" name="modtagKopi" value="1" />
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.
