Notifikationer

Markér alle som læst Log ud

mvk Nybegynder

13. juni 2003 - 15:37 Der er 23 kommentarer og
1 løsning

Hvordan sender man en mail ud fra en formular

Hvordan giver jeg brugeren mulighed for at sende information fra sitet til en email de selv definerer?. Eksempel:
http://www.krisjak.dk/new/kunstkort_send.asp?IDkunstkort=1

Den skal sende informationerne til ModtagerEmail.
Overskrift
Tekst
ModtagerNavn
ModtagerEmail
AfsenderNavn
AfsenderEmail
BilledeNavn
Billede

Kan jeg også definere det subject der kommer i emailen ?

Synes godt om

brokkehoved Nybegynder

13. juni 2003 - 15:52 #1

Hejsa.

1: Du kan se meget mere på mit eget tidligere spørgsmål, på: http://www.eksperten.dk/spm/361988

2: Vedhæftning af filer står der meget mere om hos JMAils´s eget website: www.dimac.net

Synes godt om

mvk Nybegynder

13. juni 2003 - 15:55 #2

ja ... :)
jeg har nemlig ingen ide om hvilken kode der skal tilknyttes "Send" knappen

Synes godt om

brokkehoved Nybegynder

13. juni 2003 - 16:02 #3

Alting står derinde, mvk. Det kræver selvfølgelig, at du læser det... :-)

Og lige en ting mere: Det kræver selvfølgelig også at dit webhotel understøtter JMail. Det skal du nok lige undersøge... ellers må vi finde en anden løsning til dig. :-)

Synes godt om

mvk Nybegynder

13. juni 2003 - 16:06 #4

det kører hos Azero - så det må det gøre

Synes godt om

brokkehoved Nybegynder

13. juni 2003 - 16:15 #5

Ok, så er det bare om at læse hvad der står (http://www.eksperten.dk/spm/361988), og komme i gang med at uploade og teste med din egen e-mail. :-)

Synes godt om

mvk Nybegynder

19. juni 2003 - 09:29 #6

damn - undskyld min senere svartid
jeg har ligget mega syg, er ikke på toppen, men nu skal der arbejdes

skriver lige når jeg har tilpasset koden.

Synes godt om

jonbdk Nybegynder

19. juni 2003 - 09:33 #7

Jeg ved det er en lidt stor post. Denne kode giver en side, som bruger jmail og indeholder både formen og afsendelsesscriptet:

<BODY>

<%

IF request.queryString("page") = "send" THEN
set msg = Server.CreateObject("Jmail.Message")
msg.Logging = true
msg.From = Request.Form("sender")
msg.AddRecipient Request.Form("recipient")
' msg.AddRecipientBCC "enAndenAdresse@noget.dk"
msg.Subject = Request.Form("sub") &" fra "& Request.Form("name")
msg.Body = Request.Form("body")
' msg.AppendText "Her kommer en linie tekst"
' msg.AppendText "Og her kommer noget mere tekst"
msg.MailDomain = "MAILSERVER"
msg.MailServerPassWord = "MAIL_USER_PASSWORD"
msg.MailServerUserName = "MAIL_USER"
msg.Send ("MAILSERVER")
IF err<>0 THEN
Response.Write("Error: &err.description")
End IF

%>

<p>Tak for din email <%=Request.Form("navn")%>,<br>
<a HREF="start.asp?page=sendmail">Tilbage</A>
</p>
<% ELSE %>
<FORM method="post" name="send" action="sendmail.asp?page=send">
<Table border="0">
<tr><td>Indtast din email adresse:</td></tr>
<tr><td><input type="text" name="sender" size="30"></td><tr>
<tr><td>Indtast dit navn:</td></tr>
<tr><td><input type="text" name="name" size="30"></td><tr>
<tr><td>Indtast modtagerens emailadresse</td></tr>
<tr><td><input type="text" name="recipient" size="30"></td><tr>
<tr><td>Indtast emnet</td></tr>
<tr><td><input type="text" name="sub" size="30"></td><tr>
<tr><td>Indtast din besked</td></tr>
<tr><td><textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea></td></tr>
<tr><td><input type="Submit" value="send"></td></tr>
</FORM>

<% End IF %>

</BODY>
</HTML>

Synes godt om

mvk Nybegynder

19. juni 2003 - 10:06 #8

ser dette rigtigt ud:

<%
mode=request("mode")
if mode="send" then

ModtagerEmail = Request.Form("ModtagerEmail")
AfsenderNavn = Request.Form("AfsenderNavn")
MailSubject = "Kunstkort fra Krisjak"

Message = "Overskrift: "& Request.Form("Overskrift") &"<br>Til: "& Request.Form("ModtagerNavn") &"<br>E-mail: "& Request.Form("ModtagerEmail") &"<br><br>Fra: "& Request.Form("AfsenderNavn") &"<br>Email: "& Request.Form("AfsenderEmail") &"<br>Tekst: "& Request.Form("Tekst")

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "websmtp.krisjak.dk"
JMail.Priority = 3
JMail.Sender = AfsenderNavn
JMail.Subject = MailSubject
JMail.Body = Message
JMail.AddRecipient = ModtagerEmail
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
Set JMail = nothing

strSend = "<center>Kunstkortet er nu afsendt.</center>"
End If
%>

Synes godt om

mvk Nybegynder

19. juni 2003 - 10:43 #9

hvordan skal formens kommando struktureres:
<form action="kunstkort_sent.asp?mode=send" name="kunstkortForm" method="post">
har jeg skrevet, men det virker ikke
<form action="kunstkort_sent.asp" mode="send" name="kunstkortForm" method="post">
modtaget jeg heller ikke noget af

Synes godt om

jonbdk Nybegynder

19. juni 2003 - 10:49 #10

Jeg er ikke sikker, men du sender "Mode" med i urlen, skal du så ikke bruge:
mode = request.queryString("mode") istedet for mode=request("mode")

Synes godt om

mvk Nybegynder

19. juni 2003 - 12:00 #11

jeg bruger <form action="kunstkort_sent.asp" mode="send" name="kunstkortForm" method="post"> nu. så behøver jeg ikke ændre den vel ?

men jeg modtager stadig intet

Synes godt om

jonbdk Nybegynder

19. juni 2003 - 12:04 #12

Jeg kan ikke se, at du overfører mode på den sidste måde - hvad er der i vejen med at bruge
<form action="kunstkort_sent.asp?mode=send" name="kunstkortForm" method="post">
og
i scriptet
mode = request.queryString("mode")
if mode="send" then
...
END IF

Synes godt om

mvk Nybegynder

19. juni 2003 - 12:08 #13

ikke noget .- så gør jeg det bare på den måde

Synes godt om

mvk Nybegynder

19. juni 2003 - 12:10 #14

prøv og check det øverste link og følg det - jeg får fejl.
HTTP 500 - Internal server error

Synes godt om

jonbdk Nybegynder

19. juni 2003 - 12:29 #15

ja, så er der en fejl i scriptet. :(
Jeg ville nok prøve at kommentere noget ud - hvis du ikke lige finder fejlen ville jeg kommentere alt ud, og så sætte tingene til igen - en af gangen

Synes godt om

brokkehoved Nybegynder

19. juni 2003 - 17:14 #16

Jeg vil igen prøve at gøre opmærksom på, at mit script virker 100% korrekt.
Se meget mere på:
http://www.eksperten.dk/spm/361988

Så behøves I ikke bruge mere tid på ærgelige upload og test og at skrive herind igen. :-)
Jeg selv brugte ca. 1 hel dag på det samme, og ENDELIG fandt jeg ud af at få det til at virke.

Så derfor: Hvorfor kopierer I ikke bare mit allerede færdigudviklet og gennemtestet script???

Synes godt om

mvk Nybegynder

19. juni 2003 - 18:30 #17

:) - jeg prøver i nat - vender tilbage

Synes godt om

mvk Nybegynder

20. juni 2003 - 09:02 #18

det er rimelig svært at holde styr på hvilken kode du endte med at bruge "brokkehoved"

Synes godt om

brokkehoved Nybegynder

20. juni 2003 - 09:30 #19

Ok... her er ihvertfald den samlede kode:

******************************************************************
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>test</title>

<style type="text/css">
.input {
font-family: vedana, tahoma, arial;
font-size: 11px;
font-style: normal;
color: #000000; }
</style>

<script>
function stopErrors() {
return true;
}
window.onerror = stopErrors;
</script>

<%
mode=request("mode")

if mode="send" then
Name = ""& Request.Form("Name") &"Test nr. 10" 'Her skriver jeg hvad der skal at stå i "EMNE"-feltet i E-mailen.
Email = Request.Form("Email")
Message = "OVERSKRIFT:<br><br>Navn: "& Request.Form("Navn") &"<br>E-mail: "& Request.Form("Email") &"<br>Emne: "& Request.Form("Emne") &"<br>Besked: "& Request.Form("Besked")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "smtp.udbyder.dk" 'Her skriver jeg adressen/navnet til Webhotel-udbyderens E-mail-server (fx. "smtp.udbyder.dk").
JMail.Priority = 3
JMail.Sender = "Besked fra mit website" 'Her skriver jeg den text der skal stå i "FRA"-feltet i E-mailen.
JMail.Subject = Name
JMail.Body = Message
JMail.AddRecipient "navn@website.dk" 'Her skriver jeg min egen E-mail adresse.
JMail.AddRecipient Email
JMail.Execute
Set JMail = nothing

strSend = "<center>Beskeden er nu afsendt.<br>Vi vender tilbage hurtigst muligt.</center>"
End If
%>

</head>

<body bgcolor="#CCCCCC" bottommargin="0" topmargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0">
<script type='text/javascript'>function Go(){return}</script>

<br><br><br>
<center>
<strong><font size="3" face="Verdana, Arial, Helvetica, sans-serif">KONTAKT OS</font></strong>
<br><br>

<form name="MailForm" action="mail.asp?mode=send" method=post>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="350">
<tr>
<td width="80">Navn:</td>
<td><input name=Navn style="width: 278px; height: 22px"></td>
</tr>
<tr>
<td>E-mail:</td>
<td><input name=Email style="width: 278px; height: 22px" class="aaa"></td>
</tr>
<tr>
<td>Emne:</td>
<td><input name=Emne style="width: 278px; height: 22px" class="aaa"></td>
</tr>
<tr>
<td valign="top">Besked:</td>
<td><textarea name=Besked rows=5 cols=43></textarea></td>
</tr>
<tr>
<td height="10"></td>
<td></td>
</tr>
<tr>
<td colspan="2"><center><input type="submit" value="     Send     " class="Knapper"></center>
</td>
</tr>
</table>
</center>
</form>

<font size="2" color="#ffffff" face="Verdana, Tahoma"><%=strSend%></font>
</center></body>
</html>
******************************************************************

Synes godt om

mvk Nybegynder

20. juni 2003 - 10:30 #20

<%
ModtagerNavn = Request.Form("ModtagerNavn")
ModtagerEmail = Request.Form("ModtagerEmail")
AfsenderNavn = Request.Form("AfsenderNavn")
AfsenderEmail = Request.Form("AfsenderEmail")
Overskrift = Request.Form("Overskrift")
Tekst = Request.Form("Tekst")

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "websmtp.krisjak.dk"
JMail.Priority = 3
JMail.Sender = AfsenderNavn
JMail.Subject = "Kunstkort fra Krisjak"
JMail.AddRecipient = ModtagerEmail
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

Body = "Til: " & ModtagerNavn & vbcrlf & vbcrlf & "Email: " & ModtagerEmail & vbcrlf & vbcrlf & "Fra: " & AfsenderNavn & vbcrlf & vbcrlf & "Email: " & AfsenderEmail & vbcrlf & vbcrlf & "Overskrift: " & Overskrift & vbcrlf & vbcrlf & "Tekst: " & Tekst

JMail.Body = Body
JMail.Execute

' Her angives den side der skal omstilles til når mailen er sendt.
Response.Redirect "kunstkort_sent.asp"
%>

burde dette ikke virke...

Synes godt om

mvk Nybegynder

20. juni 2003 - 10:34 #21

på http://www.dimac.net/ kan jeg ikke se hvordan man kan sende beskeden hvor billedet er embedded i mailen. http://www.dimac.net/ sender som attachment.

Synes godt om

brokkehoved Nybegynder

20. juni 2003 - 10:40 #22

-->mvk:
Jeg aner ikke hvordan man vedhæfter et billede. Men selve scriptet med formularen virker perfekt. :-)

Men nu har du ihvertfald fået alt det grundlæggende op at stå, så hele systemet virker. Så kan forhåbentligt en anden hjælpe dig med resten. :-)

Synes godt om

mvk Nybegynder

20. juni 2003 - 10:44 #23

;) - oki thanks man

Synes godt om

brokkehoved Nybegynder

20. juni 2003 - 11:20 #24

Selv tak, også for point. :-))

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
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

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