Avatar billede boleole Nybegynder
19. januar 2001 - 07:16 Der er 11 kommentarer og
1 løsning

ASP e-mail hos World Online

Er der nogen der ved, om jeg kan sende e-mails fra en WOL (World Online) server - udover at bruge FormMail?
Avatar billede bjarke-b Nybegynder
19. januar 2001 - 07:21 #1
Ja hvis du har adgang til ASP kan du jo bruge det, ellers så prøv en gratis formmail fra www.bekhoj.dk/Service.asp
Avatar billede bjarke-b Nybegynder
19. januar 2001 - 07:22 #2
Avatar billede tpiil Nybegynder
19. januar 2001 - 07:22 #3
Nej, det ved jeg ikke, www.funz.dk har en god formmail :)
Avatar billede boleole Nybegynder
19. januar 2001 - 07:26 #4
Jeg har adgang til ASP:) Hvordan saetter jeg det saa op? Hvad skal jeg bruge?
Avatar billede wisen Nybegynder
19. januar 2001 - 07:53 #5
For at kunne sende e-mail vha. ASP, skal serveren have installeret en komponent til at køre det. F.eks. formmail eller JMail. Hvis det ikke er installeret kan det ikke lade sig gøre, og det er jo ikke sikkert at WOL vil installere en ny komponent fordi du ikke \"gider\" at bruge den de har...
Avatar billede kasseper Nybegynder
19. januar 2001 - 09:28 #6
Mon ikke at WOL har en SMTP service kørende, det skulle da for fanden være mærkeligt andet.....
Ring og spørg...
Hvis de har, så kan du bruge CDONTS.newmail, den er nem og fungere helt fint....
Avatar billede kasseper Nybegynder
19. januar 2001 - 09:31 #7
Her er en nem og ligetil vejledning og forklaring af CDO til NTS.....

http://msdn.microsoft.com/library/partbook/asp20/usingcdofornts.htm
Avatar billede scope Nybegynder
19. januar 2001 - 11:04 #8
<% Option Explicit %>
<html>

<head>
<link rel=\"stylesheet\" type=\"text/css\" href=\"style.css\">
<title></title>
</head>

<body bgcolor=\"#ffffff\">
<%
Dim strName, strEmail, strQuery
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strQuery = Trim(Request.Form(\"ClientQry\"))

If (strName <> \"\" And strEmail <> \"\" And strQuery <> \"\") Then
    Dim objMail, aRecipients
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
   
    objMail.From = \"x@ditdomæne.dk\"
    objMail.To = strEmail
    objMail.Subject = \"Your Inquiry \" & strName
   
    aRecipients = Array(\"x@ditdomæne.dk\", _
        \"(evt)x@ditandetdomæne.dk\")
   
    objMail.BCC =  Join(aRecipients, \";\")
    objMail.Body = strQuery
    objMail.Send
   
    Response.Write \"Tak for Deres henvendelse. Jeg vil besvare Dem hurtigst muligt.\"
   
    Set objMail = Nothing
Else
%>
<div ID=\"kontakt\">

<form ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=\"POST\">
  <table BORDER=\"0\">
    <tr>
      <td>Navn</td>
      <td></td>
      <td></td>
      <td><input TYPE=\"TEXT\" NAME=\"ClientName\" VALUE SIZE=\"50\"></td>
    </tr>
    <tr>
      <td>Email adresse</td>
      <td></td>
      <td></td>
      <td><input TYPE=\"TEXT\" NAME=\"ClientEmail\" VALUE SIZE=\"50\"></td>
    </tr>
    <tr>
      <td valign=\"top\">Kommentar</td>
      <td></td>
      <td></td>
      <td><textarea NAME=\"ClientQry\" COLS=\"50\" ROWS=\"10\"></textarea></td>
    </tr>
    <tr>
      <td></td>
      <td></td>
      <td></td>
      <td><input TYPE=\"SUBMIT\" VALUE=\"Send til elevrådet\"></td>
    </tr>
  </table>
</form>
</div><% End If %>

</body>
</html>
Avatar billede scope Nybegynder
19. januar 2001 - 11:04 #9
Dette kan du jo prøve.. Den er utroligt god og virker upåklageligt....
Avatar billede tpiil Nybegynder
19. januar 2001 - 16:00 #10
med komponentet JMail som kan hentes fr www.dimac.net kan du afsende email med denne kode:
(mange udbydere har Jmail installeret)

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<form METHOD=\"post\" ACTION=\"?mode=send\">
Dit Navn: <BR>
<input type=\"text\" name=\"fra_navn\"><br><br>
Din e-mail: <BR>
<input type=\"text\" name=\"fra_mail\"><br><br>
Emne: <BR>
<input type=\"text\" name=\"emne\" size=\"35\"><br><br>
Spørgsmål/kommanter: <BR>
<textarea cols=40 rows=10 name=\"besked\"></textarea><br><br>
<INPUT TYPE=\"submit\" VALUE=\"Send E-mail\"></form>
<% end if %>
<% if mode = \"send\" then %>
<%
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.server.dk\"
JMail.Sender = Request.Form(\"fra_mail\")
JMail.Sendername = Request.Form(\"fra_navn\")
JMail.Subject = Request.Form(\"emne\")
JMail.AddRecipient \"til@email.dk\"
JMail.Body = Request.Form(\"besked\")
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Silent = True
If JMail.Execute then
%>
<center><font face=tahoma size=3>Tak for din Mail.<font></center>
<% Else %>
<center><font face=tahoma size=3>Mailen er desværre ikke afsendt prøv igen.<font></center>
<% End If %>
<% end if %>
Avatar billede boleole Nybegynder
20. januar 2001 - 06:25 #11
Mange tak for alle jeres forslag:)

Jeg kan godt finde ud af at saette en e-mailformular op. Jeg er mere interesseret i, hvilke muligheder jeg har med WOL...

Er der ingen der har har WOL eller bruger de bare formmail???
Avatar billede boleole Nybegynder
17. februar 2001 - 01:21 #12
Jeg havde lavet en fejl! Undskyld mange gange for at spilde jeres tid:(
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
Kurser inden for grundlæggende programmering

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