Notifikationer

Markér alle som læst Log ud

f_rollo Nybegynder

31. marts 2004 - 18:01 Der er 9 kommentarer og
2 løsninger

Vil gøre ULR-adresser i html mail sendt via AspMail Klikbare

Det blev vist en lettere kryptisk overskrift.

Men det jeg gerne vil er at koden herunder kan tage den ULR adresse den requester og lave den til link.
Koden bruges til når der fra alm. html form sendes en mail. Jeg har en del kontakt-mig-formler der istedet for at sende til et cgi-script (hvor emailadressen er synlig=SPAM) skal sende til et aspdokument der sender videre til min mail.

Problemet er bare at når folk opgiver deres website-adresse bliver den ikke til et link i Outlook men bare ren tekst man selv skal copy/paste over i IE

Hvad gør jeg?

<%
Dim objMail
Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.FromName = request("Kontaktperson")
objMail.FromAddress = request("email")
objMail.AddRecipient "Garden Living", "Min emailadresse"
objMail.RemoteHost = "mail.gardenliving.dk"
objMail.Subject = "Kontakt fra www.gardenliving.dk"
Dim strHTMLBody

strHTMLBody = "Denne mail er sendt fra hjemmesiden " & vbCrLf
strHTMLBody = strHTMLBody & "<hr>" & vbCrLf
strHTMLBody = strHTMLBody & "Mailen er sendt af: " & request("Kontaktperson") & " fra: " & request("Firma") & " Stilling: " & request("Stilling") & " Telefonnummer: " & request("Telefon") & " E-mailadresse: " & request("email") & " "& vbCrLf
strHTMLBody = strHTMLBody & "Adresse: " & request("Adresse") & ", " & request("postnr") & " "
strHTMLBody = strHTMLBody & "Hjemmeside: " & request("website") & " " & vbCrLf [HER ER DET JO SÅ DER SKAL LAVES ET ELLER ANDET OM, MEN HVAD???]
strHTMLBody = strHTMLBody & "Besvar via: " & request("Kontaktes-via") & "" & vbCrLf
strHTMLBody = strHTMLBody & "<hr>" & vbCrLf
strHTMLBody = strHTMLBody & "Besked: " & request("Comments") & vbCrLf
strHTMLBody = strHTMLBody & "<hr>" & vbCrLf
strHTMLBody = strHTMLBody & "SLUT" & vbCrLf
strHTMLBody = strHTMLBody & "<hr>" & vbCrLf
objMail.ContentType = "text/html"
objMail.BodyText = strHTMLBody

If objMail.SendMail Then
Response.Redirect "http://www.gardenliving.dk/default.asp?id=17"
Else
Response.Redirect "http://www.gardenliving.dk/default.asp?id=error17"
End If

%>

På forhånd tak...

Synes godt om

fiasko Nybegynder

31. marts 2004 - 18:40 #1

du skal simpelthen bare lave det således:
<%
Dim objMail
Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.FromName = request("Kontaktperson")
objMail.FromAddress = request("email")
objMail.AddRecipient "Garden Living", "Min emailadresse"
objMail.RemoteHost = "mail.gardenliving.dk"
objMail.Subject = "Kontakt fra www.gardenliving.dk"
Dim strHTMLBody

strHTMLBody = "Denne mail er sendt fra hjemmesiden " & vbCrLf
strHTMLBody = strHTMLBody & "<hr>" & vbCrLf
strHTMLBody = strHTMLBody & "Mailen er sendt af: " & request("Kontaktperson") & " fra: " & request("Firma") & " Stilling: " & request("Stilling") & " Telefonnummer: " & request("Telefon") & " E-mailadresse: " & request("email") & " "& vbCrLf
strHTMLBody = strHTMLBody & "Adresse: " & request("Adresse") & ", " & request("postnr") & " "
strHTMLBody = strHTMLBody & "Hjemmeside: <a href= " & request("website") & ">" & request("website") & "</a> " & vbCrLf [HER ER DET JO SÅ DER SKAL LAVES ET ELLER ANDET OM, MEN HVAD???]
strHTMLBody = strHTMLBody & "Besvar via: " & request("Kontaktes-via") & "" & vbCrLf
strHTMLBody = strHTMLBody & "<hr>" & vbCrLf
strHTMLBody = strHTMLBody & "Besked: " & request("Comments") & vbCrLf
strHTMLBody = strHTMLBody & "<hr>" & vbCrLf
strHTMLBody = strHTMLBody & "SLUT" & vbCrLf
strHTMLBody = strHTMLBody & "<hr>" & vbCrLf
objMail.ContentType = "text/html"
objMail.BodyText = strHTMLBody

If objMail.SendMail Then
Response.Redirect "http://www.gardenliving.dk/default.asp?id=17"
Else
Response.Redirect "http://www.gardenliving.dk/default.asp?id=error17"
End If

%>

Synes godt om

fiasko Nybegynder

31. marts 2004 - 18:40 #2

se hvordan jeg har lavet request("website") til et link ?

Synes godt om

f_rollo Nybegynder

31. marts 2004 - 18:44 #3

Hmmm... jeg syntes jeg havde lavet noget nær det sammen... men et eller andet havde jeg jo nok lavet forkert...
Tager lige en tester på det og venter tilbage.

Synes godt om

fiasko Nybegynder

31. marts 2004 - 19:06 #4

klart :)

Synes godt om

f_rollo Nybegynder

31. marts 2004 - 22:47 #5

Det virker ikke helt...

Jeg ændrede koden til:
strHTMLBody = strHTMLBody & "Hjemmeside: <a href=" & request("website") & ">" & request("website") & "</a> " & vbCrLf

og det bliver ganske rigtigt til et blå link i Outlook, men linket virker ikke. Der sker intet når man trykker.
Når man holder musen over vises en underlig ulr i statusfeltet...
What's wrong?

Screenshot fra Outlook:
http://www.gardenliving.dk/mail/fejl.gif

Synes godt om

f_rollo Nybegynder

31. marts 2004 - 22:49 #6

Når jeg indtaster linket i kontaktformen indtaster jeg det www.domain.dk uden noget http foran.
Jeg forventer heller ikke at kunderne ville gøre det...

Synes godt om

fiasko Nybegynder

01. april 2004 - 00:01 #7

så laver du bare <a href=http://" & request("website") &"> " & Request("Website") & " </a>
evt. lave en replace() hvor du udskifter http:// med "" så du er sikker på at de ikke skriver http:// foran

Synes godt om

f_rollo Nybegynder

01. april 2004 - 13:19 #8

Det var også min første tanke blot at sætte http:// ind på sammen måde, men det virkede heller ikke...

Jeg prøvede at sætte target=_blank ind i koden, men det missede vist lidt. Hvordan ville det skulle gøres korrekt?

Kilden i mailsen er således ud:
Denne mail er sendt fra hjemmesiden 
<hr>
Mailen er sendt af: Test fra: Test Stilling: Test Telefonnummer: Test E-mailadresse: Test 
Adresse: Test, Test Hjemmeside: <a href=www.gardenliving.dk>www.gardenliving.dk</a> 
Besvar via: E-mail
<hr>
Besked: Test
<hr>
SLUT
<hr>

Synes godt om

fiasko Nybegynder

01. april 2004 - 17:10 #9

du skal have koden til linket til at være følgende:
<a href=http://www.gardenliving.dk> så popper den automatisk op i nyt vindue.

For at sikre dig at der ikke er blevet indtastet http:// i website... så laver du følgende:

replace(request("website"), "http://", "")

du kan evt. prøve at udskrive den før du sender den. <%= replace(request("website"), "http://", "") %> og se hvad resultatet er...

Synes godt om

f_rollo Nybegynder

07. april 2004 - 14:14 #10

Tak for hjælpen - det virker nu...

Synes godt om

fiasko Nybegynder

09. april 2004 - 13:37 #11

no problem :D

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