Send mail via Jmail

spam?

Nej da...

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

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

kan du uddybe lidt?

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

Hvad er formålet med det?

Bare noget jeg skal bruge...

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

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!!

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

Husk at initialisere i til 0

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!!

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 ??

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> 

For-lykken er smartere her...

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

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.

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!!

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
%>

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...