---

Hejsa,

Jeg har et site, hvor jeg vil sende en mail automatisk ud
til folk som tilmelder sig et nyhedsbrev.

Jeg har en formular hvor det skal være muligt at få
materiale tilsendt udfra de data kunden indtaster.

Men jeg har ingen ide om hvor nedenståede skal være
i min kode.....og hvordan det skal gøres...??

Nogen som kan hjælpe...??

<%
Dim objCDO
' Her skabes en reference til CDONTS.NewMail objektet
Set objCDO = Server.CreateObject("CDONTS.NewMail")

' Her sættes egenskaber og metoder
objCDO.From = "info@activeserverpages.dk"
objCDO.To = "modtager@email.adr"
objCDO.Subject "Kære modtager"
objCDO.Body "Dette er blot en test"
objCDO.Send

' Husk at fjerne dit objekt fra hukomelsen
Set objCDO = Nothing
%>


--
Med venlig hilsen

S@ndman
----------------------------------

---

S@ndman skrev:

> Men jeg har ingen ide om hvor nedenståede skal være
> i min kode.....og hvordan det skal gøres...??

Det skal placeres efter et tjek af om de indtastede data er o.k.
(en validering). Fx som her:

Dim mail, navn
mail = Request.Form("mail") & ""
navn = Request.Form("navn") & ""

' Meget simpel mailvalidering - tjek om der er @ i adressen
' Man kan finde bedre/mere avancerede udgaver på nettet
If instr(navn, "@") > 0 Then
   ' sendkode ind her

End If

> ' Her sættes egenskaber og metoder

Linjerne her skal tilrettes til dit formål.

> objCDO.From = "info@activeserverpages.dk"

Den adresse du vil sende fra

> objCDO.To = "modtager@email.adr"

Modtagerens adresse. Med ovenstående tilføjelser kan du her skrive:

objCDO.To = mail

> objCDO.Subject "Kære modtager"

Fx: objCDO.Subject = "Kære " & navn
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html