Søg
Avatar billede b.a.s. Nybegynder
27. februar 2002 - 21:51 Der er 11 kommentarer og
1 løsning

Filserver og sms

Jeg har downloadet et SMS script, men den vil ikke helt funge.
Her er hvad den siger der er fejl i:

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.filserver.dk"

Jeg er dog ikke sikker på hvad mail serveren hos filserver hedder..
Avatar billede tniels Nybegynder
27. februar 2002 - 21:58 #1
Du kan bare prøve med:
Mailer.RemoteHost = "post.tele.dk"

Det er en ganske normal smtp-server med åben for relay.
Avatar billede tniels Nybegynder
27. februar 2002 - 22:00 #2
Er det forresten i den:
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

eller i den linie:
Mailer.RemoteHost = "mail.filserver.dk"

fejlen kommer?
Hvis det er i den første, er det muligvis fordi mailkomponenten ikke er installeret - kan du ikke prøve at sende fejlen?
Avatar billede b.a.s. Nybegynder
27. februar 2002 - 22:02 #3
det var åbenbart ikke den, fordi jeg fik denne besked:

Server.CreateObject Failed

Men filserver skulle jo understøtte asp og aspmail?
Avatar billede tniels Nybegynder
27. februar 2002 - 22:17 #4
Det står på http://www.filserver.dk/information.asp at de understøtter ASPemail. Det er ikke det samme på ASPmail.

Med ASPemail kan du sende på denne måde:
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.mycompany.com"
Mail.From = "sales@mycompany.com"
Mail.FromName = "Sales Department"
Mail.AddAddress "jsmith@company1.com", "John Smith"
Mail.Subject = "Sales Receipt"
Mail.Body = "Dear John:" & chr(13) & chr(10) & "Thank you for your business."
On Error Resume Next
Mail.SendToQueue
If Err <> 0 Then
    Response.Write "An error occurred: " & Err.Description
End If
Avatar billede tniels Nybegynder
27. februar 2002 - 22:19 #5
Du kan se manualen her:
http://www.aspemail.com/manual.html
Avatar billede b.a.s. Nybegynder
27. februar 2002 - 22:58 #6
Dvs. det ikke er muligt at SMS'er fra fislerver?
Avatar billede tniels Nybegynder
27. februar 2002 - 23:34 #7
Jo, det burde ikke være noget problem. Du kan bare ikke bruge ASPmail, du skal bruge ASPemail.

I stedet for:
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
skal du bruge:
Set Mailer = Server.CreateObject("Persits.MailSender")

Hvis du sender hele koden, kan jeg hurtigt skrive den om for dig.
Avatar billede b.a.s. Nybegynder
27. februar 2002 - 23:35 #8
<%
'--------- SKAL TILRETTES FØR BRUG START ---------
'1 = JMail
'2 = ASPMail
'3 = CDONTS
'4 = Webhostme mail
mailer = 2

afsendermail = "badasssnake@mail.dk"
'--------- SKAL TILRETTES FØR BRUG SLUT ----------

fedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FFFFFF""><STRONG>"
gulfedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FFFF00""><STRONG>"
rodfedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FF0000""><STRONG>"
fedstor = "<FONT FACE=""Arial"" SIZE=""4"" COLOR=""#000099""><STRONG>"
fe = "</STRONG></FONT>"



Function sendsms( mobil )
if Request.Form("telefonnummer") = "" or Request.Form("afsender") = "" or Request.Form("besked") = "" then
    sendsms = rodFedfont &"Alle felter SKAL udfyldes !!! "& fe
else
'**************** Teleselskaber email start ****************
    teledk = "@sms.tdm.dk"
    sonofon = "@note.sonofon.dk"
    telia = "@gsm1800.telia.dk"
    mobilix = "@sms.mobilix.dk"
'**************** Teleselskaber email slut *****************
'**************** Find teleselskab start ****************
If Not IsNumeric(mobil) Then
    gyldigt = 0
else
    if left(mobil,4) < 2010 OR len(mobil) < 8 then
        gyldigt = 0
    else
        gyldigt = 1
    end if
end if
    if gyldigt = 1 then
        if int(left(mobil,4)) => 2010 AND int(left(mobil,4)) =< 2059 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 2060 AND int(left(mobil,4)) =< 2099 then
            selskab = sonofon
        elseif  int(left(mobil,4)) => 2110 AND int(left(mobil,4)) =< 2199 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 2210 AND int(left(mobil,4)) =< 2299 then
            selskab = sonofon
        elseif  int(left(mobil,4)) => 2310 AND int(left(mobil,4)) =< 2499 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 2610 AND int(left(mobil,4)) =< 2699 then
            selskab = mobilix
        elseif  int(left(mobil,4)) => 2810 AND int(left(mobil,4)) =< 2899 then
            selskab = telia
        elseif  int(left(mobil,4)) => 3010 AND int(left(mobil,4)) =< 3099 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 4010 AND int(left(mobil,4)) =< 4049 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 4050 AND int(left(mobil,4)) =< 4099 then
            selskab = sonofon
        else
            gyldigt = 0
        end if
    end if

    if gyldigt = 1 then
        navn = "Besked fra "& Request.Form("afsender")
        tekst = Request.Form("besked")
        mobiltekst = navn &". "& Request.Form("besked")   
        email = mobil & selskab
'******** BESKED SENDES START ********

        if mailer = 1 then
'--------------JMail mail start---------------------

            Set JMail = Server.CreateObject("JMail.SMTPMail")
            JMail.ServerAddress = "post.tele.dk"
            JMail.Sender = afsendermail
            if selskab <> "@sms.tdm.dk" then
                JMail.Subject = navn
                JMail.Body = tekst
            else
                JMail.Body = mobiltekst
            end if
            JMail.AddRecipient email
            JMail.Execute
            set JMail = nothing

'--------------JMail mail slut---------------------
        elseif mailer = 2 then
'--------------ASPMail mail start---------------------

            Set Mail = Server.CreateObject("Persits.MailSender")
            Mailer.RemoteHost = "post.tele.dk"
            Mailer.FromAddress = afsendermail
            Mailer.AddRecipient email
            if selskab <> "@sms.tdm.dk" then
                Mailer.Subject = navn
                Mailer.BodyText = tekst
            else
                Mailer.BodyText = mobiltekst
            end if
            Mailer.SendMail

'--------------ASPMail mail slut---------------------
        elseif mailer = 3 then
'--------------CDONTS mail start---------------------

            Set sms = CreateObject("CDONTS.NewMail")
            sms.From = afsendermail
            sms.To = email
            if selskab <> "@sms.tdm.dk" then
                sms.Subject = navn
                sms.Body = tekst
            else
                sms.Body = mobiltekst
            end if
            sms.Send
            Set sms = Nothing

'--------------CDONTS mail slut---------------------
        elseif mailer = 3 then
'------------Webhostme mail start--------------------

                Set SMTPObj = CreateObject("WebHostMeMail.SMTP")
                SMTPObj.SMTPServer = "Mail.webhostme.com"
                SMTPObj.ToAdd = email
                SMTPObj.FromAdd = afsendermail
                if selskab <> "@sms.tdm.dk" then
                    SMTPObj.Subject = navn
                    SMTPObj.Body = tekst
                else
                    SMTPObj.Body = mobiltekst
                end if
                SMTPObj.Connect
                result = SMTPObj.EMail
                SMTPObj.Quit

'------------Webhostme mail slut---------------------
        end if
    end if
    if gyldigt = 1 then
        sendsms = fedfont &"Besked er sendt til:<BR><BR>Telefonnummer: "& rodfedfont & mobil
'******** BESKED SENDES SLUT *********
    else
        sendsms = rodFedfont &"Telefonnummeret er ikke gyldigt !!! "& fe
    end if
'**************** Find teleselskab slut *****************
end if
End Function
'---------------------------------------------------------------
%>





Ja den er lidt lang :D
Avatar billede tniels Nybegynder
27. februar 2002 - 23:56 #9
Har du selv været inde og rette i den. Der er en del fejl i den.
Når men nu har jeg enten rettet fejlene, eller "uskadeliggjort" dem. Derudover har jeg tilføjet ASPemail.

Jeg har ikke lige haft mulighed for at teste det. Det kan du lige gøre - så må vi håbe, at jeg er lige så fejlfri, som jeg går og tror :-)

<%
'--------- SKAL TILRETTES FØR BRUG START ---------
'1 = JMail
'2 = ASPMail
'3 = CDONTS
'4 = Webhostme mail
'5 = ASPemail
mailer = 5

afsendermail = "badasssnake@mail.dk"
'--------- SKAL TILRETTES FØR BRUG SLUT ----------

fedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FFFFFF""><STRONG>"
gulfedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FFFF00""><STRONG>"
rodfedfont = "<FONT FACE=""Arial"" SIZE=""2"" COLOR=""#FF0000""><STRONG>"
fedstor = "<FONT FACE=""Arial"" SIZE=""4"" COLOR=""#000099""><STRONG>"
fe = "</STRONG></FONT>"



Function sendsms( mobil )
if Request.Form("telefonnummer") = "" or Request.Form("afsender") = "" or Request.Form("besked") = "" then
    sendsms = rodFedfont &"Alle felter SKAL udfyldes !!! "& fe
else
'**************** Teleselskaber email start ****************
    teledk = "@sms.tdm.dk"
    sonofon = "@note.sonofon.dk"
    telia = "@gsm1800.telia.dk"
    mobilix = "@sms.mobilix.dk"
'**************** Teleselskaber email slut *****************
'**************** Find teleselskab start ****************
If Not IsNumeric(mobil) Then
    gyldigt = 0
else
    if left(mobil,4) < 2010 OR len(mobil) < 8 then
        gyldigt = 0
    else
        gyldigt = 1
    end if
end if
    if gyldigt = 1 then
        if int(left(mobil,4)) => 2010 AND int(left(mobil,4)) =< 2059 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 2060 AND int(left(mobil,4)) =< 2099 then
            selskab = sonofon
        elseif  int(left(mobil,4)) => 2110 AND int(left(mobil,4)) =< 2199 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 2210 AND int(left(mobil,4)) =< 2299 then
            selskab = sonofon
        elseif  int(left(mobil,4)) => 2310 AND int(left(mobil,4)) =< 2499 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 2610 AND int(left(mobil,4)) =< 2699 then
            selskab = mobilix
        elseif  int(left(mobil,4)) => 2810 AND int(left(mobil,4)) =< 2899 then
            selskab = telia
        elseif  int(left(mobil,4)) => 3010 AND int(left(mobil,4)) =< 3099 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 4010 AND int(left(mobil,4)) =< 4049 then
            selskab = teledk
        elseif  int(left(mobil,4)) => 4050 AND int(left(mobil,4)) =< 4099 then
            selskab = sonofon
        else
            gyldigt = 0
        end if
    end if

    if gyldigt = 1 then
        navn = "Besked fra "& Request.Form("afsender")
        tekst = Request.Form("besked")
        mobiltekst = navn &". "& Request.Form("besked")   
        email = mobil & selskab
'******** BESKED SENDES START ********

        if mailer = 1 then
'--------------JMail mail start---------------------

            Set JMail = Server.CreateObject("JMail.SMTPMail")
            JMail.ServerAddress = "post.tele.dk"
            JMail.Sender = afsendermail
            if selskab <> "@sms.tdm.dk" then
                JMail.Subject = navn
                JMail.Body = tekst
            else
                JMail.Body = mobiltekst
            end if
            JMail.AddRecipient email
            JMail.Execute
            set JMail = nothing

'--------------JMail mail slut---------------------
        elseif mailer = 2 then
'--------------ASPMail mail start---------------------

            Set Mail = Server.CreateObject("Persits.MailSender")
            Mailer.RemoteHost = "post.tele.dk"
            Mailer.FromAddress = afsendermail
            Mailer.AddRecipient email
            if selskab <> "@sms.tdm.dk" then
                Mailer.Subject = navn
                Mailer.BodyText = tekst
            else
                Mailer.BodyText = mobiltekst
            end if
            Mailer.SendMail

'--------------ASPMail mail slut---------------------
        elseif mailer = 3 then
'--------------CDONTS mail start---------------------

            Set sms = CreateObject("CDONTS.NewMail")
            sms.From = afsendermail
            sms.To = email
            if selskab <> "@sms.tdm.dk" then
                sms.Subject = navn
                sms.Body = tekst
            else
                sms.Body = mobiltekst
            end if
            sms.Send
            Set sms = Nothing

'--------------CDONTS mail slut---------------------
        elseif mailer = 4 then
'------------Webhostme mail start--------------------

                Set SMTPObj = CreateObject("WebHostMeMail.SMTP")
                SMTPObj.SMTPServer = "Mail.webhostme.com"
                SMTPObj.ToAdd = email
                SMTPObj.FromAdd = afsendermail
                if selskab <> "@sms.tdm.dk" then
                    SMTPObj.Subject = navn
                    SMTPObj.Body = tekst
                else
                    SMTPObj.Body = mobiltekst
                end if
                SMTPObj.Connect
                result = SMTPObj.EMail
                SMTPObj.Quit

'------------Webhostme mail slut---------------------
        elseif mailer = 5 then
'--------------ASPemail mail start---------------------

            Set sms = Server.CreateObject("Persits.MailSender")
            sms.Host = "post.tele.dk"
            sms.From = afsendermail
            sms.AddAddress email
            if selskab <> "@sms.tdm.dk" then
                sms.Subject = navn
                sms.Body = tekst
            else
                sms.Body = mobiltekst
            end if
            sms.Send
            Set sms = Nothing

'--------------ASPemail mail slut---------------------

        end if
    end if
    if gyldigt = 1 then
        sendsms = fedfont &"Besked er sendt til:<BR><BR>Telefonnummer: "& rodfedfont & mobil
'******** BESKED SENDES SLUT *********
    else
        sendsms = rodFedfont &"Telefonnummeret er ikke gyldigt !!! "& fe
    end if
'**************** Find teleselskab slut *****************
end if
End Function
'---------------------------------------------------------------
%>
Avatar billede b.a.s. Nybegynder
28. februar 2002 - 14:12 #10
Æv.. Nu siger den det her?

Persits.MailSender.4 error '800a0006'

550 relaying mail to sms.tdm.dk is not allowed

/sms_function.asp, line 154
Avatar billede b.a.s. Nybegynder
28. februar 2002 - 14:12 #11
sms.Send  <-- Linje 154
Avatar billede b.a.s. Nybegynder
28. februar 2002 - 17:59 #12
Udskiftede mail.tele.dk med mail.filserver.dk og det virkede... Tak for hjælpen m8 ;)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 I går 20:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB

Roskilde Universitet

AV Tekniker

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Teknisk Projektleder til Forsvarets data- og AI-projekter

Politiets Efterretningstjeneste

Erfaren IT-specialist til design og udvikling af kommunikationsløsninger i PET

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger sektionschef til Systemafdelingen i Hvidovre

Politiets Efterretningstjeneste

Forretningsanalytiker til PET's IT-afdeling
Seneste spørgsmål Seneste aktivitet
I dag 01:00 Problemer med software til Power Walker UPS - Nødstrømsbatteri Af ErikHg i Andet software
I går 20:16 Snapchat Af made18 i Apps til iOS
31/1013:01 Måned og år på graf Af mort1 i Excel
31/1012:28 2 diske Af dcedata1977 i Andet hardware
31/1012:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
White papers
Flere white papers »