Notifikationer

Markér alle som læst Log ud

tzinck Novice

20. maj 2003 - 23:10 Der er 4 kommentarer og
2 løsninger

kontaktformular med aspemail

Hej

hvor kan jeg finde en færdig (eler næsten færdig)formular, der bruger aspemail. Den kunne fx. indeholde felterne:

Fiama
Navn
tlf.
e-mail
bemærkninger

jeg er nybegynder mht ASP, så der skal ikke være for meget redigering selv.

tz

Synes godt om

locturian Nybegynder

20. maj 2003 - 23:22 #1

Ehhh.... Der findes jo mange komponenter der kan sende emails via asp, ex. Jmail, CDONTS osv osv.... Og de kan bruges til mange forskellige ting... Hvad er det du vil sende ?

Synes godt om

eagleeye Praktikant

20. maj 2003 - 23:22 #2

eks på koden:

<HTML>
<BODY>
<%
' Send mail
If Upload.Form("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.atlantech.net" ' replace that with your own host
Mail.From = Request.Form("From")
Mail.AddAddress Request.Form("To")
Mail.Subject = Request.Form("Subject")
Mail.Body = Request.Form("Body")

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error occurred when trying to send mail: <B>" & Err.Description & "</B>"
Else
Response.Write "Success! Message was sent."
End If
End If
%>

<h2>Sending Mail using AspEmail</h2>

<FORM METHOD="POST" ACTION="">
<TABLE>
<TR><TD>Mail From (enter address): </TD><TD><INPUT TYPE="TEXT" NAME="From"></TD></TR>
<TR><TD>Mail To (enter address): </TD><TD><INPUT TYPE="TEXT" NAME="To"></TD></TR>
<TR><TD>Subject: </TD><TD><INPUT TYPE="TEXT" NAME="Subject"></TD></TR>
<TR><TD>Body: </TD><TD><TEXTAREA NAME="Body"></TEXTAREA></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=SUBMIT VALUE="Send Mail"></TD></TR>
</TABLE>
<INPUT TYPE=HIDDEN NAME="Send" VALUE="Send">
</FORM>

</BODY>
</HTML>

Synes godt om

tzinck Novice

20. maj 2003 - 23:44 #3

Den skal sende ti en fast e-mail adresse. Det jeg har i tankerne er noget i retningen af det her:

http://www.atteno.dk/kontakt.asp

Synes godt om

tzinck Novice

20. maj 2003 - 23:47 #4

-> locturian

jeg har fået at vide at det SKAL være ASPEMAIL

Den skal bare sende tekst

Synes godt om

eagleeye Praktikant

21. maj 2003 - 00:01 #5

Så prøv med:

<HTML>
<BODY>
<%
' Send mail
If Upload.Form("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.atlantech.net" ' replace that with your own host
Mail.From = "mail@adr.dk"
Mail.AddAddress "mail@adr.dk"
Mail.Subject = "Mail fra hjemmesiden"

body = "Hej følgde skrive til dig " & vbCrLF
body = body & "Firma : " & Request.Form("firma") & vbCrLf
body = body & "Navn: " & Request.Form("navn") & vbCrLf
body = body & "Tlf: " & Request.Form("tlf") & vbCrLf
body = body & "Email: " & Request.Form("email") & vbCrLf

body = body & "Bemærkning: " & Request.Form("body") & vbCrLf

Mail.Body = body

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error occurred when trying to send mail: <B>" & err.Description & "</B>"
Else
Response.Write "Success! Message was sent."
End If
End If
%>

<h2>Sending Mail using AspEmail</h2>

<FORM METHOD="POST" ACTION="">
<TABLE>
<TR><TD>Firma: </TD><TD><INPUT TYPE="TEXT" NAME="firma"></TD></TR>
<TR><TD>Navn: </TD><TD><INPUT TYPE="TEXT" NAME="navn"></TD></TR>
<TR><TD>Tlf: </TD><TD><INPUT TYPE="TEXT" NAME="tlf"></TD></TR>
<TR><TD>Email: </TD><TD><INPUT TYPE="TEXT" NAME="email"></TD></TR>
<TR><TD>Bemærkninger: </TD><TD><TEXTAREA NAME="Body"></TEXTAREA></TD></TR>

<TR><TD COLSPAN=2><INPUT TYPE=SUBMIT VALUE="Send Mail"></TD></TR>
</TABLE>
<INPUT TYPE=HIDDEN NAME="Send" VALUE="Send">
</FORM>

</BODY>
</HTML>

Synes godt om

soda Nybegynder

21. maj 2003 - 10:20 #6

Taget fra www.aspemail.com:

<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.smtp-server.com" ' Specify a valid SMTP server
Mail.From = "sales@veryhotcakes.com" ' Specify sender's address
Mail.FromName = "VeryHotCakes Sales" ' Specify sender's name

Mail.AddAddress "andy@andrewscompany.net", "Andrew Johnson, Jr."
Mail.AddAddress "paul@paulscompany.com" ' Name is optional
Mail.AddReplyTo "info@veryhotcakes.com"
Mail.AddAttachment "c:\images\cakes.gif"

Mail.Subject = "Thanks for ordering our hot cakes!"
Mail.Body = "Dear Sir:" & Chr(13) & Chr(10) & _
"Thank you for your business."

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>

Det skulle være lige til ;o)

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

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

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