Avatar billede Keld Nielsen Professor
04. april 2002 - 09:06 Der er 2 kommentarer og
1 løsning

Overfør mailadresser til mailprogram

Jeg har en access database liggende på et site, hvorfra jeg ønsker at de tilmeldte kan benytte dataene til udsendelse af e-mail.

Personerne er inddelt i grupper og områder, jeg ville gerne man kunne vælge f.eks. en gruppe og måske 2 områder, el. lign. og så overføre deres mailadresse til deres eget mailprogram.

Det drejer sig om op til 200 personer, så det er mange data der skal overføres til mailprogrammet.

Er der nogen der har en idé om hvordan det skal udføres i ASP.
Avatar billede p_johansen Nybegynder
04. april 2002 - 10:07 #1
Jeg har bokset med samme problem og fundet ud af, at det pga begrænsningen i længen på et hyperlink ikke kan gøres med en alm mailto!

Jeg har løst problemet ved at lave en søgefunktion, der udvælger den rigtige gruppe og derefter brugt fælgende:

<html>

<head>
<title>New Page 1</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<style>
.highlighttext{
background-color:yellow;
font-weight:bold;
}
</style>
<script language="Javascript">
<!--

/*
Select and Copy form element script- By Dynamicdrive.com
For full source, Terms of service, and 100s DTHML scripts
Visit http://www.dynamicdrive.com
*/

//specify whether contents should be auto copied to clipboard (memory)
//Applies only to IE 4+
//0=no, 1=yes
var copytoclip=1

function HighlightAll(theField) {
var tempval=eval("document."+theField)
tempval.focus()
tempval.select()
if (document.all&&copytoclip==1){
therange=tempval.createTextRange()
therange.execCommand("Copy")
window.status="Contents highlighted and copied to clipboard!"
setTimeout("window.status=''",1800)
}
}
//-->
</script>
</head>

<body>

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Email2 FROM Users Where Email2 <> ''"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dindatabase.mdb")
rs.Open strSQL, strDSN, 1
%>

<form name="test">
  <a class="highlighttext" href="java script:HighlightAll('test.select1')"><p>Klik her for at kopiere til udklipsholder</a><br>
  <textarea name="select1" rows="10" cols="35"><%
    Do While Not rs.EOF
        Response.Write rs("email2") & ";"
    rs.MoveNext
    Loop
%>

</textarea>
  </p>
</form>

<%

rs.Close
Set rs = Nothing

%>




</body>
</html>
Avatar billede p_johansen Nybegynder
04. april 2002 - 10:11 #2
... herefter indsættes i til-feltet i mailprogram!

Er der lotus-notes brugere blandt de der skal anvende denne metode skal du være opmærksom på at disse ikke kan bruge ; som adskillelse af mailadresse men her skal bruges et komma , !
Avatar billede Keld Nielsen Professor
12. april 2002 - 14:11 #3
Kunne haver ønsket noget uden 'mellemstationen' - men det virker ! Tak
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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