Jmail vs CDONT

Jeg vil gerne lave de CDONT sendere jeg har om til jmail. Jeg har en fornemmelse de er bedre og hurtigere.

her er 3 forskellige:

If (LCase(MAIL_COMPONENT) = \"aspmail\") Then
                        \' I need to create a new one every time in order to send
                        \' multiple emails -- it\'s a bug in this object.
                        Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
                        Mailer.CharSet = 2
                        Mailer.RemoteHost = SMTP_SERVER
\'                            Mailer.FromName = sender
                        Mailer.FromAddress = SERVER_EMAIL
                        Mailer.AddRecipient userAddress, userAddress
                        Mailer.Subject = \"\"
                        Mailer.BodyText = sender & partMessage
                       
                        messageSend = Mailer.SendMail
                        If (NOT messageSend) Then
                            mailResponse = mailResponse & Mailer.Response & \"<br />\"
                        End If
                       
                        Mailer.ClearRecipients()
                    ElseIf (LCase(MAIL_COMPONENT) = \"jmail4\") Then
                        \' JMail 4.x
                        Set Mailer = Server.CreateObject(\"JMail.Message\")
                        Mailer.Logging = True
                        Mailer.Silent = True
                        Mailer.From = SERVER_EMAIL
                        Mailer.FromName = sender
                        Mailer.CharSet = \"iso-8859-1\"
                        Mailer.Subject = \"\"
                        Mailer.Body = sender & partMessage
                        Mailer.AddRecipient userAddress, userAddress
                       
                        messageSend = Mailer.Send(SMTP_SERVER)
                        If (NOT messageSend) Then
                            mailResponse = mailResponse & Mailer.Log & \"<br />\"
                        End If
                       
                        Mailer.ClearRecipients()
                    Else
                        \' JMail 3.x
                        Set Mailer = Server.CreateObject(\"JMail.SMTPMail\")
                        Mailer.ServerAddress = SMTP_SERVER
                        Mailer.Logging = True
                        Mailer.Silent = True
                        Mailer.Sender = SERVER_EMAIL
                        Mailer.SenderName = sender
                        Mailer.Charset = \"iso-8859-1\"
                        Mailer.Subject = \"\"
                        Mailer.Priority = 3
                        Mailer.Body = sender & partMessage
                        Mailer.AddRecipient(userAddress)
                       
                        messageSend = Mailer.Execute
                        If ((Err <> 0) OR (NOT messageSend)) Then
                            mailResponse = mailResponse & Mailer.Log & \"<br />\"
                        End If
                       
                        Mailer.ClearRecipients()
                    End If

Det er altså ikke så svært selv...: http://tech.dimac.net/isapiscript.dll?action=read&id=32559&exId=32570

håber du kan hitte rede i det ;)

vil i flette jmail ind i den kode jeg har lagt her?

Jeg har meget at lære endnu. Jeg har et til der henter fra en database jeg også gerne vil have hjælp til, (mod flere point selvf\')

Prøv med den her: (Har ikke testet den!)


<%
strMsg=\"Kære \" & request.form(\"Yourfriendname\") & \",\" & vbcrlf & vbcrlf
strMsg=strMsg & request.form(\"yourname\")
strMsg=strMsg & \" Vil gerne have dig til at tjekke denne side om afhængighed ud\" & vbcrlf & vbcrlf
strMsg=strMsg & \"http://www.counselor.dk\" & vbcrlf & vbcrlf
strMsg=strMsg & request.form(\"yourname\") & \" siger også\" & vbcrlf & vbcrlf
strMsg=strMsg & request.form(\"message\") & vbcrlf & vbcrlf
strMsg=strMsg & \"Hvis du ikke kender \" & request.form(\"yourname\")
strMsg=strMsg & \", så bare se bort fra denne email. Du kan også rapportere misbrug til webmaster@counselor.dk\" 
strMsg=strMsg & vbcrlf & vbcrlf
strMsg=strMsg & \"Kærlig Hilsen,\" & vbcrlf
strMsg=strMsg & \"os fra Counselor.dk\" & vbcrlf
strMsg=Cstr(strMsg)

\' Get the form data
name        = \"Name\"
senderEmail = request.form(\"youremail\")
subject    = \"Counselor.dk anbefaling\"
recipient  = request.form(\"Yourfriendemail\")
body        = strMsg

\' 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 = body

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


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


%>

Husk at lave mail.myDomain.net om til din mail server !!

den er hjemme 30 point til dig :-)....
Vil du lave det andet for 30 til ??

<%
    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

                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
        %>

Ja, fint nok... Bare kom med den....

Det er  kun \"SendCDOMail sTo, sSubject, sBody, sFrom\" der skal rettes i ikke...??

Det kunne godt være at du ville have mig til at rette mere....

Her er den... Jeg er ikke så vildt stærk i SpeedMailing´, men prøv... Du skal rette \"mail.ditdomaene.dk\" til en smtp server, som du vil bruge til at sende mail\'en!

          ::::::::::::::::::::::::::::::::::::::::::

<%
    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

            set JMail = Server.CreateObject( \"JMail.Speedmailer\" )

            \' Send a simple email in a single method call.
            \' You can add multiple recipients by separating them with a \",\"
           
              JMail.SendMail sFrom, sTo, sSubject, sBody, \"mail.dindomaene.dk\"


\'                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
        %>

Kan du lave den her til ren jmail?
<%
    \'If you decide to use JMail, you will need to add a FROMNAME in the call in sendmail.asp
    sub SendJMail(sTo, sSubject, sBody, sFrom, sFromName)
        \'TO DO: Change the mail configuration
        sMailServer = \"counselor.dk\"
        sMailSender = sFrom
        sMailSenderName = sFromName
       
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = sMailServer
        JMail.Sender = sMailSender
        JMail.Sendername = sMailSenderName
        JMail.Subject = sSubject
        JMail.AddRecipient sTo
        JMail.Body = sBody
        JMail.Execute
    end sub

    \'sub SendCDOMail(sTo, sSubject, sBody, sFrom)
        \'Set NewMailObj = CreateObject(\"CDONTS.NewMail\")
        \'NewMailObj.From = sFrom
        \'NewMailObj.To = sTo
        \'NewMailObj.Subject = sSubject
        \'NewMailObj.BOdy = sBOdy
        \'NewMailObj.Send
        \'Set NewMailObj = Nothing
    \'end sub

    sub SendASPMail(sTo, sSubject, sBody, sFrom)
        \'TO DO: Change the mail configuration
        Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
        Mailer.FromName  = sFrom
        Mailer.FromAddress= sFrom
        Mailer.RemoteHost = \"counselor.dk\"
        Mailer.AddRecipient sTo, sTo
        Mailer.Subject    = sSubject
        Mailer.BodyText  = sBody
        if Mailer.SendMail then
          Response.Write \"Mail sendt...\"
        else
        Response.Write \"Mail send failure. Error was \" & Mailer.Response
        end if
    End sub
%>

Ja, men så er det 3*30 point = 90 poinz...

Hvad mener du med \"lave om til JMail\", det er jo tre (en udkommenteret!) hvoraf den ene er JMail ...... Hvad vil du have mig til at lave?!?

Den giver fejl på siden fordi cdonts er indblandet. Jeg håbede på at hvis jeg lavede et \"rent jmail\" ville det forsvinde. 30x3=90 ok.
her er den side der er indblandet:
<!--#include virtual=\"/dev/_send.asp\"-->
<br>

<%
        sTo = request(\"txtTo\")
    if request(\"cmdSend\") <> \"\" then
        sFrom = session(\"devUserName\")
        sTo = request(\"txtTo\")
        sSubject = request(\"txtSubject\")
        lDate = Date()
        lTime = Time()
        sBody = request(\"txtBody\")
        messagesType = request(\"radioType\")

        OpenDB sConnUsers

        sSQL = \"SELECT * FROM Users WHERE UserName = \'\" & sTo & \"\'\"
        rs.open sSQL,,,adCmdTable

        if rs.eof or rs.bof then
            bWrongRecip = True
        end if

        if rs(\"NoSend\") = True then
            bNoSend = true
        end if

        if rs(\"MessengerNotify\") = True then
            bNotify = true
            sEmail = rs(\"Email\")
        end if

       
        if bWrongRecip = True then
            bErr = true
            sErr = \"En bruger ved navn \"\"\" & sTo & \"\"\" findes ikke!\"
        end if

        if bNoSend = True then
            bErr = true
            sErr = \"Du kan ikke sende beskeder til ham/hende fordi de er asociale.\"
        end if

        if sSubject = \"\" then
            bErr = True
            sErr = \"Husk at skrive et emne!\"
        end if

        sBody = RemoveHTML(sBody)
        sBody2 = sBody
        runNo = 1
        AttackLimit = 5
        do
            sBody = sBody2
            sBody2 = RemoveHTML(sBody)
            runNo = runNo + 1
        loop until (sBody = sBody2) OR (runNo = AttackLimit)
        if (runNo >= AttackLimit) then
          sBody = \"\"
          sBody2 = \"\"
        end if         
        sBody = sBody2
        sBody = Replace (sBody,\"\'\",\"\'\'\")
        sBody = Replace (sBody,\"  \",\" \")
        if sBody = \"\" then
            bErr = true
            sErr = \"Husk at skrive en besked!\"
        end if

        if not bErr then
           
            if messagesType = \"privat\" then
              OpenDB sConnMessages

              sSQL = \"SELECT * FROM Messages\"
              rs.Open sSQL,,,adCmdTable

              rs.AddNew
              rs(\"From\") = sFrom
              rs(\"To\") = sTo
              rs(\"Subject\") = sSubject
              rs(\"Date\") = lDate
              rs(\"Time\") = lTime
              rs(\"Body\") = sBody
              rs.Update
                   
              MessageID = rs(\"MessageID\")       

              CloseDB

            else \'Offently beked....
           
              OpenDB sConnUserGuest

              strSQL = \"SELECT Max(IDman) as maxID FROM messages;\"
              rs.Open strSQL,,,adCmdTable
              if (isEmpty(rs(\"maxID\")) = true) OR (isNull(rs(\"maxID\"))=true) then
                nyID = 1
              else
                nyID = rs(\"maxID\") + 1
              end if
              rs.Close   
             
              sSQL = \"SELECT * FROM Messages;\"
              rs.Open sSQL,,,adCmdTable

              rs.AddNew
              rs(\"IDman\") = nyID
              rs(\"From\") = sFrom
              rs(\"To\") = sTo
              rs(\"text\") = sSubject
              rs(\"Date\") = lDate
              rs(\"Time\") = lTime
              rs(\"message\") = sBody
              rs.Update
                   
              MessageID = rs(\"ID\")       

              CloseDB
           
            end if
           
            if (bNotify = true) AND (messagesType = \"privat\") then

                sFrom = \"webmaster@Counselor.dk\"
           
                sBody = \"Hej \" & sTo & vbCrLf & vbCrLf
                sBody = sBody & \"Du har modtaget et hilsen fra counselor.dk\" & vbCrLf
                sBody = sBody & \"Klik på det følgende link for at se din hilsen:\" & vbCrLf
                sBody = sBody & \"http://www.counselor.dk/dev/live/messenger/showmessage.asp?mid=\" & MessageID

                \'TO DO: Select your mail configuration (see _send.asp)
                SendCDOMail sEmail, sSubject, sBody, sFrom
               
                \'TO DO: Select your mail configuration (see _send.asp)
\'                SendCDOMail (sEmail, sSubject, sBody, sFrom)
            end if
            %>

Nu tager vi lige nr. 2 og så venter vi lige 2 sek. med den sidste.. OK?!?
Så laver jeg den du lige har postet..... Om til JMail.....

ok, men de hænger jo sammen

Den tredje er _send.asp ???

yes, og den er en <!--#include virtual=\"/dev/_send.asp\"-->

den sender en mail til den der har fået en hilsen på siden

Jeg ved godt det lyder lidt dumt, når jeg spørger så meget, men det er nogle gange svært at se på folks koder, hvad det er! Det var jo bare at bruge den JMail sub der er: (der skal ikke ændre i _send.asp!!) Se om det virker....



::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

<!--#include virtual=\"/dev/_send.asp\"-->
<br>

<%
        sTo = request(\"txtTo\")
    if request(\"cmdSend\") <> \"\" then
        sFrom = session(\"devUserName\")
        sTo = request(\"txtTo\")
        sSubject = request(\"txtSubject\")
        lDate = Date()
        lTime = Time()
        sBody = request(\"txtBody\")
        messagesType = request(\"radioType\")

        OpenDB sConnUsers

        sSQL = \"SELECT * FROM Users WHERE UserName = \'\" & sTo & \"\'\"
        rs.open sSQL,,,adCmdTable

        if rs.eof or rs.bof then
            bWrongRecip = True
        end if

        if rs(\"NoSend\") = True then
            bNoSend = true
        end if

        if rs(\"MessengerNotify\") = True then
            bNotify = true
            sEmail = rs(\"Email\")
        end if

       
        if bWrongRecip = True then
            bErr = true
            sErr = \"En bruger ved navn \"\"\" & sTo & \"\"\" findes ikke!\"
        end if

        if bNoSend = True then
            bErr = true
            sErr = \"Du kan ikke sende beskeder til ham/hende fordi de er asociale.\"
        end if

        if sSubject = \"\" then
            bErr = True
            sErr = \"Husk at skrive et emne!\"
        end if

        sBody = RemoveHTML(sBody)
        sBody2 = sBody
        runNo = 1
        AttackLimit = 5
        do
            sBody = sBody2
            sBody2 = RemoveHTML(sBody)
            runNo = runNo + 1
        loop until (sBody = sBody2) OR (runNo = AttackLimit)
        if (runNo >= AttackLimit) then
          sBody = \"\"
          sBody2 = \"\"
        end if         
        sBody = sBody2
        sBody = Replace (sBody,\"\'\",\"\'\'\")
        sBody = Replace (sBody,\"  \",\" \")
        if sBody = \"\" then
            bErr = true
            sErr = \"Husk at skrive en besked!\"
        end if

        if not bErr then
           
            if messagesType = \"privat\" then
              OpenDB sConnMessages

              sSQL = \"SELECT * FROM Messages\"
              rs.Open sSQL,,,adCmdTable

              rs.AddNew
              rs(\"From\") = sFrom
              rs(\"To\") = sTo
              rs(\"Subject\") = sSubject
              rs(\"Date\") = lDate
              rs(\"Time\") = lTime
              rs(\"Body\") = sBody
              rs.Update
                   
              MessageID = rs(\"MessageID\")       

              CloseDB

            else \'Offently beked....
           
              OpenDB sConnUserGuest

              strSQL = \"SELECT Max(IDman) as maxID FROM messages;\"
              rs.Open strSQL,,,adCmdTable
              if (isEmpty(rs(\"maxID\")) = true) OR (isNull(rs(\"maxID\"))=true) then
                nyID = 1
              else
                nyID = rs(\"maxID\") + 1
              end if
              rs.Close   
             
              sSQL = \"SELECT * FROM Messages;\"
              rs.Open sSQL,,,adCmdTable

              rs.AddNew
              rs(\"IDman\") = nyID
              rs(\"From\") = sFrom
              rs(\"To\") = sTo
              rs(\"text\") = sSubject
              rs(\"Date\") = lDate
              rs(\"Time\") = lTime
              rs(\"message\") = sBody
              rs.Update
                   
              MessageID = rs(\"ID\")       

              CloseDB
           
            end if
           
            if (bNotify = true) AND (messagesType = \"privat\") then

                sFrom = \"webmaster@Counselor.dk\"
           
                sBody = \"Hej \" & sTo & vbCrLf & vbCrLf
                sBody = sBody & \"Du har modtaget et hilsen fra counselor.dk\" & vbCrLf
                sBody = sBody & \"Klik på det følgende link for at se din hilsen:\" & vbCrLf
                sBody = sBody & \"http://www.counselor.dk/dev/live/messenger/showmessage.asp?mid=\" & MessageID

                \'TO DO: Select your mail configuration (see _send.asp)
\'              SendCDOMail sEmail, sSubject, sBody, sFrom
                SendJMail(sEmail, sSubject, sBody, sFrom, \"Dette er Navnet der sendes fra!\")
               
                \'TO DO: Select your mail configuration (see _send.asp)
\'                SendCDOMail (sEmail, sSubject, sBody, sFrom)
            end if
            %>

Sådan her lavede jeg den SendJMail sTo, sSubject, sBody, sFrom, sFromName
Det så ud til at virke

Den der speedmailer, kan man ikke lave den til queue? der er over 200 mails der skal sendes:)

Jo, hvs din serv understøtter Message queueing... Men du skal hellere spørge dit webhotels adminstrator... Men jeg kan godt lave scriptet til dig alligevel.. Så kan du jo se om det virker... To sekunder så laver jeg det lige _send.asp om så den bliver tilføjet en queue .... Jeg skal også bruge et pickup-directory... Har du noget ide om hvad det skal være... Alm. er det: c:\\inetpub\\mailroot\\pickup\\
Men det skal du også have af vide ad webhotel\'et!

det er min egen server :-) så jeg laver min pickup hvor jeg vil :-)
Hvor kan jeg se om jeg har Message queueing

Det ved jeg ikke... Men prøv scriptet... Jeg har en anden version også, så hvis det virker betyder det ikke at du IKKE har queueing !


:::::::::::::::::::::::::::::::::::::::::::::::::::::

<%
    \'If you decide to use JMail, you will need to add a FROMNAME in the call in sendmail.asp
    sub SendJMail(sTo, sSubject, sBody, sFrom, sFromName)
        \'TO DO: Change the mail configuration
        sMailServer = \"counselor.dk\"
        sMailSender = sFrom
        sMailSenderName = sFromName
       
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = sMailServer
        JMail.Sender = sMailSender
        JMail.Sendername = sMailSenderName
        JMail.Subject = sSubject
        JMail.AddRecipient sTo
        JMail.Body = sBody
        JMail.MSPickupDirectory = \"c:\\inetpub\\mailroot\\pickup\\\"
        JMail.nq
    end sub

    \'sub SendCDOMail(sTo, sSubject, sBody, sFrom)
        \'Set NewMailObj = CreateObject(\"CDONTS.NewMail\")
        \'NewMailObj.From = sFrom
        \'NewMailObj.To = sTo
        \'NewMailObj.Subject = sSubject
        \'NewMailObj.BOdy = sBOdy
        \'NewMailObj.Send
        \'Set NewMailObj = Nothing
    \'end sub

    sub SendASPMail(sTo, sSubject, sBody, sFrom)
        \'TO DO: Change the mail configuration
        Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
        Mailer.FromName  = sFrom
        Mailer.FromAddress= sFrom
        Mailer.RemoteHost = \"counselor.dk\"
        Mailer.AddRecipient sTo, sTo
        Mailer.Subject    = sSubject
        Mailer.BodyText  = sBody
        if Mailer.SendMail then
          Response.Write \"Mail sendt...\"
        else
        Response.Write \"Mail send failure. Error was \" & Mailer.Response
        end if
    End sub
%>

Hvis du kører W2K kan du godt slette linien:
      JMail.MSPickupDirectory = \"c:\\inetpub\\mailroot\\pickup\\\"

Det der virkede, har jeg så ikke queueing?. Jeg kan jo installere det ikke?
jeg kører w2k

Virkede det eller virkede det ikke?!? Jeg blev lidt forvirret af din kommentar....

Jeg får ret mange beskeder på at mailen ikke kunne levers med det der speedmailer. Kan det ikke være fordi der ikke er queueing?. (den prøver ikke så mange gange?)

Jo, det er det... Men jeg ved altså ikke hvordan du kan få fat i det.....!

Det her virkede:
Det ved jeg ikke... Men prøv scriptet... Jeg har en anden version også, så hvis det virker betyder det ikke at du IKKE har queueing !


:::::::::::::::::::::::::::::::::::::::::::::::::::::

<%
    \'If you decide to use JMail, you will need to add a FROMNAME in the call in sendmail.asp
    sub SendJMail(sTo, sSubject, sBody, sFrom, sFromName)
        \'TO DO: Change the mail configuration
        sMailServer = \"counselor.dk\"
        sMailSender = sFrom
        sMailSenderName = sFromName
       
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = sMailServer
        JMail.Sender = sMailSender
        JMail.Sendername = sMailSenderName
        JMail.Subject = sSubject
        JMail.AddRecipient sTo
        JMail.Body = sBody
        JMail.MSPickupDirectory = \"c:\\inetpub\\mailroot\\pickup\\\"
        JMail.nq
    end sub

    \'sub SendCDOMail(sTo, sSubject, sBody, sFrom)
        \'Set NewMailObj = CreateObject(\"CDONTS.NewMail\")
        \'NewMailObj.From = sFrom
        \'NewMailObj.To = sTo
        \'NewMailObj.Subject = sSubject
        \'NewMailObj.BOdy = sBOdy
        \'NewMailObj.Send
        \'Set NewMailObj = Nothing
    \'end sub

    sub SendASPMail(sTo, sSubject, sBody, sFrom)
        \'TO DO: Change the mail configuration
        Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
        Mailer.FromName  = sFrom
        Mailer.FromAddress= sFrom
        Mailer.RemoteHost = \"counselor.dk\"
        Mailer.AddRecipient sTo, sTo
        Mailer.Subject    = sSubject
        Mailer.BodyText  = sBody
        if Mailer.SendMail then
          Response.Write \"Mail sendt...\"
        else
        Response.Write \"Mail send failure. Error was \" & Mailer.Response
        end if
    End sub
%> 

Er det det script der er beregnet til queueing??
Det lige her over :-)

Nu har jeg installeret \"message queueing system\"

Jaaaa... Men jeg er ikke sikker på om det skal hedde Server.CreateObject(\"JMail.SMTPMail\") eller Server.CreateObject(\"JMail.Message\")

OK. Så burde du have queueing!!! Men virker det med queueing scriptet?!?

jmail.SpeedMailer error \'8000ffff\'

The message was undeliverable. All servers failed to receive the message

efter jeg installerede message queueing system

JMail.SendMail sFrom, sTo, sSubject, sBody, \"counselor.dk\" \'\'\'den her linie giver fejl

Enten er serveren ikke klar til at modtage meddelsen eller også har vi fået indtasten smtp-servern forkert.... Er du sikker på at du har indtastet mailservern korrekt...??

Det vil normalt være \"smtp.counselor.dk\" eller \"mail.counselor.dk\"
Men ihvertfald ikke bare \"counselor.dk\" !!

her er semd.asp : <%
    \'If you decide to use JMail, you will need to add a FROMNAME in the call in sendmail.asp
    sub SendJMail(sTo, sSubject, sBody, sFrom, sFromName)
        \'TO DO: Change the mail configuration
        sMailServer = \"counselor.dk\"
        sMailSender = sFrom
        sMailSenderName = sFromName
       
        Set JMail = Server.CreateObject(\"JMail.Message\")
        JMail.ServerAddress = sMailServer
        JMail.Sender = sMailSender
        JMail.Sendername = sMailSenderName
        JMail.Subject = sSubject
        JMail.AddRecipient sTo
        JMail.Body = sBody
        JMail.MSPickupDirectory = \"c:\\inetpub\\mailroot\\pickup\\\"
        JMail.nq
    end sub

    \'sub SendCDOMail(sTo, sSubject, sBody, sFrom)
        \'Set NewMailObj = CreateObject(\"CDONTS.NewMail\")
        \'NewMailObj.From = sFrom
        \'NewMailObj.To = sTo
        \'NewMailObj.Subject = sSubject
        \'NewMailObj.BOdy = sBOdy
        \'NewMailObj.Send
        \'Set NewMailObj = Nothing
    \'end sub

    sub SendASPMail(sTo, sSubject, sBody, sFrom)
        \'TO DO: Change the mail configuration
        Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
        Mailer.FromName  = sFrom
        Mailer.FromAddress= sFrom
        Mailer.RemoteHost = \"counselor.dk\"
        Mailer.AddRecipient sTo, sTo
        Mailer.Subject    = sSubject
        Mailer.BodyText  = sBody
        if Mailer.SendMail then
          Response.Write \"Mail sendt...\"
        else
        Response.Write \"Mail send failure. Error was \" & Mailer.Response
        end if
    End sub
%>
her er sendmail.asp
<!--#include virtual=\"/dev/_send.asp\"-->
<!--#include virtual=\"/dev/sendsms.asp\"-->

<%
    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

            set JMail = Server.CreateObject( \"JMail.Message\" )

            \' Send a simple email in a single method call.
            \' You can add multiple recipients by separating them with a \",\"
           
              JMail.SendMail sFrom, sTo, sSubject, sBody, \"counselor.dk\"


\'                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
        %>

såden er det altså: counselor.dk

Ligger din smtp-server der!??

Ja

Prøv med den her: (Jeg er ved at være lidt blank nu!) Og træt! :-)

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::

<%
    \'If you decide to use JMail, you will need to add a FROMNAME in the call in sendmail.asp
    sub SendJMail(sTo, sSubject, sBody, sFrom, sFromName)
        \'TO DO: Change the mail configuration
        sMailServer = \"counselor.dk\"
        sMailSender = sFrom
        sMailSenderName = sFromName
       
        Set JMail = Server.CreateObject(\"JMail.Message\")
        \'JMail.ServerAddress = sMailServer
        JMail.Sender = sMailSender
        JMail.Sendername = sMailSenderName
        JMail.Subject = sSubject
        JMail.AddRecipient sTo
        JMail.Body = sBody
        JMail.MSPickupDirectory = \"c:\\inetpub\\mailroot\\pickup\\\"
        JMail.nq
    end sub

    \'sub SendCDOMail(sTo, sSubject, sBody, sFrom)
        \'Set NewMailObj = CreateObject(\"CDONTS.NewMail\")
        \'NewMailObj.From = sFrom
        \'NewMailObj.To = sTo
        \'NewMailObj.Subject = sSubject
        \'NewMailObj.BOdy = sBOdy
        \'NewMailObj.Send
        \'Set NewMailObj = Nothing
    \'end sub

    sub SendASPMail(sTo, sSubject, sBody, sFrom)
        \'TO DO: Change the mail configuration
        Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
        Mailer.FromName  = sFrom
        Mailer.FromAddress= sFrom
        Mailer.RemoteHost = \"counselor.dk\"
        Mailer.AddRecipient sTo, sTo
        Mailer.Subject    = sSubject
        Mailer.BodyText  = sBody
        if Mailer.SendMail then
          Response.Write \"Mail sendt...\"
        else
        Response.Write \"Mail send failure. Error was \" & Mailer.Response
        end if
    End sub
%>

Nå... Vi kan snakke videre imorgen.... Godnat....

Godmorgen, jeg kunne ikke sige godnat igår. Jeg kunne ikke komme ind på experten? måske var jeg for træt. Jeg prøver lige den sidste der inden jeg går på arbejde. Vi \"ses\" senere

Dette er den fejl jeg får:
Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method: \'SendJMail\'

/dev/sendmail.asp, line 53  (JMail.SendMail sFrom, sTo, sSubject, sBody, \"counselor.dk\")


Her er det eksempel der følger med jmail
<%

\'*************************************************
\'*                                              *
\'*  Produced by Dimac                          *
\'*                                              *
\'*  More examples can be found at                 *
\'*  http://tech.dimac.net                      *
\'*                                              *
\'*  Support is available at our helpdesk        *
\'*  http://support.dimac.net                    *
\'*                                              *
\'*  Our main website is located at              *
\'*  http://www.dimac.net                        *
\'*                                              *
\'*************************************************


    \' Example on how to use queueing
   
    \' The message is set up as usual..
    set Message = Server.CreateObject( \"JMail.Message\" )

    Message.From = \"myEmail@mydomain.com\"
    Message.Subject = \"Testing\"
    Message.Body = \"This is a test mail\"
    Message.AddRecipient \"myRecipient@hisdomain.com\",\"A Name\"

    \' Instead of using the Send() method, we use nq
    \' The email will be placed in the mail queue and sent
    \' as soon as the mailservice picks it up.
    \' We do not need to specify a mailserver, as the
    \' mailservice does all that for us.
   
    \' What we do need to do is to specify where the MS pickup
    \' directory is. If you are running w3 JMail on a
    \' Windows 2000 server, this is not neccessary, otherwise
   
    \' Unless you are running windows 2000 on your webserver,
    \' you will need to specify where the MS pickup directory
    \' is (c:\\inetpub\\mailroot\\pickup\\).
   
    Message.MSPickupDirectory = \"c:\\inetpub\\mailroot\\pickup\\\"
    Message.nq
%>

Jeg er squ ked af det, men jeg kan ikke hjælpe dig med det sidste problem..... Jeg ved ikke nok om det.... Håber du kan bruge de to andre...

Casper //

ok, jeg ser om der kommer andre. Jeg giver dig de 60 point for din hjælp. Tak for din hjælp.

Nå det kunne man ikke, du fik alle 90 :-)

No prblem..... Thx for poinz... Det kan man godt!: Tryk på Avanceret og vælg hvormange point vedkommende skal have...