Avatar billede freud Nybegynder
12. april 2005 - 14:57 Der er 7 kommentarer og
1 løsning

jmail og link

Skal sende et link sammen med en mail. linket er ikke statisk
det skal indeholde en variabel - hvorfor virker det ikke

Se kode:
linkstart = "<a href=""http://www.neocon.dk/index.asp?nyhedsbrevid="

id = rs("nyhedsbrevid")

linkslut = "">"Læs hele nyhedsbrevet"</a>"

link = linkstart & id & linkslut




Set jmail = Server.CreateObject("JMail.SMTPMail")

jmail.ServerAddress = mailserver
jmail.Sender = afsender_email
jmail.SenderName = afsender_navn
jmail.Subject = subject
jmail.HTMLBody = "<html><body>" & body & link & "</body></html>"
jmail.Priority = "3"

Do While Not rs.EOF
jmail.AddRecipientCC(rs("KundeEmail"))
rs.MoveNext
Loop
   
If modtager_liste <> "" Then
jmail.HideRecipients = modtager_liste
End If

jmail.Execute()
jmail.Close()
Set jmail = Nothing
Avatar billede kinderaeg Nybegynder
12. april 2005 - 15:18 #1
linkslut = """>""Læs hele nyhedsbrevet""</a>"
Avatar billede freud Nybegynder
12. april 2005 - 17:11 #2
- konderaeg

det virker ikke ! der kommer bare en fejl medd.
Avatar billede apo Praktikant
12. april 2005 - 18:10 #3
Mon ikke at dette virker :-)

<%
link = "<a href=""http://www.neocon.dk/index.asp?nyhedsbrevid=" & rs("nyhedsbrevid") & "">Læs hele nyhedsbrevet</a>"

Set jmail = Server.CreateObject("JMail.SMTPMail")

jmail.ServerAddress = mailserver
jmail.Sender = afsender_email
jmail.SenderName = afsender_navn
jmail.Subject = subject
jmail.HTMLBody = "<html><body>" & body & link & "</body></html>"
jmail.Priority = "3"

Do While Not rs.EOF
jmail.AddRecipientCC(rs("KundeEmail"))
rs.MoveNext
Loop
   
If modtager_liste <> "" Then
jmail.HideRecipients = modtager_liste
End If

jmail.Execute()
jmail.Close()
Set jmail = Nothing
%>

Apo
Avatar billede apo Praktikant
12. april 2005 - 18:12 #4
Den første indeholdt en fejl... Prøv denne i stedet:

<%
link = "<a href=""http://www.neocon.dk/index.asp?nyhedsbrevid=" & rs("nyhedsbrevid") & """>Læs hele nyhedsbrevet</a>"

Set jmail = Server.CreateObject("JMail.SMTPMail")

jmail.ServerAddress = mailserver
jmail.Sender = afsender_email
jmail.SenderName = afsender_navn
jmail.Subject = subject
jmail.HTMLBody = "<html><body>" & body & link & "</body></html>"
jmail.Priority = "3"

Do While Not rs.EOF
jmail.AddRecipientCC(rs("KundeEmail"))
rs.MoveNext
Loop
   
If modtager_liste <> "" Then
jmail.HideRecipients = modtager_liste
End If

jmail.Execute()
jmail.Close()
Set jmail = Nothing
%>

Apo
Avatar billede freud Nybegynder
12. april 2005 - 22:11 #5
- apo

Du har da helt ret , nu virker det sku bare :-)

drop lige et svar ik
Avatar billede apo Praktikant
12. april 2005 - 22:18 #6
Svar :-)

Apo
Avatar billede freud Nybegynder
12. april 2005 - 22:35 #7
- apo

tak for hjælpen
Avatar billede apo Praktikant
13. april 2005 - 18:33 #8
Glad for at kunne hjælpe, og tak for points :-)

Apo
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