Nyheder i html

hvilket mail komponent bruger du?

jmail
og det jeg har ser sådan her ud
<%
    if request("cmdSend") <> "" then
        sSubject = request("txtSubject")
        sFrom = request("txtFrom")
        sGetBody = request("txtBody")
        if request("chkNotification") <> "" then sFilter = " WHERE subNotifications = True"
        if request("chkNewsletter") <> "" then
            if len(sFilter) <> 0 then
                sFilter = sFilter & " OR subNewsletter = True"
            else
                sFilter = " WHERE subNewsletter = True"
            end if
        end if

        if request("chkAllUsers") <> "" then sFilter = ""
       
        OpenDB sConnUsers
       
        if (request("chkAllUsers") <> "") OR (request("chkNotification") <> "") OR (request("chkNewsletter") <> "") then
            sSQL = "SELECT * FROM Users" & sFilter
            rs.Open sSQL,,,adCmdTable

            response.write "<br>Beginning MailSender Sequence...<br><br>"

            do while not rs.eof or rs.bof
                sFirstName = rs("FirstName")
                sTo = rs("eMail")
                sBody = "Hej " & sFirstName & " " & sGetBody
                SendJMail sTo, sSubject, sBody, sFrom, sFromName
                'SendCDOMail sTo, sSubject, sBody, sFrom

                response.write "Mail sent to:: " & rs("UserName") & ":: " & sTo & "<br>"
                rs.movenext
            loop

            response.write "<br>All mails sent! <a href=""sendmail.asp"">Click here</a> to return to MailSender."
            rs.Close
        end if

Brug følgende syntax i din JMail ...

msg.ContentType = "text/html"

og "msg" ændres alt efter hvordan du kalder komponentet. :o)

/Mads

er det her du mener?
<%
' dette er et forsøg med enque ?
sub SendJMail(sTo, sSubject, sBody, sFrom, sFromName)
    set Message = Server.CreateObject( "JMail.Message" )
   
   
    Message.Maildomain = "domæne.dk"
    Message.From = sFrom
    Message.Subject = sSubject
    Message.Body = sBody
    Message.AddRecipient sTo
   
    Message.MSPickupDirectory = "c:\MDaemon\REMOTEQ\"
    Message.nq
end sub
%>

sub SendJMail(sTo, sSubject, sBody, sFrom, sFromName)
    set Message = Server.CreateObject( "JMail.Message" )
   
    Message.ContentType = "text/html"
    Message.Maildomain = "domæne.dk"
    Message.From = sFrom
    Message.Subject = sSubject
    Message.Body = sBody
    Message.AddRecipient sTo
   
    Message.MSPickupDirectory = "c:\MDaemon\REMOTEQ\"
    Message.nq
end sub

Malte >>  Jepper.... du tilføjer bare

Message.ContentType = "text/html"

Så kan du afsende i HTML format...

/Mads :)

Har du så også et forslag til hvordan den første side skal se ud hvis jeg skal udfylde 1 formular der kommer med som tekst i html emailen?

Du henter de forskellige felter i din formular med Request.Form objektet, og indsætter det...

her er et eksempel som jeg selv bruger, dog er det en standard mail som udsendes ved tilmelding, men princippet er det samme...

----------------------------------------------------------
body = "<html><head><style>td{font-size:12px;}</style></head><body font-size=2><font face=verdana size=2>"
body = body & "Tak for din tilmelding af <b>''" & bandnavn & "''</b> til Rock På Brogaarden 2002. <br>"
body = body & "<br>Du har afsendt følgende oplysninger: <br><br>"
body = body & "----------- <b>Kontaktoplysninger</b> -----------<br><br>"
body = body & "<b>Bandnavn: </b>" & Bandnavn & " - <b>Genre: </b>" & genre & "<br><br>"
body = body & "<b>Kontaktperson: </b><br>" & kperson & "<br>"
body = body & "<b>Adresse: </b><br>" & adresse & ", "
body = body & by & "<br>"
body = body & "<b>Telefon: </b><br>" & tlf & "<br><br>"
body = body & "----------- <b>Band Oplysninger</b> -----------<br><br>"
body = body & "<table width='40%'>"
body = body & "<tr>"
body = body & "<td width='15%'><b>" & navn1 & "</b></td><td>" & inst1 & "</td><td>" & sang1 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn2 & "</b> </td><td>" & inst2 & "</td><td>" & sang2 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn3 & "</b> </td><td>" & inst3 & "</td><td>" & sang3 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn4 & "</b> </td><td>" & inst4 & "</td><td>" & sang4 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn5 & "</b> </td><td>" & inst5 & "</td><td>" & sang5 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn6 & "</b> </td><td>" & inst6 & "</td><td>" & sang6 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn7 & "</b> </td><td>" & inst7 & "</td><td>" & sang7 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn8 & "</b> </td><td>" & inst8 & "</td><td>" & sang8 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn9 & "</b> </td><td>" & inst9 & "</td><td>" & sang9 & "</td></tr>"
body = body & "<tr><td width='30%'><b>" & navn10 & "</b> </td><td>" & inst10 & "</td><td>" & sang10 & "</td></tr>"
body = body & "</table><br><br>"
body = body & "<b>" & lefthand & "</b><br>"
body = body & "<b>Kan spille: </b>" & sat & " - " & sun & "<br>"
body = body & "<b>" & video & "</b><br><br>"
body = body & "----------- <b>Betalings Oplysninger</b> -----------<br><br>"
body = body & "<b>Betalingsmetode: &nbsp;&nbsp;</b>" & betaling & "<br><br>"
body = body & "----------------------------------------------<br><br>"
body = body & "Har du/i nogle spørgsmål, kan der rettes hendvendelse til<br>"
body = body & "<a href='mailto:rock@brogaarden-fc.dk'>rock@brogaarden-fc.dk</a><br><br>"
body = body & "Vi glæder os meget til at se dig/jer<br><br>"
body = body & "Med venlig hilsen<br>"
body = body & "<b>Brogaarden Fritidscenter</b>"
body = body & "</font></body></html>"
-----------------------------------------------------------------

i det ovenstående har jeg inden da hentet en masse oplysninger fra en form, og defineret dem som forskellige variabler.

og jeg henter hele "body" med følgende ...

Message.Body = body


/Mads

nu vil der her jo være lidt "ged" i det, da experten.dk laver breaks i linierne hvis de er for lange...  men i min oprindelige kode starter alle linier med body = & body  osv ...

/Mads

Jeg prøver lige

Jeg kan simpelthen ikke få det til at virke, Har du noget du kan maile mig som vil gøre det nemmere for mig ?

mama@counselor.dk

Hvad er det du ikke kan få til at virke ? .. :o) .... 

Prøv at beskriv de problemer der opstår :o)
/mads

Jeg kan ikke finde ud af hvordan jeg laver udtræk fra databasen og får det ind i body på mailen?
<%
    if request("cmdSend") <> "" then
        sSubject = request("txtSubject")
        sFrom = request("txtFrom")
        sGetBody = request("txtBody")
        if request("chkNotification") <> "" then sFilter = " WHERE subNotifications = True"
        if request("chkNewsletter") <> "" then
            if len(sFilter) <> 0 then
                sFilter = sFilter & " OR subNewsletter = True"
            else
                sFilter = " WHERE subNewsletter = True"
            end if
        end if

        if request("chkAllUsers") <> "" then sFilter = ""
       
        OpenDB sConnUsers
       
        if (request("chkAllUsers") <> "") OR (request("chkNotification") <> "") OR (request("chkNewsletter") <> "") then
            sSQL = "SELECT * FROM Users" & sFilter
            rs.Open sSQL,,,adCmdTable

            response.write "<br>Beginning MailSender Sequence...<br><br>"

            do while not rs.eof or rs.bof
                sFirstName = rs("FirstName")
                sTo = rs("eMail")
                sBody = "Hej " & sFirstName & " " & sGetBody
                SendJMail sTo, sSubject, sBody, sFrom, sFromName
                'SendCDOMail sTo, sSubject, sBody, sFrom

                response.write "Mail sent to:: " & rs("UserName") & ":: " & sTo & "<br>"
                rs.movenext
            loop

            response.write "<br>All mails sent! <a href=""sendmail.asp"">Click here</a> to return to MailSender."
            rs.Close
        end if
       
        strFra = "Counselor.dk"  ' Skal rette til FRA
        strBesked = sGetBody
        if request("chkSMSNewsletter") <> "" then
            strSQL = "SELECT mobil FROM users WHERE (SMSMD = true) AND (Mobil<>'');"
            rs.Open strSQL,,,adCmdTable
            do while not rs.EOF
                Response.write SMSsender(rs("mobil"),strFra,strBesked) & "<br>"
                rs.movenext
            loop
        end if
        'rs.Close
        %>
        <!--#include virtual="/dev/_footer.asp"-->
        <%
        response.end
    end if
%>

<br>

<p class="smallaction"> MailSenderen</p>

Alt hvad du skriver herunder bliver sendt til alle brugerne<br>
<br>
<strong>Brugernes fornavn kommer automatisk ind i mailen.</strong> <form action="sendmail.asp" method="post">
<table border=0><table border=0>
    <tr>
        <td class="smallerheader">Subject</td>
        <td><input type="text" name="txtSubject" class="tbflat" value="<%=sSubject%>"></td>
    </tr>
    <tr>
        <td class="smallerheader">From</td>
        <td><input type="text" name="txtFrom" class="tbflat" value="<%=sFrom%>"></td>
    </tr>
    <tr>
        <td class="smallerheader">Body</td>
        <td><textarea cols=40 rows=5 name="txtBody" class="tbflat"><%=sBody%>

<table width="600" align="center" border="2" bordercolor="#0033FF" bgcolor="#33CCFF">
  <tr>
    <td>
      <div align="center"><a href="http://www.counselor.dk"><img src="http://www.counselor.dk/dev/bannere/banner2.jpg" width="468" height="60" border="0"></a></div>
    </td>
  </tr>
  <tr>
    <td>
   
    Hej (hvordan får jeg et fornavn her??) her har du den kommende uges m&aelig;rkedage p&aring; Counselor.dk.
      Jeg har valgt, som skrevet i den sidste nyhedsmail at kun sende en gang
      om ugen. Vi er jo blevet s&aring; mange at der nogen gange er 5 om dagen
      der har m&aelig;rkedag, og det bliver jo til en del mails.</td>
  </tr>

prøv at sætte det jeg har skrevet i filen

http://www.kingmedia.dk/mailsender.txt

ind her

do while not rs.eof or rs.bof

HER SÆTTER DU DET IND

                sFirstName = rs("FirstName")
                sTo = rs("eMail")
                sBody = "Hej " & sFirstName & " " & sGetBody
                SendJMail sTo, sSubject, sBody, sFrom, sFromName
                'SendCDOMail sTo, sSubject, sBody, sFrom

og ændrer sBody = "Hej " & sFirstName & " " & sGetBody

til

sBody = sTop

prøv det :)