![]() |
|
|
|||||||
| ASP Diskussioner om Active Server Pages, med relaterade scriptspråk (klassisk asp). |
![]() |
|
|
Trådverktyg | Visningsalternativ |
|
|
#1 |
|
Medlem
Registrerad: 2000-08-06
Ort: Alingsås
Inlägg: 533
Lösningar: 0 |
CDonts skicka til fler
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> |
|
|
|
|
|
#2 |
|
Medlem
Registrerad: 2000-12-11
Ort: Härnösand
Inlägg: 2 861
Lösningar: 116 |
Kod:
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
__________________
Quidquid latine dictum sit, altum viditur |
|
|
|
|
|
#3 |
|
Medlem
Registrerad: 2000-08-06
Ort: Alingsås
Inlägg: 533
Lösningar: 0 |
tack för dte
|
|
|
|
![]() |
| Trådverktyg | |
| Visningsalternativ | |
|
|