Skicka mail via drop down...

Vilken mail komponent har du tillgång till på servern ?

Antar att du menar CDONTS. Det har jag använt förut. Mitt webbhotells server är win2k

Lägg in emailadresserna (eller id om du kör ifrån en databas) i droplistan, posta och hämta värdet av droplistan, tillsätt det värdet till .addrecipient (eller vad det heter i CDONTS). :)

Vi simmar absolut inte i samma båt kodmässigt... men jag skall prova med .addrecipient så får vi se.

Tack/ Ipanema

.To använder man i cdonts. Kika i den fina referensen.

mvh

Exempel:

<select name="email">
<% while not rs.eof %>
   <option value="<%=rs("email")%>"><%=rs("email")%></option>
<% rs.movenext
wend %>
</select>

strEmail = request.form("email")

'starta och gör nåt med CDONTS
   objCDO.to = strEmail
'skicka

Typ. :)

Jaha. Jag är minst sagt inte bra på ASP
Min kod ser ut så här nu:

<%
Dim myMail, namn, email, telefon, meddelande

namn = request.form ("namn")
email = request.form("email")
telefon = request.form("telefon")
meddelande = request.form("meddelande")

Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = request.form("email")
myMail.To = "mats@ipanema.nu"
myMail.Subject = "Från Kontakt"
myMail.Body = "Namn: " + namn + "Email: " + email + chr(10) + "Telefon: " + telefon + chr(10) + chr(10) + "Meddelande: " + meddelande
myMail.Send
Set myMail = Nothing
%>

Om select name = mottagare, var skall .To användas då?

myMail.To = Trim(Request.Form("mottagare"))

Tror jag ska fungera. ;)

(Använda gärna [k o d]-taggarna när du postar kod.)

Såhär då:

<select name="mottagare">
<% while not rs.eof %>
   <option value="<%=rs("email")%>"><%=rs("email")%></option>
<% rs.movenext
wend %>
</select>

Dim myMail, namn, email, telefon, meddelande 

mottagare = request.form("mottagare")
namn = request.form ("namn") 
email = request.form("email") 
telefon = request.form("telefon") 
meddelande = request.form("meddelande") 

Set myMail = CreateObject("CDONTS.NewMail") 
myMail.From = request.form("email") 
myMail.To = trim(mottagare)
myMail.Subject = "Från Kontakt" 
myMail.Body = "Namn: " & namn & "<br>Email: " & email & "<br>Telefon: " & telefon & "<br>Meddelande: " & meddelande 
myMail.Send 
Set myMail = Nothing