Så var den der... tak for det, Thomas!
mvh ulrik
"Thomas Åkerman" <thomas@thesub.dk> skrev i en meddelelse
news:7eb7b4b3d58250c9123a829308ff4422.67706@mygate.mailgate.org...
> "Ulrik" <uj@adslhome.dk> wrote in message
> news:3c619df5$0$89067$edfadb0f@dspool01.news.tele.dk...
>
> > Hej,
> > Jeg kan ikke få dette script til at virke uanset hvad jeg gør. Det er
> > omdannet fra JMail hvor det har virket upåklageligt, men nu skal jeg
bruge
> > CDONTS, og så virker det ikke længere. Hvad har jeg gjort galt?
>
> --------------------------------------------------------------------------
-
> > <% @language="VBScript"%>
> > <%
> > Set NewMailObj = CreateObject("CDONTS.NewMail")
> > NewMailObj.From = "navn@mitdomaine.dk"
> > NewMailObj.To = Request.Form("Email") 'Henter indtastet værdi fra
> > form
> > NewMailObj.Subject = "Emne til emailen"
> > NewMailObj.Body = "Overskrift i body:" & vbCrLf & vbCrLf
> >
> > ' Løkke der gennemløber alle formularens felter.
> > For intT = 1 To Request.Form.Count
> > ' Henter indholdet af feltet ind i en midlertidig variabel (strTemp).
> > strTemp = Request.Form.Key(intT)
> >
> > ' Indsætter et mellemrum forrest i linien indtil linien er
> > ' 20 karakterer lang, så alle svarene bliver venstrejusteret i
e-mailen.
> > Do While Len(strTemp) < 20
> > strTemp = strTemp & " "
> > Loop
> >
> > ' Lægger strTemp ind i e-mailen. Det er her det går galt - hvorfor?
> > NewMailObj.AppendText(strTemp & ": " & Request.Form.Item(intT) &
vbCrLf)
> > Next
> >
> > NewMailObj.Send
> > Set NewMailObj = Nothing
> > %>
>
> Hej Ulrik
> Så vidt jeg ved er NewMailObj.AppendText ikke en metode der kan bruges i
> CDONTS...
> Hvis din intention er at det skal ligges til NewMailObj.Body så prøv
> dette her:
>
> -------------------------
> Dim minMailBody
> minMailBody = "Overskrift i body:" & vbCrLf & vbCrLf
>
> For intT = 1 To Request.Form.Count
> ' Dine Kodelinier
> minMailBody = mainMailBody & strTemp & " " & Request.Form.Item(intT) &
> vbCrLf
> Next
>
> NewMailObj.Body = minMailBody
>
> NewMailObj.Send
> -------------------------
>
> Håber at det hjalp
> Med Venlig Hilsen
> Thomas Åkerman
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG