Mail > Form > igen igen:-(

du skal bruge et mail komponent
jmail / aspmail fx?

meget nemt

Hvis det er JMail der er installeret på serveren, så prøv denne.

set msg = Server.CreateOBject( \"JMail.Message\" )
msg.ContentType = \"text/html\"
msg.Logging = true
msg.silent = true
msg.From = \"beach@pc.d\"
msg.FromName = \"Beach\"
msg.AddRecipient \"beach@pc.d\"
msg.Subject = \"Telefonnummer\"
msg.Body = Request.Form (\"telefonnummer\")

if not msg.Send(\"mail.fissefissefezfez.dk\") then
    Response.write \"Der er sket en fejl - emailen er ikke afsendt.\"
else
        Response.write \"Emailen er afsendt.\"
end if

Håber det hjælper!

ups - du ville ha\' telefonnummeret i subject, så det er selvfølgelig:
msg.Subject = Request.Form (\"telefonnummer\")

Sorry min lange svartid, der var lige en kunde på knoglen med et funny spørgsmål. Ville gerne have nogle bill. på deres site sat på med tape!!!

Nå... Jeps, det er jmail jeg bruger, og prøver lige at lege med ovenstående. Havde egentlig allerede koden men havde håbet på der var en noget nemmere løsning ala> SendMail blablabla:-)

Er retur igen om et par minutter....

//Beach

Den vi ikke sende det som den skal:-(


Jeg har en anden form som ser sådan ud:

Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.freestyle.dk\"

Er det ikke den samme måde den her skal bygges op på?

//Beach

if not msg.Send(\"mail.hvad.dk\") then
                            Response.write \"Der er sket en fejl - emailen er ikke afsendt.\"
                        else
                                Response.write \"Emailen er afsendt.\"
                        end if

Eller kan det være den her????

//Beach

Den sidste du skrev, virker for mig, men prøv bare den anden. Det er garanteret også en brugbar metode.

Hvis jeg roder lidt rundt i det, så må du bære over med mig, er stadig kun kommet til side 101 i min bibel (ASP 3.0 fra Wrox) så..
Du kan evt. se siderne her:
http://freestyle.dk/mailformtest/v1.asp
Og du kan også roligt bruge siderne, det er stadig KUN forsøg, så jeg sender ikke noget til dig:-)

//Beach

Nu har jeg den her kode oppe og køre, men den skriver stadig at det ikke er afsendt nogen mail (og jeg får heller ikke nogen!). så.... Hvad er der ged i???
Vil det hjælpe hvis jeg sender (eller poster her) alt min kode?

//Beach

<%
Response.Write \"Anfør venligst Deres telefonnummer: \" & Request.Form (\"telefonnummer\") & \", ved henvendelse til Beach WebDesign.<br>\"

Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.freestyle.dk\"
                        msg.ContentType = \"text/html\"
                        msg.Logging = true
                        msg.silent = true
                        msg.From = \"beach@pc.dk\"
                        msg.FromName = \"Beach\"
                        msg.AddRecipient \"beach@pc.dk\"
                        msg.Subject = Request.Form (\"telefonnummer\")
                        msg.Body = Request.Form (\"telefonnummer\")

                        if not msg.Send(\"mail.hvad.dk\") then
                            Response.write \"Der er sket en fejl - emailen er ikke afsendt.\"
                        else
                                Response.write \"Emailen er afsendt.\"
                        end if

%>

Du skal enten kalde dit serverobject for JMail eller msg. Som nedenfor, så tror jeg det virker.
<%
Response.Write \"Anfør venligst Deres telefonnummer: \" & Request.Form (\"telefonnummer\") & \", ved henvendelse til Beach WebDesign.<br>\"
Set msg          = Server.CreateObject(\"JMail.SMTPMail\")
msg.ServerAddress = \"websmtp.freestyle.dk\"
                        msg.ContentType = \"text/html\"
                        msg.Logging = true
                        msg.silent = true
                        msg.From = \"beach@pc.dk\"
                        msg.FromName = \"Beach\"
                        msg.AddRecipient \"beach@pc.dk\"
                        msg.Subject = Request.Form (\"telefonnummer\")
                        msg.Body = Request.Form (\"telefonnummer\")
                        if not msg.Send(\"websmtp.freestyle.dk\") then
                            Response.write \"Der er sket en fejl - emailen er ikke afsendt.\"
                        else
                                Response.write \"Emailen er afsendt.\"
                        end if
%>

Det kan den sgu ikke li:-(
Microsoft VBScript compilation error \'800a0409\'

Unterminated string constant

/mailformtest/godkend.asp, line 35

Response.Write \"Anfør venligst Deres telefonnummer: \" & Request.Form (\"telefonnummer\") & \", ved henvendelse til
---------------------------------------------------------------------------------------------------------------^

Vil det hjælpe hvis jeg smider alle 3 filer op i en Zip på freestyle så du kan se dem eller....?
Er villig til at banke 60 point op på en \"færdig\" løsning:-)

//Beach

mail dine filer til mig på simon@simonlarsen.dk, så kigger jeg lige om jeg kan få det til at virke på min maskine.

Så er den sendt:-)

Så er den sendt retur - virkede det?

>>>larsen1
Hello Simon, sorry den lidt lange svartid men der kom et par kasser fredagshumler forbi min pind og så...... *S*
Men jeg er tilbage på pinden nu og har leget lidt med tilsendte. Det kan jeg stadig ikke få til at virke så jeg har taget en helt anden indgangsvinkel til det nu!

Til andre som måske kan bruge det har jeg vedlagt koden som jo egentlig allerede var lavet, men som jeg bare har modificeret lidt i så det passede til formålet:-)

Som tak Simon, for det som du allerede har gjort for mig vil jeg giver dig 30 point for din indsats. Er det OK?

<%
Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.freestyle.dk\"
Name = Request.Form(\"telefonnummer\")
Senderemail = \"admin@freestyle.dk\"
Subject = \"Emnet er: \" & Request.Form(\"telefonnummer\")
telefonnummer = Request.Form(\"telefonnummer\")

JMail.Sender = Senderemail
JMail.Subject = telefonnummer
JMail.AddRecipient  \"beach@pc.dk\"

JMail.Body = \"Telefonnummer : \" & Request.Form(\"telefonnummer\")
           
JMail.Priority = 2

JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute   
                        %>

\'Ovenstående virker påhttp://www. azero.dk Win2K serverne hvis andre vil lege med det.\'



//Beach