---
title: "Olika mail beroende på checkboxval"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/133630-olika-mail-beroende-på-checkboxval"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2005-09-02T12:21:28.000Z"
updated: "2005-09-07T05:25:06.000Z"
replies: 5
views: 591
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/133630-olika-mail-beroende-på-checkboxval"
---

# Olika mail beroende på checkboxval

## #1 — timedia, 2005-09-02T12:21Z

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
```

Permalänk: https://www.webforum.nu/p/133630

## #2 — lilja, 2005-09-04T17:02Z

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

Permalänk: https://www.webforum.nu/p/1664976

## #3 — timedia, 2005-09-04T18:22Z

borttagit - trodde jag hade fixat detta     :r

Permalänk: https://www.webforum.nu/p/1665017

## #4 — timedia, 2005-09-06T19:58Z

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
 %>
```

Permalänk: https://www.webforum.nu/p/1665973

## #5 — emission, 2005-09-06T20:36Z

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.

Permalänk: https://www.webforum.nu/p/1665989

## #6 — timedia, 2005-09-07T05:25Z

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

Permalänk: https://www.webforum.nu/p/1666062

---

Tråden på webben: https://www.webforum.nu/amne/asp/133630-olika-mail-beroende-på-checkboxval