Notifikationer

Markér alle som læst Log ud

sapworld Nybegynder

30. juli 2004 - 05:57 Der er 14 kommentarer og
1 løsning

Sende CDONTS mail til forskellige ud fra felt i form

Hej

Jeg bruger koden neders i spørgsmålet på min side for at sende en mail når et entry er blevet gemt i en Access database. Data kommer fra en form på den foregående side, hvor brugeren har trykket "gem". Jeg kunne godt tænke mig at der sendes til forskellige personer ud fra hvilket værdi der er i feltet "module" i formen. Det er en drop down box, så værdierne er låste/kendte.

f.eks. kan der være sådan at hvis:
Module = AA sendes mail til 11@website.com
Module = BB sendes mail til 22@website.com
Module = CC sendes mail til 33@website.com

Er det muligt at ændre nedenstående så det kommer til at virke sådan???

<%
Set objMail = CreateObject ("CDONTS.Newmail")
objMail.From = "noreply@website.com"

objMail.To = "web@website.com"

objMail.Subject = (request.form("initials")) + " har oprettet.....: " + (request.form("module"))
objMail.Body = "Please visit ...... for at se.... " + vbNewLine + vbNewLine + "Hilsen" + vbNewLine + vbNewLine + "Kim...."

objMail.Send
Set objMail = Nothing
%>

Er det muligt at få dette ID'et ind i mail.body. Jeg får ID'et med denne kode:
<%Response.write "<a href=""tips_entry_user.asp?id=" & nytID & """>Link to ID: " & nytID & "</a>"%>

Hilsen

Kim

Synes godt om

eagleeye Praktikant

30. juli 2004 - 12:42 #1

Du kan lavet noget som dette:

module = Request.Form("module")
select case module
case "AA" strTo = "11@website.dk"
case "BB" strTo = "22@website.dk"
case "CC" strTo = "33@website.dk"
case else strTo = "web@website.dk" 'default hvis ikke der er valgt et module
end select

Så kan du rette denne linje så den ikke sender til en fast adresse:
objMail.To = "web@website.com"

Til dette:
objMail.To = strTo

Synes godt om

sapworld Nybegynder

31. juli 2004 - 06:57 #2

Kanont - jeg kan desværre først teste det mandag :(

I "body" bruger jeg denne "+ vbNewLine", men kan det på en eller anden må ændres så jeg bruger alm. tags som f.eks. i stedet?

Synes godt om

eagleeye Praktikant

31. juli 2004 - 23:59 #3

Hvis du skal bruge kan du sætte det ind som tekst sådan her:

objMail.Body = "Please visit ...... for at se.... Hilsen Kim...."

Synes godt om

sapworld Nybegynder

02. august 2004 - 06:47 #4

Der virker bare - kanon tak. Jeg har dog et lille spørgsmål til dig her til sidst. Jeg får fat i ID'et med denne kode: <%Response.write "<a href=""tips_entry_user.asp?id=" & nytID & """>Link to ID: " & nytID & "</a>"%>

Hvordan får jeg det med i mail.body som nedenstående?

link til tips: http://www.mysite.tips_entry_user.asp?id=67

/Kim

Synes godt om

sapworld Nybegynder

02. august 2004 - 06:48 #5

Ups - som et alm. link :)
http://www.mysite.dk/tips_entry_user.asp?id=67

/Kim

Synes godt om

eagleeye Praktikant

02. august 2004 - 10:39 #6

Du kan prøve at gøre sådan her:

sBody = "Please visit ...... for at se.... "
sBody = sBody & " "
sBody = sBody & "<a href=""http://www.mysite.dk/tips_entry_user.asp?id=" & nytID & """>http://www.mysite.dk/tips_entry_user.asp?id=" & nytID & "</a>"
sBody = sBody & " Hilsen Kim...."
objMail.Body = sBody

Synes godt om

sapworld Nybegynder

02. august 2004 - 11:14 #7

Så får dette sendt:
Please visit ...... for at se.... <a href="http://www.mysite.dk/tips_entry_user.asp?id=78">http://www.mysite.dk
/tips_entry_user.asp?id=78</a> Hilsen Kim....

Men det er desværre ikke et link

/Kim

Synes godt om

sapworld Nybegynder

02. august 2004 - 11:15 #8

Linket er ikke aktivt i mailen

/kim

Synes godt om

eagleeye Praktikant

02. august 2004 - 11:22 #9

Ok, det skal ikke være aktivt, så prøv sådan:

sBody = "Please visit ...... for at se.... "
sBody = sBody & " "
sBody = sBody & "http://www.mysite.dk/tips_entry_user.asp?id=" & nytID
sBody = sBody & " Hilsen Kim...."
objMail.Body = sBody

Synes godt om

eagleeye Praktikant

02. august 2004 - 11:23 #10

Nu skulle det ikke være aktivt, det er ren tekst, spørgsmålet er så om mail program gør lige om eksperten, genkender et link og laver det aktivt :)

Synes godt om

sapworld Nybegynder

02. august 2004 - 12:04 #11

Det gør mail programmet - mange tak for hjælpen. Der kom lidt ekstra spørgsmål på, så jeg vil godt give 200 points for. Hvordan hæver jeg det fra 100 til 200?

/Kim

Synes godt om

sapworld Nybegynder

02. august 2004 - 12:30 #12

Som tillægsspørgsmål kunne du måske hjælpe med et svar på om jeg kan bruge løsningen på Jmail også (jeg kan ikke bruge andet hos cliche.dk)
<%
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "web@myweb.dk"
msg.FromName = "login"
msg.AddRecipient "mail@myweb.dk"
msg.Subject = "tips page has been visited " & Request.ServerVariables("REMOTE_ADDR")
msg.Body = "page has been visited by: " & (request.querystring("username"))

if not msg.Send("mail3.cliche.dk" ) then
Response.write " "
else
Response.write " "
end if
%>
/kim

Synes godt om

eagleeye Praktikant

02. august 2004 - 12:31 #13

Du kan i boksen/menuen Funktioner trykke på linket "Afsæt flere point"

En gang kunne man trykke på det nuværne point tal oppe i spørgsmålet "100" og få mulighed for at afsætte flere. Men jeg tror ikke det er muligt mere, så man må menuen.

Synes godt om

eagleeye Praktikant

02. august 2004 - 12:35 #14

Ja det kan du. Dog er der lidt forskel på de nanve som bruges om de samme ting, men koden kan bruges til jmail.

Med CDONTS ser modtager linjen sådan her ud:
objMail.To = "web@website.com"

Med JMail vil det se sådan her ud:
msg.AddRecipient "mail@myweb.dk"

Så selve koden som laver body teksten og finder den rigtige mail adsee kan genbruges:

<%
module = Request.Form("module")
select case module
case "AA" strTo = "11@website.dk"
case "BB" strTo = "22@website.dk"
case "CC" strTo = "33@website.dk"
case else strTo = "web@website.dk" 'default hvis ikke der er valgt et module
end select

set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "web@myweb.dk"
msg.FromName = "login"
msg.AddRecipient strTo
msg.Subject = "tips page has been visited " & Request.ServerVariables("REMOTE_ADDR")
sBody = "Please visit ...... for at se.... "
sBody = sBody & " "
sBody = sBody & "http://www.mysite.dk/tips_entry_user.asp?id=" & nytID
sBody = sBody & " Hilsen Kim...."
msg.Body = sBody
if not msg.Send("mail3.cliche.dk" ) then
Response.write " "
else
Response.write " "
end if
%>

Synes godt om

sapworld Nybegynder

02. august 2004 - 18:09 #15

Føj, hvor det bare virker. Du er gud - jeg kan godt forstå du har alle de point :)

Mange tak for hjælpen

/Kim

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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