Søg
Avatar billede bentbent Nybegynder
29. april 2003 - 21:56 Der er 10 kommentarer og
1 løsning

Loop e-mail adresser i jmail

Hejsa Eksperter!

Mit felt med email adresser hedder "Memail" hvordan får jeg nedenstående kode til at sende til alle tilmeldte i min tabel der hedder mailingliste!!

tak:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/emmedsbo.asp" -->
<%
set mailinglist = Server.CreateObject("ADODB.Recordset")
mailinglist.ActiveConnection = MM_emmedsbo_STRING
mailinglist.Source = "SELECT * FROM mailinglist"
mailinglist.CursorType = 0
mailinglist.CursorLocation = 2
mailinglist.LockType = 3
mailinglist.Open()
mailinglist_numRows = 0
%>
<%

           
'        --> Her hentes felter fra form siden
'
        Body = vbCrLf & vbTab & request.form("billede") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf &  Request.Form("salgstekst") & vbCrLf & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "-------------------------------------------------------------------------" & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & Request.Form("overskrift") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "<font family=""verdana"">" & Replace(Request.Form("produkt"), vbCrLf, "<br>") & "</font><p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & Request.Form("fodnote") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "-------------------------------------------------------------------------" & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "Læs mere på <a href=""www.emmedsbo.dk<a/>"" target="_blank">http://www.emmedsbo.dk"">www.emmedsbo.dk<a/>"
       
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ContentType = "text/html"
       
        JMail.ServerAddress = "websmtp.emmedsbo.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"

       
        JMail.Sender = "nyheder@smz.dk"
        JMail.SenderName = "Emmedsbo Skov"
        JMail.Subject = "En besked fra Emmedsbo Skov"
       
   
        JMail.AddRecipient Request.Form("modtagermail")

        JMail.Body = Body
        JMail.Priority = 1
       
       
       
        ' Send it...
       
        on error resume next
       
        JMail.execute
       
        if err <> 0 then %>
<p>Der er opstået en fejl, kontakt webmasteren....
  <%
        end if    
       
        set JMail = nothing

       
        conn.close

        %>
  <% ' --> 3)  Herunder indsættes takkesiden.
        Response.redirect "tak.asp"   
        %>
</p>
<%
mailinglist.Close()
%>
Avatar billede amd Nybegynder
29. april 2003 - 22:09 #1
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/emmedsbo.asp" -->
<%
sql = "select * from mailingsliste"
set rs = conn.execute(sql)
Do
set mailinglist = Server.CreateObject("ADODB.Recordset")
mailinglist.ActiveConnection = MM_emmedsbo_STRING
mailinglist.Source = rs("Memail")
mailinglist.CursorType = 0
mailinglist.CursorLocation = 2
mailinglist.LockType = 3
mailinglist.Open()
mailinglist_numRows = 0
%>
<%

           
'        --> Her hentes felter fra form siden
'
        Body = vbCrLf & vbTab & request.form("billede") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf &  Request.Form("salgstekst") & vbCrLf & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "-------------------------------------------------------------------------" & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & Request.Form("overskrift") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "<font family=""verdana"">" & Replace(Request.Form("produkt"), vbCrLf, "<br>") & "</font><p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & Request.Form("fodnote") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "-------------------------------------------------------------------------" & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "Læs mere på <a href=""www.emmedsbo.dk<a/>"" target="_blank">http://www.emmedsbo.dk"">www.emmedsbo.dk<a/>"
       
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ContentType = "text/html"
       
        JMail.ServerAddress = "websmtp.emmedsbo.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"

       
        JMail.Sender = "nyheder@smz.dk"
        JMail.SenderName = "Emmedsbo Skov"
        JMail.Subject = "En besked fra Emmedsbo Skov"
       
   
        JMail.AddRecipient Request.Form("modtagermail")

        JMail.Body = Body
        JMail.Priority = 1
       
       
       
        ' Send it...
       
        on error resume next
       
        JMail.execute
       
        if err <> 0 then %>
<p>Der er opstået en fejl, kontakt webmasteren....
  <%
        end if   
       
        set JMail = nothing

       
        conn.close

        %>
  <% ' --> 3)  Herunder indsættes takkesiden.
        Response.redirect "tak.asp"   
        %>
</p>
<%
mailinglist.Close()
rs.movenext
Loop while not rs.eof
conn.close
set conn = Nothing
%>




Virker det ik?
Avatar billede eagleeye Praktikant
29. april 2003 - 22:09 #2
Du skal havde lavet et loop omkring mail delen. Du vil sikker ikke havde alle modtagerne kan se hinandens mail adresser så du skal havde loopet helt omkring JMail delen. Du loop på dit recordset

do while not mailinglist.EOF

  'send mail til en

  mailinglist.MoveNext()
loop


Sådan her:

    do while not mailinglist.EOF

        Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ContentType = "text/html"
       
        JMail.ServerAddress = "websmtp.emmedsbo.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"

       
        JMail.Sender = "nyheder@smz.dk"
        JMail.SenderName = "Emmedsbo Skov"
        JMail.Subject = "En besked fra Emmedsbo Skov"
       
   
        JMail.AddRecipient Request.Form("modtagermail")

        JMail.Body = Body
        JMail.Priority = 1
       
       
       
        ' Send it...
       
        on error resume next
       
        JMail.execute
       
        if err <> 0 then %>
<p>Der er opstået en fejl, kontakt webmasteren....
  <%
        end if   
       
        set JMail = nothing

      mailinglist.MoveNext()
    loop
Avatar billede eagleeye Praktikant
29. april 2003 - 22:12 #3
du skal havde rettet denne linje til at hendte en email adresse fra dit recordset:

  JMail.AddRecipient Request.Form("modtagermail")


JMail.AddRecipient maillist("memail")
Avatar billede eagleeye Praktikant
29. april 2003 - 22:15 #4
Alternetivt kan functionen .AddBCCRecipient bruges i stedet for .AddRecipient  da man ikke kan se andres email adresser hvis de står i BCC, så vidt jeg husker. Så kan du lave loopet kun over funktionen ved at skifte denne linje:
     
      JMail.AddRecipient Request.Form("modtagermail")

ud med dette

    do while not mailinglist.EOF
      JMail.AddBCCRecipient maillist("memail")
      mailinglist.Movenext
    loop
Avatar billede bentbent Nybegynder
29. april 2003 - 22:20 #5
Jeg prøver med dit sidste forslag eagleeye!

men det kommer med følgende fejl!!

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'JMail.AddBCCRecipient'

/temp/admin/mailinglist/send.asp, line 43
Avatar billede eagleeye Praktikant
29. april 2003 - 22:42 #6
hmm det er også forkert skrevet af mig, BCC skal ind til sidst og ikke midt i sådan her:

  JMail.AddRecipientBCC maillist("memail")
Avatar billede bentbent Nybegynder
29. april 2003 - 22:47 #7
Nu har jeg det fået til at virke!

jeg lavede derefter en test med 2500 email adresser!!

1@mit-domæne.dk
2@mit-domæne.dk
3@mit-domæne.dk
o.s.v.

med der kom kun 158 tilbage hvoraf de 50 var blanke!!  ????????

hvad kan det være??
Avatar billede eagleeye Praktikant
29. april 2003 - 22:52 #8
Jeg ved faktisk ikke hvor mange den kan håndtere på en gang. Det kan være der er en grænse for det. Men det lyder lidt underlidt de er blanke.
Avatar billede bentbent Nybegynder
29. april 2003 - 23:40 #9
Nu har jeg fået det til at virke!!  tusinde tak for hjælpen!!
Avatar billede lester_dk Nybegynder
04. august 2003 - 13:54 #10
Hvad måtte du ændre for at få det til at virke så???
Avatar billede bentbent Nybegynder
04. august 2003 - 14:03 #11
Jeg kan ikke lige huske det præsist! men her er koden!

--------------------------------------------------------------------

<%@LANGUAGE="VBSCRIPT"%>
<% Server.ScriptTimeout = 600 %>
<!--#include file="../../Connections/domaene.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="http://www.domaene.dk/admin/sider/index.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
        (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
set mailinglist = Server.CreateObject("ADODB.Recordset")
mailinglist.ActiveConnection = MM_domaene_STRING
mailinglist.Source = "SELECT * FROM mailinglist"
mailinglist.CursorType = 0
mailinglist.CursorLocation = 2
mailinglist.LockType = 3
mailinglist.Open()
mailinglist_numRows = 0
%>
<%

           
'        --> Her hentes felter fra form siden
'
        Body = vbCrLf & vbTab & request.form("billede") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf &  "<font family=""verdana"">" & Replace(Request.Form("salgstekst"), vbCrLf, "<br>") & "</font><p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "-------------------------------------------------------------------------" & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & Request.Form("overskrift") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "<font family=""verdana"">" & Replace(Request.Form("produkt"), vbCrLf, "<br>") & "</font><p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "-------------------------------------------------------------------------" & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & Request.Form("fodnote") & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "-------------------------------------------------------------------------" & "<p></p>" &_
        "<BODY><FONT FACE=verdana  SIZE=1pt>" & vbCrLf & "Læs mere på <a href=""www.domaene.dk<a/>"" target="_blank">http://www.domaene.dk"">www.domaene.dk<a/>"
       
do while not mailinglist.EOF

        Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ContentType = "text/html"
       
        JMail.ServerAddress = "websmtp.domaene.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"

       
        JMail.Sender = "nyheder@domaene.dk"
        JMail.SenderName = "domaene Skov"
        JMail.Subject = "domaene nyhedsbrev"
       
   
        JMail.AddRecipient mailinglist("memail")

        JMail.Body = Body
        JMail.Priority = 1
       
       
       
        ' Send it...
       
        on error resume next
       
        JMail.execute
       
        if err <> 0 then %>
<p>Der er opstået en fejl, kontakt webmasteren....
  <%
        end if   
       
        set JMail = nothing

      mailinglist.MoveNext()
    loop

       
        conn.close

        %>
  <% ' --> 3)  Herunder indsættes takkesiden.
        Response.redirect "tak.asp"   
        %>
</p>
<%
mailinglist.Close()
%>
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 8 17/09/202611:37 I går 10:39
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »