Avatar billede fastpoint Nybegynder
22. februar 2002 - 16:56 Der er 10 kommentarer og
1 løsning

Asp Mail

Bruger/brugeremail

Davs.. kan en eller anden lave et script som kan sende en email ud til alle mine brugerer (ikke at jeg har nogen i nu:)) ??

Man finder email adressen til hver bruger i databasen under "bruger" og i feltet brugerEmail

Jeg har jMail installeret da jeg går ud fra det skal bruges:)
Avatar billede locturian Nybegynder
22. februar 2002 - 22:35 #1
Har vist nogen du kan bruge...

Har kan du tilføje brugere: http://www.locturian.dk/mail/mailingliste.asp
Her sender du til alle på listen: http://www.locturian.dk/mail/write_send.asp

Du kan bare tilpasse det, så den passer til din database.....

/Loc out
Avatar billede fastpoint Nybegynder
23. februar 2002 - 17:07 #2
send det til shadmuda@privat.dk så vil jeg prøve:)
Avatar billede fastpoint Nybegynder
23. februar 2002 - 18:06 #3
den siger at den har sendt, men jeg modtager intet... sådan ser scriptet ud


<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\community.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access

Driver (*.mdb)};"
    SQL = "SELECT * from bruger"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "test"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "bilal@privat.dk", send("brugerEmail"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
end if



response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail sent til: "& send("brugeremail")

&"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
else %>
<CENTER>
<TABLE BORDER="0">
<form action="write_send.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
  <TR>
    <TD ALIGN="LEFT">
    <FONT FACE="Arial" SIZE="2" COLOR="#000000"><STRONG>
    Overskrift:&nbsp;
    </STRONG></FONT>
    </TD>
    <TD ALIGN="LEFT">
    <INPUT TYPE="TEXT" NAME="header" SIZE="50">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="RIGHT" VALIGN="TOP">
    <FONT FACE="Arial" SIZE="2" COLOR="#000000"><STRONG>
    Tekst:&nbsp;
    </STRONG></FONT>
    </TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">&nbsp;
   
    </TD>
    <TD ALIGN="RIGHT">
        <input type="submit" value="-- SEND --">
    </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>


i min database under "bruger" er der et felt som hedder "brugerEmail" som har brugerens email

kan du se hvad der er galdt?
Avatar billede locturian Nybegynder
23. februar 2002 - 18:21 #4
Kig ¨på databasen jeg sendte med, og se hvordan den er opbygget....
Avatar billede fastpoint Nybegynder
23. februar 2002 - 18:25 #5
jeg ved godt hvad der er galdt tror jeg..

SQL = "SELECT * from bruger"

den skal nemlig kigge i bruger og i feltet Brugeremail ved du hvordan retter det?

jeg prøvede

SQL = "SELECT * from bruger Where 'brugernavn'"

men det var forkert
Avatar billede locturian Nybegynder
23. februar 2002 - 18:27 #6
fjern ''
Avatar billede fastpoint Nybegynder
23. februar 2002 - 18:33 #7
det virkede slet ikke..
Avatar billede locturian Nybegynder
23. februar 2002 - 18:34 #8
SQL = "SELECT * from bruger Where brugernavn"

Skulle meget gerne virke.... - Ellers er det ikke der den failer
Avatar billede fastpoint Nybegynder
23. februar 2002 - 18:38 #9
så må det være en af de der mail felter men jeg har prøvet alle muligheder.. skrevet brugermail email på skift i hver men den virker stadigvæk ikke.
Avatar billede fastpoint Nybegynder
23. februar 2002 - 19:21 #10
jeg har ikke fået det til at virke, men ville lige sige at det rigtige er

SQL = "SELECT brugerEmail FROM brugernavn"

:-)
Avatar billede fastpoint Nybegynder
11. august 2002 - 16:38 #11
case closed... jeg fik det aldrig lavet og jeg har ikke brug for det mere
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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.

Du kan også logge ind via nedenstående tjenester