Hjælp Hjælp - HTML-mails til mange mennesker.....

Har du en server der kan køre ASP?

ja

Jamen så kan du sikkert gøre det med CDONTS.

Har du adresserne i en database, og hvilken

Skal mailen bare indeholde HTML\'en?

hvad med billederne, hvordan attacher man med CDONTS?

Jeg kunne godt tænmke mig at vide detr samme (altså hvordan man sætter mailen til at sende som HTML).

Med venlig hilsen
Rasmus Lind

Dette åbner databaseforbindelsen, (her en sqlserver) og sender den samme mail til alle adresser. Det med attachments har jeg ikke leget så meget med, men ...

Lav en tekstfil med denne kode, kald den etellerandet.vbs og dobbeltklik, så kører den.

MEN du skal først få forbindelsen til adresserne til at virke, OG det kunne være en god ide at sende 1000 mails 20 gange, med 5 minutters mellemrum.

\'Åbner databaseforbindelsen
SQLServerName = \"212.130.83.89\"
initialcatalogue = \"Databasen\"
UserID = \"sa\"
password = \"\"
ConnectionString=\"Provider=SQLOLEDB;Data Source=\"&SQLServerName&\";Initial Catalog=\"&initialcatalogue&\";User ID=\"&UserID&\";password=\"&password
Set Con=CreateObject(\"ADODB.Connection\")
Con.Open(ConnectionString)

Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

\'Læser email
Set ObjText = objFSO.OpenTextFile(\"D:\\minmappe\\email.htm\",1)
mailBody = ObjText.ReadAll

Set ObjText = nothing
Set objFSO = nothing

Set Brev = Con.Execute(\"SELECT Email FROM Kunder\")

if not Brev.BOF then
  do while not Brev.EOF
    Set objMail = CreateObject(\"CDONTS.NewMail\")
    objMail.AttachFile(\"D:/minmappe/minfil.gif\")
    objMail.From = \"min@email.dk\"
    objMail.To = Brev(\"Email\")
    objMail.Subject = \"Brev fra mig\"
    objMail.Bodyformat=0
    objMail.MailFormat=0
    objMail.Body = mailBody
    objMail.Send
    Set objMail=nothing
    Brev.MoveNext
  loop
end if

Con.Close
Set Con = nothing

objMail.Bodyformat=0
objMail.MailFormat=0

Det er de linier der bestemmer at det er html
   

Vi checker lige om det virker - men jeg tror du er meget close på 300 point :-)

Hvilken kode ligger i D:\\minmappe\\email.htm??

Jeg smutter nu, og er måske først på igen i morgen formiddag. Håber det var en hjælp.

måske kan du gøre sådan her:


Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

\'Læser email
Set ObjText = objFSO.OpenTextFile(\"D:\\minmappe\\email.htm\",1)
mailBody = ObjText.ReadAll

Set ObjText = nothing
Set objFSO = nothing

Set objMail = CreateObject(\"CDONTS.NewMail\")
objMail.AttachFile(\"D:/minmappe/minfil.gif\")
objMail.From = \"min@email.dk\"
objMail.To = \"mig@selv.dk\"
objMail.Bcc = \"user1@company1.com;user2@company2.com;user3@company3.com;fjfj@dldljk.dk;gjgj@dyrug.dk;etetet@dgdgd.dk\"
objMail.Subject = \"Brev fra mig\"
objMail.Bodyformat=0
objMail.MailFormat=0
objMail.Body = mailBody
objMail.Send
Set objMail=nothing


Men jeg ved ikke om det er muligt at lave 20.000 Bcc\'er

Blind Carbon Copy er det samme som CC, blot kan hver enkelt modtager IKKE se listen over andre der har fået den samme mail

Hilsen Lars D.

minmappe/email.html er selve mail\'en, som altså er lavet som en html-side OK?

Hvis du lægger alle emailadresserne i en tekstfil med kommaer imellem (\"jljlkjlk.@fkh.dk,fkhfkj@jl.dk,jjlkj@jlj.dk\")

Så kan du lave detteher (tror jeg), uden database:

\'Læser adresser
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

Set ObjAdresser = objFSO.OpenTextFile(\"D:\\minmappe\\adresser.txt\",1)
AdresseArray = Split(ObjAdresser.ReadAll,\",\")

\'Læser email
Set ObjText = objFSO.OpenTextFile(\"D:\\minmappe\\email.htm\",1)
mailBody = ObjText.ReadAll

Set ObjAdresser = nothing
Set ObjText = nothing
Set objFSO = nothing

for i = 0 to Ubound(AdresseArray)
    Set objMail = CreateObject(\"CDONTS.NewMail\")
    objMail.AttachFile(\"D:/minmappe/minfil.gif\")
    objMail.From = \"mig@selv.dk\"
    objMail.To = AdresseArray(i)
    objMail.Subject = \"Brev fra mig\"
    objMail.Bodyformat=0
    objMail.MailFormat=0
    objMail.Body = mailBody
    objMail.Send
    Set objMail=nothing
next

NU er jeg altså nødt til at gå, vi snakkes!

Jeg håber du har de 2000 tilkendegivelser fra folk om at de ønsker at være på din postliste. Hvis du ikke har dem hedder det SPAM og
      SPAM ER IKKE LOVLIGT HER I DANMARK.
Der findes mange meget forskellige e-mail formater, så du må regne med at det du sender vil blive set endnu mere forskelligt end en webside. Det er sikrere at sende en kort tekst med se brevet på http://dit_domæne.dk .

mvh JakobA

sorry, jeg glemte et nul  \"håber du har de 20000 tilkendegivelser\"

Bare rolig jakoba...det drejer sig om et nyhedsbrev for et af de største bilfirmaer i DK.

Mange tak for hjælpen Idanielsen......kvittere med 300 points.