WN

WN (https://www.wn.se/forum/index.php)
-   Serversidans teknologier (https://www.wn.se/forum/forumdisplay.php?f=4)
-   -   Mailformulär (https://www.wn.se/forum/showthread.php?t=21069)

blueplaya 2007-05-05 18:16

Hejsan

Jag har sökt och hittat olika färdiga mail formulär men ingen har fungerat korrekt.
Är det någon som vill dela med sig en fungerande mail formulär till ASP ??


Mvh Michal

melin 2007-05-05 19:12

formulär eller ASP kod som skickar formulärsdata till en epost-mottagare?

Netikett 2007-05-05 20:18

Sök på Google efter MyCDONTS, CDONTS eller tex Jmail så hittar du en hel del exempel.

Staffconsulting 2007-05-06 00:07

Citat:

Originally posted by blueplaya@May 5 2007, 18:16
Hejsan

Jag har sökt och hittat olika färdiga mail formulär men ingen har fungerat korrekt.
Är det någon som vill dela med sig en fungerande mail formulär till ASP ??


Mvh Michal

http://aspwebb.com/artikel/artikel.asp?ID=...tid=19&AmneID=1

funkar dock inte på Win2003 server tror jag.. då får man ändra syntax lite..

Netikett 2007-05-06 13:41

Citat:

Originally posted by Staffconsulting@May 6 2007, 00:07

http://aspwebb.com/artikel/artikel.asp?ID=...tid=19&AmneID=1
funkar dock inte på Win2003 server tror jag.. då får man ändra syntax lite..

På Win2003 server är det mycdonts som gäller.

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "[email protected]"
MyCDONTSMail.To= "[email protected]"
MyCDONTSMail.Subject="Rubrik"
MyBody = "" & vbCrLf
MyBody = MyBody & "Här är innehållet"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing

melin 2007-05-06 13:43

Citat:

Ursprungligen postat av Killen
Citat:

Ursprungligen postat av Staffconsulting
http://aspwebb.com/artikel/artikel.asp?ID=...tid=19&AmneID=1
funkar dock inte på Win2003 server tror jag.. då får man ändra syntax lite..

På Win2003 server är det mycdonts som gäller.
Set MyCDONTSMail = CreateObject(CDONTS.NewMail)
MyCDONTSMail.From= [email protected]
MyCDONTSMail.To= [email protected]
MyCDONTSMail.Subject=Rubrik
MyBody = vbCrLf
MyBody = MyBody Här är innehållet
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing

vaf-n är mycdonts? =)

I ditt exempel så är mycdonts bara ett object och det kan heta vad man vill.. det objekt man skapar är ett CDONTS.NewMail objekt - som man döper till mycdontsmail (i just det exemplet)

Man kan lika gärna skriva:

Kod:

set myhappyunclehasfivekids = createobject("cdonts.newmail")

blueplaya 2007-05-07 00:29

Hejsan

Melin: Ett formulär där besökaren kan skicka ett mail till mig från min hemsida. Jag skrev ASP eftersom min hemsida är byggd i ASP.

Killen: Jag vill gärna att folk här på WN delar med sig lite formulär eller länkar var jag kan hitta fungerande formulär eftersom jag har letat lite på google osv men har ej fått dem fungera korrekt.

Staffconsulting: Tack för det tipset för tips-formuläret men jag sökte efter ett mail-formulär där besökaren kan skriva till mig från min sida till min epost.

Netikett 2007-05-07 03:37

Förlåt.. Blir fel när kopierar/klistrar. Melin har rätt. Jag gav bara ett kodexmpel på CDONTS.
Som jag förstått det så är det CDO som gäller och inte CDONTS när det är IIS 6.

allstars 2007-05-21 07:02

Det är korrekt!

rille77 2007-05-21 08:07

Ett script med CDO, hoppas att det kan vara till hjälp

Kod:

<%
If Request.Form("action") = "send" Then
        Set objMail=CreateObject("CDO.Message")
        objMail.Subject=Request.Form("Subject")
        objMail.From=Request.Form("From")
        objMail.To="Din mailadress"
        objMail.TextBody=Request.Form("Text")
        objMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
        'Name or IP of remote SMTP server
        objMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
        ="mail.server.com"
        'Server port
        objMail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
        =25
        objMail.Configuration.Fields.Update
        objMail.Send
        set objMail=nothing
End If
%>
         
         

<form name="contact" id="contact" method="post" action="contact.asp?action=send" onsubmit="document.contact.submit.disabled='true';">
<p>
        <label for="From">E-postadress</label>
        <input type="text" name="From" id="From" />
        <label for="Subject">Ämne</label>
        <input type="text" name="Subject" id="Subject" />
        <label for="Text">Meddelande</label>
        <textarea name="Text" id="Text" cols="40" rows="15"></textarea>
</p>
<p>
        <input type="submit" value="Skicka" />
</p>
</form>



Alla tider är GMT +2. Klockan är nu 04:24.

Programvara från: vBulletin® Version 3.8.2
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Svensk översättning av: Anders Pettersson