Avatar billede Slettet bruger
24. september 2006 - 11:06 Der er 8 kommentarer og
1 løsning

Jmail Sende Mail plz hjælp

Hejza Jeg har overhoved ikke forstand på ASP programmering. Men så tænke jeg om der var nogen her inde der kunne hjælpe.
Jeg sidder og forsøger at få det her til at du:

http://www.hjemmesideskolen.dk/scripts/aspmail.asp

Men forstå ikke helt hvordan jeg skal lave det. Jeg har lavet det sådan her:

aspmail.asp

<form id="kontakt" method="post" action="mail_sender.asp"
enctype="multipart/form-data">

<fieldset>
<legend>Husk at udfylde alle felterne</legend>

<label for="t1">Navn:</label>
<input id="t1" type="text" name="navn" /><br />

<label for="t2">Email:</label>
<input id="t2" type="text" name="mail" /><br />

<label for="t3">Emne:</label>
<input id="t3" type="text" name="emne" /><br />

<label for="t4">Besked:</label>
<textarea id="t4" name="besked" rows="10" cols="49"></textarea><br />
<label for="t5">&nbsp;</label>
<input id="t5" type="submit" value="Send" />
<input type="reset" value="Slet" />
</fieldset>

</form>

mail_sender.asp

<%@LANGUAGE="VBSCRIPT" %>
<% session.LCID = 1030 %>
<body>
<%
set msg = Server.CreateOBject( "JMail.Message" )
Set upload = Server.CreateObject( "w3.Upload" )

msg.Logging = true
msg.silent = true

name = upload.Form("navn")
senderEmail = upload.Form("mail")
subject = upload.Form("emne")
recipient = ("navn@navn.dk")
body = upload.Form("besked")
ip = Request.ServerVariables("REMOTE_ADDR")

msg.From = SenderEmail
msg.FromName = Name
msg.AddRecipient Recipient
msg.AddRecipientBCC senderEmail
msg.Subject = Subject

msg.Body = "Meddelelse den " & Date & " klokken " & Time & " fra: " & recipient & vbCrLf & "Navn: " & name & vbCrLf & "Mail: " & senderEmail & vbCrLf & "Emne:" & vbCrLf & subject & vbCrLf & "Tekst: " & vbCrLf & body

if not msg.Send("websmtp.domæne.dk") then
msg.Send("mailrelay.webhotel.dk")
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "<p>Meddelelse afsendt den " & Date & " klokken " & Time & "<br /><br /><b>Fra: </b>" & name & "<br /><br />" & "<b>Mail: </b><a href='mailto:" & senderEmail & "'>" & senderEmail & "</a> <br /><br />" & "<b>Emne: </b>" & subject & "<br /><br /><b>Tekst: </b>" & body & "<br /><br />Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt." & "</p>"
end if
%>
</body>


Det er sikkert forkert. :/

Det her forstå jeg ikke:

Først skal du øverst på din mail_sender.asp - over DTD - indsætte denne kode:

Så vil jeg sprøge om der er nogen der kan samle det for mig. :)

Fordi jeg komme bare ind på den side hvor den skriver det her:

Service Unavailable

Er der nogen der kan hjælpe?? ;)
Avatar billede Slettet bruger
24. september 2006 - 11:26 #1
Det ser ud til at det der Service Unavailable er fordi at Surftown er nede kan slet ikke komme ind på min hjemmeside. :). Men som sagt så vil jeg gerne have hjælpe til at få det samlet for mig. ;=)
Avatar billede Slettet bruger
24. september 2006 - 14:05 #2
Er der ikke nogen der kan hjælpe?? :(
Avatar billede madeindk Nybegynder
25. september 2006 - 12:02 #3
Hej, jeg har nu rettet lidt i dit script. Kan dog ikke rigtig se nogen fejl i det og det er også testet. Har gjort så det kun skal ligge på en side.

Det eneste du skal gøre er at sætte følgende ind på en side du fx. kalder sendmail.asp:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

Session.LCID = 1030

Set Msg = Server.CreateOBject("JMail.Message")
Set upload = Server.CreateObject("w3.Upload")

msg.Logging = true
msg.silent = true

name = upload.Form("navn")
senderEmail = upload.Form("mail")
subject = upload.Form("emne")
recipient = ("navn@navn.dk")
body = upload.Form("besked")
ip = Request.ServerVariables("REMOTE_ADDR")

msg.From = SenderEmail
msg.FromName = Name
msg.AddRecipient Recipient
msg.AddRecipientBCC senderEmail
msg.Subject = Subject

msg.Body = "Meddelelse den " & Date & " klokken " & Time & " fra: " & recipient & vbCrLf & "Navn: " & name & vbCrLf & "Mail: " & senderEmail & vbCrLf & "Emne:" & vbCrLf & subject & vbCrLf & "Tekst: " & vbCrLf & body

If not msg.Send("websmtp.domæne.dk") then
  Response.write "<pre>" & msg.log & "</pre>"
Else
  Response.write "<p>Meddelelse afsendt den " & Date & " klokken " & Time & "<br /><br /><b>Fra: </b>" & name & "<br /><br />" & "<b>Mail: </b><a href='mailto:" & senderEmail & "'>" & senderEmail & "</a> <br /><br />" & "<b>Emne: </b>" & subject & "<br /><br /><b>Tekst: </b>" & body & "<br /><br />Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt." & "</p>"
End if

Else
%>

<form id="kontakt" method="post" action="<%=lCase(Request.ServerVariables("PATH_INFO"))%>" enctype="multipart/form-data">

<fieldset>
<legend>Husk at udfylde alle felterne</legend>

<label for="t1">Navn:</label>
<input id="t1" type="text" name="navn" /><br />

<label for="t2">Email:</label>
<input id="t2" type="text" name="mail" /><br />

<label for="t3">Emne:</label>
<input id="t3" type="text" name="emne" /><br />

<label for="t4">Besked:</label>
<textarea id="t4" name="besked" rows="10" cols="49"></textarea><br />
<label for="t5">&nbsp;</label>
<input id="t5" type="submit" value="Send" />
<input type="reset" value="Slet" />
</fieldset>

</form>

<% End if %>

</body>
</html>
Avatar billede Slettet bruger
25. september 2006 - 13:34 #4
OK. Tak. Men skal have lidt mere hjælp. Så får du dit point. :)

Forstår dig ikke helt fordi når jeg laver en der hedder sendmail.asp og smider det her ind.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

Session.LCID = 1030

Set Msg = Server.CreateOBject("JMail.Message")
Set upload = Server.CreateObject("w3.Upload")

msg.Logging = true
msg.silent = true

name = upload.Form("navn")
senderEmail = upload.Form("mail")
subject = upload.Form("emne")
recipient = ("navn@navn.dk")
body = upload.Form("besked")
ip = Request.ServerVariables("REMOTE_ADDR")

msg.From = SenderEmail
msg.FromName = Name
msg.AddRecipient Recipient
msg.AddRecipientBCC senderEmail
msg.Subject = Subject

msg.Body = "Meddelelse den " & Date & " klokken " & Time & " fra: " & recipient & vbCrLf & "Navn: " & name & vbCrLf & "Mail: " & senderEmail & vbCrLf & "Emne:" & vbCrLf & subject & vbCrLf & "Tekst: " & vbCrLf & body

If not msg.Send("websmtp.domæne.dk") then
  Response.write "<pre>" & msg.log & "</pre>"
Else
  Response.write "<p>Meddelelse afsendt den " & Date & " klokken " & Time & "<br /><br /><b>Fra: </b>" & name & "<br /><br />" & "<b>Mail: </b><a href='mailto:" & senderEmail & "'>" & senderEmail & "</a> <br /><br />" & "<b>Emne: </b>" & subject & "<br /><br /><b>Tekst: </b>" & body & "<br /><br />Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt." & "</p>"
End if

Else
%>

<form id="kontakt" method="post" action="<%=lCase(Request.ServerVariables("PATH_INFO"))%>" enctype="multipart/form-data">

<fieldset>
<legend>Husk at udfylde alle felterne</legend>

<label for="t1">Navn:</label>
<input id="t1" type="text" name="navn" /><br />

<label for="t2">Email:</label>
<input id="t2" type="text" name="mail" /><br />

<label for="t3">Emne:</label>
<input id="t3" type="text" name="emne" /><br />

<label for="t4">Besked:</label>
<textarea id="t4" name="besked" rows="10" cols="49"></textarea><br />
<label for="t5">&nbsp;</label>
<input id="t5" type="submit" value="Send" />
<input type="reset" value="Slet" />
</fieldset>

</form>

<% End if %>

</body>
</html>

Så når jeg trykker på "Send" så får jeg side kan ikke vises. Du kan jo selv prøve og tjekke hvad den siger her er et link http://www.mmppp.dk/Backg/sendmail.asp

:/

Hvis du kan lave det og det virker ved dig. Kan du så ikke uploade det til et sted så jeg kan hendet det? :)

Fordi jeg er nok for dum til at forstå det her. :) he he he.
Avatar billede Slettet bruger
26. september 2006 - 16:37 #5
Kan det have noget at gøre med det her:

If not msg.Send("websmtp.domæne.dk") then


recipient = ("navn@navn.dk")

Nu har jeg prøvet at skrive min mail ind her

recipient = ("madsls@hotmail.com")

og her

If not msg.Send("mx1.hotmail.com") then

Men ved ikke om jeg vælger noget forkert. Fordi jeg får ingen mail og får siden kan ikke vises.

Men ved ikke vilke jeg skal vælge af dem her:

HOTMAIL hotmail.co.uk
hotmail mx2.hotmail.com
Hotmail.com mx1.hotmail.com
Hotmail.com mx1.hotmail.com
Hotmail.com mx2.hotmail.com
HotPOP.com smtp.hotpop.com


Håber jeg snart får svar ;)
Avatar billede madeindk Nybegynder
26. september 2006 - 17:18 #6
Hej Mads. Hvilken udbyder bruger du, altså hvor ligger din hjemmeside henne? :-)
Avatar billede Slettet bruger
27. september 2006 - 18:15 #7
jeg har min hjemmeside på http://www.surftown.dk/ De skulle godt kunne tage det. :/
Avatar billede hitman3k Nybegynder
13. august 2007 - 23:33 #8
HEj vi du det til at virke står også med problemmer med surftown..
Avatar billede hitman3k Nybegynder
22. juli 2009 - 20:00 #9
hmmm ved ikke om det kom til at virker
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