Tak for dit svar Jesper.
Jeg har lidt problemer med at får det passet ind i min asp fil.
Den kommer med en fejl :
Microsoft VBScript compilation error '800a03ea'
Syntax error
/beta2/nyheder/send.asp, line 13
set objMail = CreateObject("CDONTS.NewMail")
^
Kan du se hvad der er galt?..
mvh
Per
<%
'-- Forbindelse til Access --
Set Conn = Server.Createobject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=XXXX-- Virker --
XXXX"
Set Record = Conn.Execute(Sql)
Sql = "SELECT Overskrift FROM nyheder WHERE (ID = " &
Request.QueryString("id") & ")"
strBody = Record("Overskrift") & VbCrLf &_
VbCrLf &_
set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "ikt-lfrs@hjv.dk"
objMail.To = "ikt-lfrs@hjv.dk"
objMail.Bcc = "ikt-lfrs@hjv.dk"
objMail.Subject = "Nyhedsbrev fra Informationskontoret"
objMail.MailFormat=0
objBody = strBody
objMail.Send
Set objMail=nothing
%>
"Jesper Stocholm" <spam200204@stocholm.dk> skrev i en meddelelse
news:Xns91F585CEA3DCCspamstocholmdk@130.226.1.34...
> Informationskontoret wrote in
> news:3cbff82f$0$11926$edfadb0f@dspool01.news.tele.dk:
>
> > Hej.
> > Jeg er igang med at lave en auto mail der bliver sendt til nogle
> > medlemmer i en database.
> > Denne mail skulle gerne blive udformet af nogle nyheder vi har i en
> > database på vores hjemmeside. Hvordan kan man sætte data fra databasen
> > i body uden at den melder fejl. Kan det lade sig gøre.
> > Jeg har selv forsøgt lidt men kan ikke få den til at fatte at den skal
> > sætte data ind i Body.
> >
> > Når jeg har mail senderen her:
> > <%
> > Set objMail = CreateObject("CDONTS.NewMail")
> > objMail.From = "ikt-lfrs@hjv.dk"
> > objMail.To = "ikt-lfrs@hjv.dk"
> > objMail.Bcc = "ikt-lfrs@hjv.dk"
> > objMail.Subject = "Nyhedsbrev fra Informationskontoret"
> > objMail.Bodyformat=1 objMail.MailFormat=0
> > objBody = ??????????????????
> > objMail.Send
> > Set objMail=nothing
> > %>
> >
> > hvordan får jeg så lagt denne ind:
> >
> > <% Response.Write Record("Overskrift")%>
> >
>
> Du skal oprette en streng, som indeholder den besked du gerne vil have
> i nyhedsbrevet. Derefter giver du denne streng til dit mailobjekt som
> mody.
>
> [... oprettelse af forbindelse (oCon) til database ...]
>
> oRes.open "SELECT Overskrift,Nyhed,forfatter FROM Nyhedstabel WHERE id=1",
oCon
> strBody = oRes("Overskrift") & VbCrLf &_
> VbCrLf &_
> "Denne uges emne: " & oRes("Emne") & VbCrLf &_
> VbCrLf &_
> oRes("Nyhed") & VbCrLF &_
> VbCrLf &_
> "Med venlig hilsen" & VbCrLf &_
> VbCrLF &_
> "... dig ..."
>
> objMail.Body = strBody
> ...
> ...
> objMail.Send
>
> :)
>
> --
> Jesper Stocholm
>
http://stocholm.dk
>
http://asp.stocholm.dk
> Svar til gruppen og ikke til mig privat pr. email :|