---
title: "CDonts skicka til fler"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75014-cdonts-skicka-til-fler"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pellsäter"
published: "2003-04-25T09:35:28.000Z"
updated: "2003-04-25T10:00:19.000Z"
replies: 2
views: 196
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/75014-cdonts-skicka-til-fler"
---

# CDonts skicka til fler

## #1 — pellsäter, 2003-04-25T09:35Z

Denna koden gör bara att den första eposten får email....ser ni nåt fel

\<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"\>\<% epost = request.form("epost")

%\>

\<%

Set mail = Server.CreateObject("CDONTS.NewMail")
mail.Subject = Request.form("amne")
mail.Body = Request.Form("meddelande")
mail.From = "info@xxx.com"
mail.Host = "mail.xxx.com"
mail.To = "Kundlista@xxx.com"

epost = request.form("epost")
if instr(epost, ",") \>0 then
for each item in request.form("epost")
mail.bcc = item
next
else
mail.bcc = "" & epost & "" 
end if 

mail.Send 
set mail = Nothing
%\>\</font\>

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

## #2 — Engine^, 2003-04-25T09:44Z

```
Set mail = Server.CreateObject("CDONTS.NewMail") 
mail.Subject = Request.form("amne") 
mail.Body = Request.Form("meddelande") 
mail.From = "info@xxx.com" 
mail.Host = "mail.xxx.com" 
mail.To = "Kundlista@xxx.com" 

If InStr(epost, ",") > 0 Then
  epost = Replace(epost, ",", ";")
End If

mail.bcc = epost

mail.Send 
set mail = Nothing
```

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

## #3 — pellsäter, 2003-04-25T10:00Z

tack för dte

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/75014-cdonts-skicka-til-fler