Gå til innhold

Anbefalte innlegg

Videoannonse
Annonse

men f heller.. har allerede skreve en funksjon som sender epost med CDOSYS som komme standard med windows 2000, xp og 2003..

du kan få den, men design delen må du stå for sjøl

 

 

<%
Function Sendmail(strFromName, strFromEmail, strSubject, strMessageBody, strToName, strToEmail, strSMTPServer)

Dim objCDOSYSMail
Dim objCDOSYSCon

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = strFromName & " <" & strFromEmail & ">"
objCDOSYSMail.To = strToName & " <" & strToEmail & ">"
objCDOSYSMail.Subject = strSubject
objCDOSYSMail.HTMLBody = strMessageBody

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

End Function
%>

Lenke til kommentar

eller er det slik du skal ha?

<FORM METHOD="post" ACTION="mailto:mottakarepost">
<INPUT TYPE="text" NAME="1"><BR>
<INPUT TYPE="text" NAME="2"><BR>
<INPUT TYPE="text" NAME="3"><BR>
<INPUT TYPE="text" NAME="4"><BR>
<INPUT TYPE="text" NAME="5"><BR>
<INPUT TYPE="text" NAME="6"><BR>
<INPUT TYPE="text" NAME="7"><BR>
<INPUT TYPE="text" NAME="8"><BR>
<INPUT TYPE="text" NAME="9"><BR>
<INPUT TYPE="submit" VALUE="legg til">
</FORM>

 

ni tekstfelt og sendeknapp, går til ei epostadresse, men koda er vel ikkje heilt ferdig endå, eller? har ikkje brukt denne på nokre år

 

sjekk w3schools.com, dei har mykje info

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...