Notifikationer

Markér alle som læst Log ud

remo27 Nybegynder

13. september 2004 - 01:00 Der er 15 kommentarer og
1 løsning

leder efter simpel mailliste med Jmail

Jeg leder efter et simpelt Mailliste med Jmail.

Man skal kunne oprette en person og email.
Skrive et nyhedsbrev.
Personen som modtager skal kunne afmelde sig via sin Mail.

HVor skal jeg lede ??

Synes godt om

eagleeye Praktikant

13. september 2004 - 08:49 #1

Her er et:
http://www.webwizguide.com/asp/sample_scripts/mailing_list_script.asp

Men eller kan du kigge denne liste igenne om der er noget der passer til det du har brug for:
http://www.hotscripts.com/ASP/Scripts_and_Components/Mailing_List_Managers/index.html

Synes godt om

remo27 Nybegynder

13. september 2004 - 20:20 #2

Eagleeye>> Jeghar fundet et lille mail script. men jeg er stødt ind i dette problem, når jeg vil sende en "besked" til dem i min mail db kommer denne fejl

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver]Der opstod en generel fejl. Registreringsnøglen Temporary (volatile) Jet DSN for process 0xd90 Thread 0xf34 DBC 0x1664ac4 Jet kan ikke åbnes.
/web2004/wml/admin/write_send.asp, line 17

Write_send.asp linie 17: conn.Open "DBQ="&(Server.MapPath(".")) &"..\wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"

Synes godt om

eagleeye Praktikant

13. september 2004 - 20:23 #3

Prøv at rette den til dette:

conn.Open "DBQ="&Server.MapPath("wml.mdb") &"; Driver={Microsoft Access Driver (*.mdb)};"

Måske skal denne rettes lidt til: Server.MapPath("wml.mdb")
alt efter hvor database filen i forhold til asp filen.

Synes godt om

remo27 Nybegynder

13. september 2004 - 20:43 #4

drop et svar, det funger nu :O)

Synes godt om

eagleeye Praktikant

13. september 2004 - 20:46 #5

Ok ;)

Synes godt om

remo27 Nybegynder

13. september 2004 - 20:47 #6

tak for l din hjælp ;)

Synes godt om

remo27 Nybegynder

13. september 2004 - 20:48 #7

tak for al din hjælp ;)

Synes godt om

remo27 Nybegynder

13. september 2004 - 20:51 #8

Den sender ikke til alle i min db, kan du lige tjekke

<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("../wml.mdb") &"; Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * from mailingliste"
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 = "rmo@pc.dk"
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 "afsenders emailadresse", send("email"), 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 er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop

conn.close

response.redirect("../default.asp?emne=admin&emne2=nybrev")

else
%>
<CENTER>
<TABLE BORDER="0">
<form action="admin/write_send.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
<TR>

<TD ALIGN="LEFT" class="nyhed">Overskrift: </TD>
<TD ALIGN="LEFT">
<INPUT TYPE="TEXT" NAME="header" SIZE="50">
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst: </TD>
<TD ALIGN="LEFT">
<TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN="LEFT">
 
</TD>
<TD ALIGN="RIGHT"> <input type="submit" value="-- SEND --"> </TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>

Synes godt om

remo27 Nybegynder

13. september 2004 - 20:51 #9

det er kun mig der modtager

Synes godt om

eagleeye Praktikant

13. september 2004 - 20:57 #10

Du kan prøve at rette dette:

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 = "rmo@pc.dk"
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

Til dette:

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 = "rmo@pc.dk"
JMail.Subject = request("header")
JMail.AddRecipient send("email")
JMail.Body = request("tekst")

' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 3

JMail.Logging = True
JMail.Silent = True
' Send it...
'JMail.Execute
If Not JMail.Execute Then
Response.Write "ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbCrLf
Response.Write "ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbCrLf
Response.Write "LOG: <pre>" & JMail.Log & "</pre>" & vbCrLf
End if

set JMail = nothing
elseif mailertype = 2 then

Samt prøv at udkommentere denne linje:
response.redirect("../default.asp?emne=admin&emne2=nybrev")

sådan her, så kan du se om den har lavet en fejl da den sender filen:
'response.redirect("../default.asp?emne=admin&emne2=nybrev")

Synes godt om

remo27 Nybegynder

13. september 2004 - 21:04 #11

jeg får denne besked..

Betyder det at der er fejl ??

E-mail er sendt til : rmo@pc.dk
ERROR MESSAGE: The message was undeliverable. All servers failed to receive the message
ERROR SOURCE: SMTPConnect()
LOG:
The message was undeliverable. All servers failed to receive the message
.execute()
{
Trying server mail:smtp.mail.dk
<- 220 pfepb.post.tele.dk ESMTP
-> EHLO Web
<- 250-pfepb.post.tele.dk
250-PIPELINING
250-SIZE 10000000
250-VRFY
250-ETRN
250 8BITMIME
-> MAIL FROM:
<- 250 Ok
-> RCPT TO:pia@linedanc.dk
<- 550 : Recipient address rejected: Domain not found
-> DATA
<- 503 No recipient(s).
Error: 503 No recipient(s).
.execute()
{
Trying server mail:smtp.mail.dk
<- 220 pfepb.post.tele.dk ESMTP
-> EHLO Web
<- 250-pfepb.post.tele.dk
250-PIPELINING
250-SIZE 10000000
250-VRFY
250-ETRN
250 8BITMIME
-> MAIL FROM:
<- 250 Ok
-> RCPT TO:pia@linedanc.dk
<- 550 : Recipient address rejected: Domain not found
-> DATA
<- 503 No recipient(s).
Error: 503 No recipient(s).

1 of 1 servers failed
}

E-mail er sendt til : pia@linedanc.dk
E-mail er sendt til : ebp@privat.dk

Synes godt om

eagleeye Praktikant

13. september 2004 - 21:07 #12

den siger den ikke kan finde dette domæne: linedanc.dk

Synes godt om

eagleeye Praktikant

13. september 2004 - 21:10 #13

Er du sikker på det domænet linedanc.dk findes ?
Skal der ikke være et e i linedance.dk ?

Synes godt om

remo27 Nybegynder

13. september 2004 - 21:12 #14

adressen var linedance.dk så jeg har rette email adrssen, nu kommer den med en side
hvor den viser de 3 mails den sender til

Synes godt om

eagleeye Praktikant

13. september 2004 - 21:14 #15

Ja så prøv at rette:

'response.redirect("../default.asp?emne=admin&emne2=nybrev")

Tilbage igen så den redirecter til default.asp siden:

response.redirect("../default.asp?emne=admin&emne2=nybrev")

Synes godt om

remo27 Nybegynder

13. september 2004 - 21:14 #16

okay

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS