Søg
Avatar billede 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)
Avatar billede 00-behave Nybegynder
03. april 2000 - 16:30 #1
spam?
Avatar billede mailbox Nybegynder
03. april 2000 - 16:32 #2
Nej da...
Avatar billede mailbox Nybegynder
03. april 2000 - 16:33 #3
Så ku jeg ligeså godt downloade en email bomber fra hackersclub.com/km/files ikk? :)

Avatar billede 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?
Avatar billede mailbox Nybegynder
03. april 2000 - 16:37 #5
Ja min samme mail... Sende 10 eller 20 kopier af samme mail...
Avatar billede s Nybegynder
03. april 2000 - 16:38 #6
Hvad er formålet med det?
Avatar billede mailbox Nybegynder
03. april 2000 - 16:42 #7
Bare noget jeg skal bruge...
Avatar billede dannymoeller Nybegynder
03. april 2000 - 16:42 #8
hvorfor sende 20 ens mails.
Er det til den samme modtager??
Avatar billede 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!!
Avatar billede 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
Avatar billede dannymoeller Nybegynder
03. april 2000 - 16:46 #11
Husk at initialisere i til 0
Avatar billede 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!!
Avatar billede 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 ??
Avatar billede 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> 
Avatar billede s Nybegynder
03. april 2000 - 16:58 #15
For-lykken er smartere her...
Avatar billede mailbox Nybegynder
03. april 2000 - 18:37 #16
Hvordan får jeg den til at sende til flere mails på en gang ??
Avatar billede 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.
Avatar billede 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!!
Avatar billede 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
%>
Avatar billede 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...
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 22:42 Strømforsyning til Sony TV Af pvn i Fjernsyn & projektorer
I går 11:20 Fiberby i ny lejlighed - hvordan? Af Josvto i Routere & Switches
I går 10:30 SEO Optimering Af Flowcare i Webhotel
03/1107:57 Pludselig begyndte min computer at larme Af lenej i PC
02/1117:28 Tekst format i Kodevinduet Af per2edb i Access
White papers
Flere white papers »