Hej alle.
Jeg har fundet endelig fundet et script der kan sende mail fra min HP på
one.com, men jeg kunne godt bruge nogle flere linjer til at taste info i som
så også vil blive mailet til mig, så jeg er sikker på at få nogle bestemte
oplysninger fra personen der sender mail fra min hjemmeside.
Jeg er desværre ingen ørn til asp, så hvis der er en der gider skrive mig et
eksempel på hvad jeg skal bruge for at få lavet nogle ekstra linjer som
scriptet skal sende til min mailbox.
Jeg vil f.eks. gerne ha' felter som "Adresse" "postnr." og "By" m.f. som
bliver sendt med mailen ligesom "besked" gør det i scriptet.
Hvordan gør jeg lige det (laver felterne, og sikre mig at de bliver sendt)?
Scriptet ser sådan ud.
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Husk at udfylde alle felter</title>
</head>
<body>
<%
Dim strName, strEmail, strQuery, strSubj
strName = Trim(Request.Form("ClientName"))
strEmail = Trim(Request.Form("ClientEmail"))
strSubj = Trim(Request.Form("ClientEmne"))
strQuery = Trim(Request.Form("ClientQry"))
If (strName <> "" And strEmail <> "" And strSubj <> "" And strQuery <> "")
Then
Dim objMail, aRecipients
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = strName & " <" & strEmail & ">"
objMail.To = strEmail
objMail.Subject = strSubj
aRecipients = Array("kim@translator-lykke.dk")
objMail.BCC = Join(aRecipients, ";")
objMail.Body = strQuery
objMail.Host = "mailout.one.com"
objMail.Send
Response.Write "<h1>Mail afsendt</h1>"
Response.Write "<p>Tak for din henvendelse. Jeg vender tilbage så hurtigt
som muligt.</p>"
Set objMail = Nothing
Else
%>
<form action="<%=Request.ServerVariables("aspmail.asp")%>" method=post>
<fieldset>
<legend>Husk at udfylde alle felter</legend>
<label for="t1">Navn:</label>
<input id="t1" type=text name="ClientName" value="" size=40><br />
<label for="t2">Email:</label>
<input id="t2" type=text name="ClientEmail" value="" size=40><br />
<label for="t3">Emne:</label>
<input id="t3" type=text name="ClientEmne" value="" size=40><br />
<label for="t4">Besked:</label>
<textarea id="t4" name="ClientQry" cols=40 rows=10></textarea><br />
<label for="t5"> </label>
<input id="t3" type="Submit" value="Send" />
<input type="reset" value="Slet">
</fieldset>
</form>
<% End If %>
</body>
</html>
Jeg håber nogen gider hjælpe mig på vej.
Mvh. Kim