CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

mailbox Nybegynder

03. april 2000 - 16:15 Der er 20 kommentarer

Send mail via Jmail

jeg skal bruge et script som kan sende mails via Jmail... Men den skal ikke bare sende en mail til den indtastede email adr. men 20 mails til den samme email adr...

Jeg vil give alle mine point for det (300Point)

Synes godt om

00-behave Nybegynder

03. april 2000 - 16:30 #1

spam?

Synes godt om

mailbox Nybegynder

03. april 2000 - 16:32 #2

Nej da...

Synes godt om

mailbox Nybegynder

03. april 2000 - 16:33 #3

Så ku jeg ligeså godt downloade en email bomber fra hackersclub.com/km/files ikk? :)

Synes godt om

00-behave Nybegynder

03. april 2000 - 16:34 #4

er det den samme mail, der skal sende 20 gange til den samme adresse.. eller..

kan du uddybe lidt?

Synes godt om

mailbox Nybegynder

03. april 2000 - 16:37 #5

Ja min samme mail... Sende 10 eller 20 kopier af samme mail...

Synes godt om

s Nybegynder

03. april 2000 - 16:38 #6

Hvad er formålet med det?

Synes godt om

mailbox Nybegynder

03. april 2000 - 16:42 #7

Bare noget jeg skal bruge...

Synes godt om

dannymoeller Nybegynder

03. april 2000 - 16:42 #8

hvorfor sende 20 ens mails.
Er det til den samme modtager??

Synes godt om

jackpower Nybegynder

03. april 2000 - 16:43 #9

mailbox>>

Den her sender den samme mail 20 gange
Måske ikke den smarteste måde at lave det på, men det virker.

Page one - MailForm.asp
<html>
<head>
<title>emailform</title>
</head>
<body>
<form method="post" action="SendMail.asp">
Complete this form and click the submit-button. We will answer your
questions as soon as possible.
<br><br>
Your name <br>
<input type="text" size="25" name="name"><br>

Your email<br>
<input type="text" size="25" name="email"><br>

Recipient email <br>
<input type="text" size="25" name="recipient"><br>

State your business <br>
<select name="subject" size="1">
<option value="help">help
<option value="tips">tips
<option value="other">other
</select>
<br>

Enter your question <br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<input type="submit" value=" Submit ">
</form>
</body>
</html>

Page two - SendMail.asp

<html>

<head>
<title>w3 JMail rocks</title>
</head>

<body>
<p align="center"><font face="Arial, geneva" size="5"> Email Form</font></p>
<%
Name = Request.Form("name")
SenderEmail = Request.Form("email")
Subject = "Regarding " & Request.Form("subject")
Recipient = Request.Form("recipient")
Body = Request.Form("body")

Set JMail = Server.CreateObject("JMail.SMTPMail")

' Below you should enter your own SMTP-server
JMail.ServerAddress = "xxx.zzz.yyy"

JMail.Sender = Senderemail
JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute
JMail.Execute

%>
<center>
<font face="Arial, geneva" size="3">
Your email has been sent to <%= Recipient %><br>
</font>

</center>
</body>
</html>

Mvh
Jack!!

Synes godt om

dannymoeller Nybegynder

03. april 2000 - 16:46 #10

hvorfor ikke bare lave en løkke der sender den.
while i< 20
JMAIL.execute
i= i+1
wend

Synes godt om

dannymoeller Nybegynder

03. april 2000 - 16:46 #11

Husk at initialisere i til 0

Synes godt om

jackpower Nybegynder

03. april 2000 - 16:49 #12

Ja okay det er også en måde at gøre det på, som jeg skrev var det nok ikke den smarteste måde at gøre det på (er stadig selv MEGET grøn hvad asp angår - men de siger øvelse gør mester, så jeg håber stadig ;o).....)

Mvh
Jack!!

Synes godt om

mailbox Nybegynder

03. april 2000 - 16:52 #13

Hvad skal jeg gøre med det der while i ???? Kan en eller anden ikke ændre det ovenover så det virker med den anden fuktion ??

Synes godt om

s Nybegynder

03. april 2000 - 16:57 #14

Så skidt...

Her:

<html>
<head>
<title>emailform</title>
</head>
<body>
<form method="post" action="SendMail.asp">
Complete this form and click the submit-button. We will answer your
questions as soon as possible.
<br><br>
Your name <br>
<input type="text" size="25" name="name"><br>

Your email<br>
<input type="text" size="25" name="email"><br>

Recipient email <br>
<input type="text" size="25" name="recipient"><br>

State your business <br>
<select name="subject" size="1">
<option value="help">help
<option value="tips">tips
<option value="other">other
</select>
<br>

Enter your question <br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<input type="submit" value=" Submit ">
</form>
</body>
</html>

Page two - SendMail.asp

<html>

<head>
<title>w3 JMail rocks</title>
</head>

<body>
<p align="center"><font face="Arial, geneva" size="5"> Email Form</font></p>
<%
Name = Request.Form("name")
SenderEmail = Request.Form("email")
Subject = "Regarding " & Request.Form("subject")
Recipient = Request.Form("recipient")
Body = Request.Form("body")

Set JMail = Server.CreateObject("JMail.SMTPMail")

' Below you should enter your own SMTP-server
JMail.ServerAddress = "xxx.zzz.yyy"

JMail.Sender = Senderemail
JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

for i = 0 to 20
JMail.Execute
next

%>
<center>
<font face="Arial, geneva" size="3">
Your email has been sent to <%= Recipient %><br>
</font>

</center>
</body>
</html>

Synes godt om

s Nybegynder

03. april 2000 - 16:58 #15

For-lykken er smartere her...

Synes godt om

mailbox Nybegynder

03. april 2000 - 18:37 #16

Hvordan får jeg den til at sende til flere mails på en gang ??

Synes godt om

mailbox Nybegynder

03. april 2000 - 18:51 #17

Hvordan gør jeg så'en at den ikke går time out ?? Jeg får denne fejl..

error 'ASP 0113'
Script timed out

/test/SendMail.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeOut or by changing the value in the IIS administration tools.

Synes godt om

lp Nybegynder

03. april 2000 - 20:20 #18

Det kunne se ud som om der er noget lusket ved scriptet, men du kan altid prøve at indsætte dette øverst i den 2 side som sender mails'ne:

-----
Server.ScriptTimeout=4000
------
Det giver en halv times tid mere før den laver timeout.

Håber det hjælper dig til at spamme :-)))) thihi!!

Synes godt om

pfm Nybegynder

04. april 2000 - 09:23 #19

Denne Jmail function sender i HTML format. Det kan du bare lave om hvis du vil have plain text!
Jeg har selv en tilsvarende Jmail function som en include fil hvis jeg skal bruge den flere steder - Jeg sender dog ikke flere mails til den samme addresse ! Har lidt svært ved at se funktionen!
<%
Sub SendMailToUs(fromWho, toWho, Subject, Body)
Dim myMail
Set myMail=Server.CreateObject("JMail.SMTPMail")
myMail.ServerAddress = "mail-relay.uni2.dk"
myMail.Sender = fromWho
myMail.SenderName="www.Server.dk"
myMail.Subject=Subject
myMail.AddRecipient toWho
myMail.Body=HTMLbody
myMail.ContentType = "text/html"
myMail.Priority = 1
myMail.AddHeader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")
myMail.Execute
set myMail=Nothing
End Sub
Subject = "Regarding " & Request.Form("subject")
Recipient = Request.Form("recipient")
Body = Request.Form("body")
fromWho=Request.Form("email")
toWho=Request.Form("recipient")

HTMLbody="<p><font face='Arial' size='2'>Dette er overskriften på en mail<br></p>"
HTMLbody=HTMLbody & Request.Form("body") &"<p><a href=http://www.dinserver.dk>http://www.dinserver.dk</a></p><br></p></font>"
If toWho<>"" then
i=0
do while i<20
i=i+1
SendMailToUs fromWho, toWho, subject, HTMLbody
loop
end if
%>

Synes godt om

pfm Nybegynder

04. april 2000 - 09:27 #20

sorry,
Funktions kaldet bør laves om til
SendMailToUs fromWho, toWho, Subject, HTMLbody

-- altså subject skal starte med stort (Subject)

og Recipient=Request.Form("recipient") er ikke nødvendig da jeg bruger toWho istedet...

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

10:30

Nørgaard; Opskriften på at få store projekter til at lykkes...lad være!

18/04

AI-lab #2: Sådan får du fuld udnyttelse af Microsoft Office med nem programmering - og lær om super-prompts

18/04

Bliv it-driftsdirektør hos Metro Service eller bidrag til PET’s offensive operatinoer: Her er 10 ledige stillinger, som du kan søge i påsken

18/04

På uventet eventyr i det ydre rum: Ved en fejl bliver en dreng jordklodens repræsentant

17/04

Hvordan skaber vi en mere menneskevenlig digital fremtid? Få nogle bud her

17/04

Kritisk CVE-databasen om sikkerhed reddet i allersidste øjeblik - ny bevilling godkendt

16/04

Netcompany-stifterne André Rogaczewski og Claus Bo Jørgensen skovler penge ind: Har tjent næsten 600 millioner kroner på et år

16/04

Prøvekørt: Der er mange gode grunde til at kalde BMW i5 for den bedste el-stationcar til dato

16/04

Sådan modererer Mads og 20 andre danskere alt indhold på Metas danske platforme fra et center i Barcelona

16/04

Jeg købte tømmermands-pizza for alle mine bitcoins og gik glip af en formue: Nu overvejer jeg at gå all-in igen

16/04

Ny fond haste-etableret: Vil forsøge at redde sårbarhedsdatabasen CVE fra nedlukning

Vis flere artikler

IT-JOB

Netcompany A/S

Studentermedhjælpere til Consulting

Scan Global Logistics

D365 Finance Developer - Business-Oriented with Solution Design Expertise

Banedanmark

Specialist i Signalsystemer – ERTMS hos Banedanmark

Danoffice IT

Compliance Specialist (Barselsvikariat)

Sparekassen Sjælland-Fyn A/S

Vi søger en M365 specialist til vores team – er det dig?

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 16:53	Mac book pro fra 2019-2023 Af BRJ i Mac
I går 16:25	Vedr. Mozilla Thunderbird email program Af Arne-Beck Christensen i E-mail programmer
I går 16:18	"Jesus Chirst Superstar" - Original version på dansk. Af Ikke-ekspert i Fri debat
I går 12:55	Fjern løsesymbol fra tænd/sluk Af arnel i Skærme
I går 12:06	Gmail hvor mails ikke synkronisere Af made18 i E-mail programmer