<% ' Det tegn som adskiller de forskellige e-mails strSeperator = ";"
Set objFS = CreateObject("Scripting.FileSystemObject")
' Læser tekstfilen emails.txt Set myFile = objFS.OpenTextFile(Server.MapPath("emails.txt"))
' Hvis det ikke er en tom tekstfil If myFile.AtEndOfStream = False Then ' Skaber et array udfra tekstfilen emails.txt arrEmails = Split(myFile.ReadAll,strSeperator) End If myFile.Close
' Tjekker at arrEmails nu også er et array If isArray(arrEmails) Then Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.domæne.dk" JMail.Sender = "afsender@adresse.dk" JMail.Subject = "Emne linien..." JMail.AddRecipient "webmaster@ofthesite.dk" JMail.Body = "Dette er en test fra..." JMail.Priority = 1 ' Løber arrayet igennem og tilføjer de forskellige emails som BCC For n = 0 To UBound(arrEmails) JMail.AddRecipientBCC(arrEmails(n)) Next JMail.Execute End If
' Dræber objekterne Set objFS = Nothing Set JMail = Nothing %>
Der var lige et script som virker... i filen email.txt sætter du så bare alle emails i en lang række: email1@www.dk; email2@www.dk; osv.
Hvis jeg har forstået dig ret, så sender dit forslag samme indhold til alle modtagere..? Jeg har brug for at kunne præge hver enkelt mail individuelt = forskelligt indhold.
Dine tider passer meget godt med dem, jeg almindeligvis har men jeg vil mene, at du bør kunne komme op på 4..5 mails i sekundet. Jeg sender ca. 80 mails på 15..20 sekunder, hvilket er en lidt højere score end din. Det er formodentlig et spørgsmål om udbyderens kapacitet. Jeg har bedre score på mit domain end på min lokalserver.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
