Olika mail beroende på checkboxval

5 svar · 587 visningar · startad av timedia 2 sep. 2005

timediaMedlem sedan maj 2001420 inlägg

Frågan2 sep. 2005 12:21#1

Har ett formulär med en massa checkboxar. Varje checkbox är kopplad till olika epostadresser. När du väljer tex. varberg så skall ett mail gå till sandra@varberg.se och i första linjen i mailet ska det stå 'Jag är intresserad av Varberg' Om man samtidigt kryssat Stockholm så ska det inte stå Stockholm i mailet till varberg. Hoppas ni förstår vad jag menar? Komponenten är ASPEmail.

If Request.Form("Varberg") <> "" then
Mail.AddCC "sandra@varberg.se"
strStrom = Varberg
end if

If Request.Form("Stockholm") <> "" then
Mail.AddCC "ulla@stockholm.se"
strStrom = Stockholm
end if

Mail.Subject=Request.Form("subject")

strNamn = request.form("namn")
strEmail = request.form("email")
strTele = request.form("tele")
strComments = request.form("comments")
'******************************
Mail.isHTML = True

Mail.Body = strMsgHeader & "<HTML><BODY BGCOLOR=#F4F4F4 style='padding:10pt; line-height: 14pt;'>" & vbCrLf & vbCrLf & _ 
"<br><B>Jag är intresserad av </B> " & strStrom & vbCrLf & _
"<br><B>Namn:</B> " & strNamn & vbCrLf & _
"<br><B>E-post:</B> " & strEmail & vbCrLf & vbCrLf & _
"<br><B>Telefon:</B> " & strTele & vbCrLf & vbCrLf & _
"<br><B>Meddelande:</B> " & strComments & vbCrLf & strComments
On Error Resume Next
Mail.Send
Set Mail = Nothing

liljaMedlem sedan juli 20041 183 inlägg

4 sep. 2005 17:02#2

Enda sättet jag kan komma på är att använda en massa If-sattser... Men så är jag inte insatt i den mailkomponenten heller :P

Om Varberg
Skicka till varbergperson
Om Stockholm
Skicka till Stokholmsperson
Slut

timediaMedlem sedan maj 2001420 inlägg

4 sep. 2005 18:22#3

borttagit - trodde jag hade fixat detta :r

timediaMedlem sedan maj 2001420 inlägg

6 sep. 2005 19:58#4

Trodde det funkade med ifsatser utan loop, men inga mail går fram. Någon som kan se varför detta inte fungerar:

<% 
'INNEHÅLLER FORMULÄRET NÅGOT?
if (Request.Form.item = "")  then
%>

<div align="center">Det finns inget i formul&auml;ret!<BR>
Anv&auml;nd back/tillbaka och fyll i det!
</div>

<%
else
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.servern.net"

' ---------------------------------------------------Från e-post
epost=Request.Form("email")
if epost="" then
Mail.From="web@servern.net"
else
Mail.From=epost
end if
' ---------------------------------------------------Till e-post (gömd)
Mail.AddAddress "roger@servern.net"

' ---------------------------------------------------ÄMNE
Mail.Subject=Request.Form("subject")
' ---------------------------------------------------SORTERING

strNamn = request.form("namn")
strEmail = request.form("email")
strTele = request.form("tele")
strComments = request.form("comments")
strMsgHeader = "<b>Intresseanmälan</b>" & vbCrLf
'******************************
Mail.From = strEmail
Mail.isHTML = True
'----------------------------------------------------MAILTEXTEN

If Request.Form("varberg") <> "" then
Mail.AddCC "thor@varberg.se"
strStrom = "varberg"
Mail.Body = strMsgHeader & "<HTML><BODY BGCOLOR=#F4F4F4 style='padding:10pt; line-height: 14pt;'>" & vbCrLf & vbCrLf & _ 
"<br><B>Jag är intresserad av </B> " & strStrom & vbCrLf & _
"<br><B>Namn:</B> " & strNamn & vbCrLf & _
"<br><B>E-post:</B> " & strEmail & vbCrLf & vbCrLf & _
"<br><B>Telefon:</B> " & strTele & vbCrLf & vbCrLf & _
"<br><B>Meddelande:</B> " & strComments & vbCrLf & strComments
On Error Resume Next
Mail.Send 
end if

If Request.Form("stockholm") <> "" then
Mail.AddCC "thor@stockholm.nu"
strStrom = "stockholm"
Mail.Body = strMsgHeader & "<HTML><BODY BGCOLOR=#F4F4F4 style='padding:10pt; line-height: 14pt;'>" & vbCrLf & vbCrLf & _ 
"<br><B>Jag är intresserad av </B> " & strStrom & vbCrLf & _
"<br><B>Namn:</B> " & strNamn & vbCrLf & _
"<br><B>E-post:</B> " & strEmail & vbCrLf & vbCrLf & _
"<br><B>Telefon:</B> " & strTele & vbCrLf & vbCrLf & _
"<br><B>Meddelande:</B> " & strComments & vbCrLf & strComments
On Error Resume Next
Mail.Send 
end if

'o.s.v
´ytterligare 7 ifsatser som ovan
  %>

  <h1>Informationen är skickad!</h1><br>
  <% 
end if
Set Mail = Nothing
 %>

emissionMedlem sedan dec. 19996 721 inlägg

6 sep. 2005 20:36#5

Ta bort On Error Resume Next så ser du om det blir fel.

Tänk på att din lösning gör det omöjligt att vara intresserad av både Varberg och Stockholm. Antingen ändrar du koden så att det är möjligt, eller så gör du om checkboxarna till radiobuttons.

timediaMedlem sedan maj 2001420 inlägg

7 sep. 2005 05:25#6

Tack Emission! Nu använder jag radiobuttons och allt flyter som det ska :bire