Avatar billede toranaga Nybegynder
30. juli 2002 - 14:25 Der er 14 kommentarer og
1 løsning

Problem med SendMail script

Jeg bruger SendMail til at sende emails via formular. Scriptet ser således ud:

<%
if Request.QueryString("SendFrom") <> "" then
   
    'laver dem om til teksten i mailen
    overskrift = Request.QueryString("overskrift") & vbcrlf & vbcrlf
    billedtekst = Request.QueryString("billedtekst") & vbcrlf & vbcrlf
    nyhed = Request.QueryString("nyhed") & vbcrlf & vbcrlf & vbcrlf
    nyhedudlob = Request.QueryString("nyhedudlob") & vbcrlf & vbcrlf & vbcrlf
    teaseroverskrift = Request.QueryString("teaseroverskrift") & vbcrlf & vbcrlf
    teasertekst = Request.QueryString("teasertekst") & vbcrlf & vbcrlf
    teasertid = Request.QueryString("teasertid") & vbcrlf & vbcrlf & vbcrlf
    kommentar = Request.QueryString("kommentar") & vbcrlf & vbcrlf & vbcrlf
    msg = overskrift & billedtekst & nyhed & nyhedudlob & teaseroverskrift & teasertekst & teasertid & kommentar
       
    'Dimension the objSendMail variable and create a new instance of the NewMail object.
    dim objSendMail
    set objSendMail = Server.CreateObject("CDONTS.NewMail")

    'Set all the properties on the NewMail object using the values from the QueryString
    objSendMail.From = Request.QueryString("SendFrom")
    objsendmail.To = "pzk@crayon.dk"
    objSendMail.Importance = 1
    objSendMail.Subject = Request.QueryString("Subject")
    objSendMail.Body = msg


    'Send the message
    objSendMail.Send

    'Set the objSendMail to nothing, free its resources
    set objSendMail = nothing

    'Redirect the user back to the referring page and update
    'the QueryString to indicate the message was sent.
    Response.Redirect "kontaktok.htm"

Else

    'Not all required information was provided,  so the message
    ' could not be sent. Redirect the user back to the referring page
    ' and update the QueryString to indicate the message was not sent.
    Response.write "Meddelelsen kunne ikke sendes, check om felterne er korrekt udfyldt"

end if
%>


Mit spørgsmål er nu: Jeg vil gerne indsætte noget tekst ud foran hver linie af tekst fra formularen. Altså hvis man indtaster "test overskrift" i feltet overskrift, så står der "Overskrift: test overskrift" i den email jeg modtager. Altså ordet "Overskrift:" indsættes automatisk foran linien hver gang. Jeg har ikke kunnet få det til at fungere og er i tvivl om hvordan det kan laves.
Avatar billede eagleeye Praktikant
30. juli 2002 - 14:28 #1
Ret denne linie:

overskrift = Request.QueryString("overskrift") & vbcrlf & vbcrlf

Til:

overskrift = "Overskrift: " & Request.QueryString("overskrift") & vbcrlf & vbcrlf
Avatar billede oasen Nybegynder
30. juli 2002 - 14:33 #2
msg = "Overskrift: " & overskrift & "Billedtekst: " & billedtekst & "Nyhed: " & nyhed & "Nyhedsudløb: " & nyhedudlob & "Teaseroverskrift: " & teaseroverskrift & "Teasertekst: " & teasertekst & "Teasertid: " & teasertid & "Kommentar: " & kommentar

??
Avatar billede toranaga Nybegynder
30. juli 2002 - 14:35 #3
Eagleeye: det virker ikke.
Avatar billede eagleeye Praktikant
30. juli 2002 - 14:38 #4
?? hmm det forstår jeg ikke.. Får du ikke ordet Overskrift med eller mangler selve overskriften ??
Avatar billede oasen Nybegynder
30. juli 2002 - 14:41 #5
Du kan i øvrigt godt korte det lidt ned:

objCDO.Send(Request.QueryString("SendFrom"),"pzk@crayon.dk",Request.QueryString("Subject"),msg)
Avatar billede oasen Nybegynder
30. juli 2002 - 14:42 #6
objCDO = objSendMail
Avatar billede eagleeye Praktikant
30. juli 2002 - 14:46 #7
du skal i samme stil tilføje en tekst til hver linie:

billedtekst = "Billed tekst: " & Request.QueryString("billedtekst") & vbcrlf & vbcrlf
Avatar billede toranaga Nybegynder
30. juli 2002 - 14:54 #8
Eagleeye: den giver blot en fejlside hvis jeg laver sådan.
Avatar billede eagleeye Praktikant
30. juli 2002 - 15:10 #9
Hvilken fejl får du  ?
Avatar billede toranaga Nybegynder
30. juli 2002 - 15:34 #10
Et eller andet med at siden ikke kan vises. Den skriver ikke nogen egentlig fejlkode.
Avatar billede eagleeye Praktikant
30. juli 2002 - 15:43 #11
Og siden virkede før??? og du har kun ændre den ene eller de to linier ???
Avatar billede toranaga Nybegynder
30. juli 2002 - 15:47 #12
ja.
Avatar billede eagleeye Praktikant
30. juli 2002 - 15:51 #13
Kan du ikke vise koden som er nu så ?? for jeg forstår simplethen ikke hvorfor den laver fejl fordi der er tilføjet lidt tekst til en variable...
Avatar billede toranaga Nybegynder
30. juli 2002 - 16:01 #14
LOL, det er sgu mig der er et stort fjols!!!

Jeg havde lige glemt et & tegn ;/ Sorry. Eagleeye, you da man... who get's the points.
Avatar billede eagleeye Praktikant
30. juli 2002 - 16:27 #15
Ok :)
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