Hej,
Jag försöker få till så att om man klickar på 'Kontakta mig'
för en viss person där länken ser ut så här:
<a href="kontakt3.asp?name=John Doe&email=john.doe@hotmail.com">Kontakta mig</a>
så vill jag att den email adressen och namnet automatiskt ska
hamna i
mailare.Recipients.Add "name@domain.com", "Name"
för att få till det så försökte jag med detta (röd kod)
Dim Meddelande, epost, [red]email[/red], namn, [red]name[/red], hemsida, innehall, sida
Meddelande = Request.Form("meddelande")
epost = Request.Form("epost")
[red]email = Request.QueryString("email")[/red]
namn = Request.Form("namn")
[red]name = Request.QueryString("name")[/red]
hemsida = Request.Form("hemsida")
innehall = meddelande & "$|$" & epost & "$|$" & namn & "$|$" & hemsida
sida = formularsida
och kallade sedan på dom så här
mailare.Recipients.Add ""& email &"", ""& name &""
men det funkar inte :(
Felmeddelandet lyder så här
aspSmartMail.SendMail : Error 80 fel '80040050'
There is no Recipient. (verify the address list)
/skicka3.asp, rad 125
rad 125
mailare.SendMail
Någon som ser felet??
/S
(I koden nedan har jag markerat alla berörda delar med blått)
<%
' På denna sida finns koden som gör att dina besökares meddelanden skickas till din e-post adress.
' Det är därför viktigt att du anger korrekta uppgifter nedan.
Dim formularsida, mottagare_namn, mottagare_epost, rubrik, mailserver
formularsida = "kontakt.asp" ' Ändra här om du bytt namn på sidan med formuläret
rubrik = "Mail från hemsidan" ' Ändra här om du vill ha annan rubrik på alla mail som skickas
mailserver = "mail.hotmail.com" ' VIKTIGT! Ändra denna till din e-post adress SMTP server!
'(SMTP-server = Server för utgående mail)
'VIKTIGT! Längre ner i koden måste du ställa in vart mailen skall skickas!!
'=================================================================================================
'OBSERVERA!
'Här nedan finns kod som gör att meddelandet skickas och skall fungera helt felfritt, det brukar
'vara fel på mailservern, eller e-post adressen som orsakar fel. Så PILLA INTE i nedanstående kod
'om du inte har goda kunskaper om ASP och vet vad du gör! Längst ner i koden måste du dock ändra
'vart mailen skall skickas. Det står mer om det längre ner.
'=================================================================================================
'Här hämtas informationen och läggs i variabler.
[blue]Dim Meddelande, epost, namn, hemsida, innehall, sida
Meddelande = Request.Form("meddelande")
epost = Request.Form("epost")
namn = Request.Form("namn")
hemsida = Request.Form("hemsida")
innehall = meddelande & "$|$" & epost & "$|$" & namn & "$|$" & hemsida
sida = formularsida
[/blue]
'Här kontrolleras fälten så att alla obligatoriska fält är ifyllda
IF Not Len(Meddelande) <> 0 then
session("falt") = innehall
Session("kontakta_mig") = "You forgot to give us a message."
Response.Redirect sida
ELSEIF Not Len(namn) <> 0 then
session("falt") = innehall
Session("kontakta_mig") = "You forgot to give us your name."
Response.Redirect sida
ELSEIF Not Len(epost) <> 0 then
session("falt") = innehall
Session("kontakta_mig") = "You forgot to give us your E-mail address."
Response.Redirect sida
END IF
'Här kontrolleras e-post adressen
IF Instr(epost,"@") Then
' inget
ELSE
session("falt") = innehall
Session("kontakta_mig") = "Du har angett en felaktig e-post adress"
Response.Redirect sida
END IF
IF Instr(epost,".") Then
' inget
ELSE
session("falt") = innehall
Session("kontakta_mig") = "Du har angett en felaktig e-post adress"
Response.Redirect sida
END IF
' Här ändras hemsideadressen så att den alltid inleds med [url]http://[/url]
IF Len(hemsida) <> 0 Then
IF Left(hemsida,7) = "http://" Then
webb = Lcase(hemsida)
ELSE
webb = "http://" & Lcase(hemsida)
END IF
END IF
'=================================================================================================
' Här börjar AspSmartMail-koden. Ändra inte nedanstående kod, om du inte har goda kunskaper om ASP
' AspSmartMail-komponentens funktioner. Det är väldigt ovanligt att fel uppstår i nedanstående kod.
' Om fel uppstår på raden precis nedanför denna kommentar så brukar det bero på att servern INTE
' HAR STÖD FÖR ASPSMARTMAIL. VIKTIGT! Ändra den rad som har en kommentar UNDER sig!
'=================================================================================================
Set mailare = Server.CreateObject("aspSmartMail.SmartMail")
mailare.Server = ""&mailserver&""
mailare.SenderName = ""&namn&""
mailare.SenderAddress = ""&epost&""
[blue]mailare.Recipients.Add "name@hotmail.com", "Name"[/blue]
' Ovanstående måste du ändra! Det är väldigt viktigt att du ändrar det, annars funkar inte scriptet!
mailare.Subject = ""&rubrik&""
html = html & "<body bgcolor=#CCCCCC>"
html = html & "<font face='verdana' size='1'>"
html = html & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>")
html = html & "<br><br><br>"
html = html & "------------------------------------------"
html = html & "<br>"
html = html & "<b>Skickades: </b> " & Now
html = html & "<br>"
html = html & "<b>Namn: </b> " & namn
html = html & "<br>"
html = html & "<b>E-mail: </b><a href=""mailto:"& epost & """>" & epost & "</a><br>"
html = html & "<br>"
If Len(hemsida) <> 0 then
html = html & "<b>Hemsida: </b><a href=" & webb & ">" & webb & "</a><br>"
End If
html = html & "------------------------------------------"
html = html & "<br>"
html = html & "</font>"
mailare.body = ""&html&""
mailare.Priority = 2
mailare.ContentType = "text/html"
mailare.Charset = "iso-8859-1"
mailare.SendMail
Set mailare = nothing
Session("kontakta_mig") = "Meddelandet är nu skickat!"
Response.Redirect sida
%>