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