|Hjælp|.|Til|.|Jmail|

Du tilføjer blot endnu en msg.AddRecipient recipient eller msg.AddRecipientBCC recipient

Med sidstnævnte kan du eks. sende en mail til kunden, med dig selv som BCC, dermed kan kunden ikke se at du får mailen også. Dette virker ofte mere elegant.

Er det ik bare sådan her:

Du er her : Eksperten : Programmering : Script : ASP : |Hjælp|.|Til|.|Jmail| :

Sidste nyt fra Eksperten : Point statistik
Pointstatistik er en ny funktion hvor du kan se hvem der har tjent flest point i en periode. Dermed kan du se hvem der var bedst indenfor f.eks. programmering eller databaser i 2001. Er du Ekspert... læs mere



|Hjælp|.|Til|.|Jmail|    30 point fra jr40
Hejsa

Jeg har en form her:

<%@LANGUAGE = VBSCRIPT%>
<html>
<body>

<%

' Get the form data
senderEmail = "mail@ditdomæne.dk"
subject    = "Bestilling"
recipient  = "andre@privat.tele.dk"
recipient  = "andre@privat.tele.dk"

???

sorry det kom vidst lidt for meget tekst med. :)

det er kun det nederste jeg mener

Ikke helt. Eksempelvis

recipient  = "andre@privat.tele.dk"
recipient2  = "enanden@privat.tele.dk"

Og derefter:

msg.AddRecipient recipient
msg.AddRecipient recipient2

Hmm hva mangler jeg her.?
<%@LANGUAGE = VBSCRIPT%>
<html>
<body>

<%

' Get the form data
senderEmail = "Navn.På.Shop@Sejt.dk"
subject    = "Bestilling"
recipient  = "andre@privat.tele.dk"
recipient2  = "janr@mail.dk"

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Enter the sender data
msg.From = senderEmail
msg.FromName = name

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient

' The subject of the message
msg.Subject = subject

' And the body
msg.body = "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient2

' The subject of the message
msg.Subject = subject

' And the body
msg.body = "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf




' Now send the message, using the indicated mailserver
if not msg.Send("pop3.mail.dk" ) then
    Response.write "<pre>" & msg.log & "</pre>"
else
    Response.write "Message sent succesfully!"
end if


' And we're done! the message has been sent.


%>
</body>
</html>

Hmm hva fanden... er det jeg snakker om..!!!! ;-)

Man skal kunne skrive en fast email adresse, oxe skal der blive sendt en ny ud til den email som vil stå i feltet Email..

hvad skal jeg så gøre.?

Jeg ville gøre sådan:

recipient  = Request.Form("Email")
recipient2  = "andre@privat.tele.dk"

Og derefter:

msg.AddRecipient recipient
msg.AddRecipientBCC recipient2

Nu sendes mailen til adressen fra formen, hvor du samtidig får en blind copy.

hmm den skriver det her:

Error: 550
The following recipients could not be sent to:
  Request.Form Email; 550 Invalid recipient:

ClientLogging enabled: Client Remote Address: 80.197.135.35
.execute()
{
  Trying server mail:pop3.mail.dk
  <- 220 fepF.post.tele.dk ESMTP server (InterMail vM.4.01.03.23 201-229-121-123-20010418) ready Fri, 9 Aug 2002 20:34:02 +0200
  -> EHLO server.domain.server
  <- 250-fepF.post.tele.dk
250-HELP
250-XREMOTEQUEUE
250-ETRN
250-PIPELINING
250-DSN
250-8BITMIME
250 SIZE 10240000
  -> MAIL FROM:
  <- 250 Sender  Ok
  -> RCPT TO:Request.Form Email
<- 550 Invalid recipient:
  -> RCPT TO:andre@privat.tele.dk
  <- 250 Recipient  Ok
  -> DATA
  <- 354 Ok Send data ending with .
  Sending headers...
  Sending body...
  Message sent
  <- 250 Message received: 20020809183403.GVZE28266.fepF.post.tele.dk@server.domain.server
  0 of 1 servers failed
}

her er koden som den er lige nu:




<%@LANGUAGE = VBSCRIPT%>
<html>
<body>

<%

' Get the form data
senderEmail = "Navn.På.Shop@Sejt.dk"
subject    = "Bestilling"
recipient  = "Request.Form Email"
recipient2  = "andre@privat.tele.dk"

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Enter the sender data
msg.From = senderEmail
msg.FromName = name

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient

' The subject of the message
msg.Subject = subject

' And the body
msg.body = "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipientBCC recipient2


' The subject of the message
msg.Subject = subject

' And the body
msg.body = "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf




' Now send the message, using the indicated mailserver
if not msg.Send("pop3.mail.dk" ) then
    Response.write "<pre>" & msg.log & "</pre>"
else
    Response.write "Message sent succesfully!"
end if


' And we're done! the message has been sent.


%>
</body>
</html>


Og jeg modtager 1mail, og i feltet til: skriver den: Request.Form Email

det må gerne ændres til kundens email

Du skal skrive det præcist som jeg gjorde, med det forbehold at feltet skal hedde Email.

recipient  = Request.Form("Email")

Du må ikke sætte det i anførselstegn, for så får den ikke værdien fra formen.

yes nu for jeg en mail.
men jeg syntes ik af recipient2 for nogen.?

tmceu>>>Har du nogen ide om hvad jeg har gjordt galt siden recipient kun for en mail.?

Tænker du på at du ikke kan se recipient2 i mailen? Dette skyldes at den sendes om blind carbon copy, derved kan den ikke ses i mailen til recipient, men der skulle meget gerne blive sendt en. Hvis du ikke har prøvet det, så prøve at sende til 2 forskellige email adresser som du begge kontrollerer.

nope, den "blinde" email bliver ik sendt.
har lige testet det med 2forskellige email adresser.

Kan du prøve at poste scriptet som det ser ud nu...

<%@LANGUAGE = VBSCRIPT%>
<html>
<body>

<%

' Get the form data
senderEmail = "Navn.På.Shop@Sejt.dk"
subject    = "Bestilling"
recipient  = Request.Form("Email")
recipient2  = "andre@privat.tele.dk"

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Enter the sender data
msg.From = senderEmail
msg.FromName = name

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient

' The subject of the message
msg.Subject = subject

' And the body
msg.body = "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipientBCC recipient2


' The subject of the message
msg.Subject = subject

' And the body
msg.body = "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf




' Now send the message, using the indicated mailserver
if not msg.Send("pop3.mail.dk" ) then
    Response.write "<pre>" & msg.log & "</pre>"
else
    Response.write "Message sent succesfully!"
end if


' And we're done! the message has been sent.


%>
</body>
</html>

Kunne du se hvad der er galt.?

kunne du hjælpe eller hva tmceu?
med af rette det til så den dur.

Jeg kan ikke se hvad der skulle være galt, måske skulle du prøve at sende til 2 forskellige i hhv. recipient og recipientBCC. Jeg ved ikke om den er intilligent nok til at se at der sendes til den samme og derfor kun sender én mail. Hvis du ikke har 2 email adresser, kan du eks. oprette en gratis hos Jubii eller Ofir.

så er jeg tilbage, og undskyld det har taget så langt tid.

men jeg har lige set på det igen, og nu sender den slet ik nogen mail ud til nogen.?

betalling.asp


<html lang="en">

<head>

  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

  <title>xxxx Bestillings side.</title>

  <style type="text/css">

    form, input, fieldset fieldset {

        margin: 0px;

        padding: 0px;

    }

    form {

        background-color: #999999;

        color: black;

        border: 2px outset silver;

    }

    fieldset {

        margin-top: 3px;

        margin-left: 0px;

        margin-bottom: 2px;

        margin-right: 0px;

        border: 3px groove silver;

        font: bold 14px Tahoma, sans-serif;

    }

    label {

        margin-left: 4px;

        font: bold 13px Verdana, sans-serif;

    }

    legend {

        display: block;

        font: bold 13px Verdana, sans-serif;

        border: 1px solid black;

        background-color: #C0C0C0;

        color: black;

    }

    .orderform {

        width: 100%;

        border:none;

        overflow:visible;

        background-color:#d0d0d0;

    }

    .submit {

        margin: 4px;

        padding: 2px;

        background-color: #D0D0D0;

        color: black;

        border: 1px solid black;

        font: 12px Tahoma, sans-serif;

    }

    .boxed {
width="360px" ind i <td>

        border: 1px solid black;

    }

  </style>

  <script type="text/javascript">

  var keysubmit = false;

 

  function process(index) {

      // index svarer til den valgte betalingsform

    if (index == 0 || index == 2 || index == 5) // sendes

        document.getElementById('adresse').style.display="block";

    else // afhentes

        document.getElementById('adresse').style.display="none";

    //if (index == 0 || index == 1) // Dankort

        //document.getElementById('konto').style.visibility='visible';

//    else // kontant eller pr aftale

    //    document.getElementById('konto').style.visibility='hidden';

  }

  </script>

</head>

<body>



<form method="post" action="SendMail.asp"  onkeypress="if (event.keyCode==13) keysubmit=true;" onsubmit="return !keysubmit;">

<fieldset>

  <legend>Betalingsformular</legend>

  <br />

  <fieldset>

  <legend>Betalingsform</legend>

  <label>

            Vælg betalings form:

            <select name="betform" onchange="process(this.selectedIndex);">

          <optgroup label="Efter aftale">

          <option value="Forudb_S" >Efter aftale, sendes</option>

          <option value="Forudb_A" >Efter aftale, afhentes hos xxxx</option>

          </optgroup>

          <optgroup label="Andet">

          <option value="Kontant_A">Kontant, afhentes hos xxxx</option>

          <option value="Efterkrav">Efterkrav</option>

          </optgroup>

          </select>

  </label>

    <br />

    <br />

  </fieldset>

  <br />

 

  <fieldset id="adresse">

  <legend>Adresse</legend>

  <table cellspacing="0"cellpadding="0"><tr><td width="360px">

  <label> Fornavn:

  <input class="boxed" type="text" size="8" name="fornavn" />

  </label>

  <br />

  <label> Efternavn:

  <input class="boxed" type="text" size="20" name="efternavn" />

  </label>

  <br />

  <label> Vej:

  <input class="boxed" type="text" size="30" name="vej" />

  Nr/Dør:

  <input class="boxed" type="text" size="3" name="nr" />

  </label>

  <br />

  <label> Postnr:

  <input class="boxed" type="text" maxlength="4" size="4" name="postnr" />

  By/Distrikt:

  <input class="boxed" type="text" size="20" name="by" />

  </label>

  <br />

  <label> Email:

        <input class="boxed" type="text" size="20" name="Email" />

  </label>

  <br />

  </td><td>
        <textarea cols="50" rows="6" style="margin-left:25px;" name="Besked">Evt. besked ved bestilling (kræver email)</textarea>
      </td></tr></table>

  </fieldset>

  <br />

 

  <fieldset>

  <legend>Yderligere informationer</legend>

  <textarea rows="10" cols="50" class="orderform" readonly="readonly">

  Du har bestilt følgende:

  <%

    Set Conn = Server.CreateObject("ADODB.Connection")

    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("shop.mdb")



    If CLng(Session("CartID")) = 0 then

    '  hop til en side hvor man kan lægge noget i kurven (og danne en kurv)

  Else

    SQLStr = "Select articles.name as navn, articles.price as pris, shoppingcartitems.articleamount as antal from articles inner join shoppingcartitems on articles.id = shoppingcartitems.articleid where shoppingcartitems.CartID = " & Session("CartID")

    Set kurv = Conn.Execute(SQLStr)



    total = 0

    Do while not kurv.EOF

      response.write(kurv("antal") & "stk.")

      response.write(" " & kurv("navn"))

      response.write(" á " & kurv("pris"))



      response.write("  ......  " & kurv("pris") * kurv("antal"))

      response.write(" dkk<br>" & vbcrlf)

      total = total + (kurv("pris") * kurv("antal"))



      Kurv.movenext

    Loop



    response.write(" <br>ialt " & total & " dkk <br>" & vbcrlf)



  End If



  %>

  </textarea>

  </fieldset>

  <input class="submit" type="submit" value="afsend" />

</fieldset>

</form>

<p><a href="http://validator.w3.org/check/referer">

<img src="http://www.w3.org/Icons/valid-xhtml10" alt="Valid XHTML 1.0!" height="31" width="88" /></a>



<a class="right" href="http://jigsaw.w3.org/css-validator/">

<img src="http://jigsaw.w3.org/css-validator/images/vcss" alt="Valid CSS!" height="31" width="88" /></a></p>

</body>



</html>



sendmail.asp

<%@LANGUAGE = VBSCRIPT%>
<html>
<body>

<%

' Get the form data
senderEmail = "mail@mail.dk"
subject    = "Bestilling"
recipient  = Request.Form("Email")
recipient2  = "andre@privat.tele.dk"

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Enter the sender data
msg.From = senderEmail
msg.FromName = name

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient

' The subject of the message
msg.Subject = subject

' And the body
msg.body = "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipientBCC recipient2


' The subject of the message
msg.Subject = subject

' And the body
msg.body = "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf




' Now send the message, using the indicated mailserver
if not msg.Send("pop3.mail.dk" ) then
    Response.write "<pre>" & msg.log & "</pre>"
else
    Response.write "Message sent succesfully!"
end if


' And we're done! the message has been sent.


%>
</body>
</html>


//Kan du se hvad der er galt.

tak for dit svar, og siden du ik har oprettet et svar, så tar jeg de points, og håber det ik gør noget, men takker for hjælpen.