Tak !
"Thygesen" <cht@cht.dk> wrote in message
news:K3db8.121$y%4.4126@news.get2net.dk...
> I toppen af mailen skriver du:
>
> <img src=
http://cht.dk/chtwebdesign.gif alt="CHT Webdesign" border=0>
>
>
> Mvh. Christoffer Thygesen
>
> e-mail: cht@cht.dk
> homepage:
http://cht.dk
>
>
> "Jens" <til@infojens.dk> wrote in message
> news:3c6d49f2$0$22343$edfadb0f@dspool01.news.tele.dk...
> > Hvordan for jeg et billede ind på mailen det skal ikke være vedhæfted
det
> > skal side på mailen i toppen
> >
> > Kan man det?
> >
> >
> > function Mail(byval add, byval mailtekst)
> > Dim Mailer
> > Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
> >
> > ' Her sættes afsender navn og e-mail adresse
> > Mailer.FromName = "Test"
> > Mailer.FromAddress= "xxx@xxx.dk"
> >
> > ' Afsenders mailserver
> > Mailer.RemoteHost = "xxx.xxx.dk"
> >
> > ' Her sættes modtager navn og e-mail adresse
> > Mailer.AddRecipient "",add
> >
> > ' Her sættes overskriften på mailen
> > Mailer.Subject = "Dette er en testmail"
> >
> > Mailer.ContentType = "text/html"
> >
> > ' Her sættes selve teksten til mailen
> > Mailer.BodyText = mailtekst
> >
> >
> > ' Send e-mail og skriv status
> > if Mailer.SendMail then
> > Response.Write "Mailen er afsendt..."
> > else
> > Response.Write "Der skete en fejl: " & Mailer.Response
> > end if
> >
> > ' Fjern objekt igen
> > Set Mailer = Nothing
> > end function
> >
> >
> >
>
>