CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede snake-zone Nybegynder
12. juni 2005 - 10:53 Der er 7 kommentarer

sms mini nyheds sender ?

Hejsa er der nogle der kender en sms sender hvor folk kan tilmelde sig så man kan sende små nyheds beskeder ud til alle på listen på en gang ?

jeg vil gerne have det på en side til en dyrehandel men der skal ikke være muligt for andre end mig selv at skrive fra den

hvis det ikke er noget der findes er det så noget man kan lave ?
Avatar billede svendthomsen Nybegynder
12. juni 2005 - 12:53 #1
denne htmlkode burde sende smser til en mobil

<html>
<head>
<title>SMS Sender</title>
</head>
<body>
<h3>SMS Sender</h3>

<%
smsTo = Request("to")
smsFrom = Request("from")
smsSubject = Request("subject")
If smsTo <> "" Then
    If Not IsNumeric(smsTo) Then
        Response.Write("Mobilnummer må kun indeholde tal<br><br>" & vbNewLine)
    Else
        smsTo = smsTo*1
        If smsTo >= 20100000 And smsTo < 20600000 Then
            smsEmail = smsTo & "@sms.tdm.dk"
        ElseIf smsTo >= 20600000 And smsTo < 21000000 Then
            smsEmail = smsTo & "@note.sonofon.dk"
        ElseIf smsTo >= 21100000 And smsTo < 22000000 Then
            smsEmail = smsTo & "@sms.tdm.dk"
        ElseIf smsTo >= 22100000 And smsTo < 23000000 Then
            smsEmail = smsTo & "@note.sonofon.dk"
        ElseIf smsTo >= 23000000 And smsTo < 24000000 Then
            smsEmail = smsTo & "@sms.tdm.dk"
        ElseIf smsTo >= 26100000 And smsTo < 26900000 Then
            smsEmail = smsTo & "@sms.mobilix.dk"
        ElseIf smsTo >= 28100000 And smsTo < 28900000 Then
            smsEmail = smsTo & "@sms.mobilix.dk"
        ElseIf smsTo >= 40100000 And smsTo < 40500000 Then
            smsEmail = smsTo & "@sms.tdm.dk"
        ElseIf smsTo >= 40500000 And smsTo < 50000000 Then
            smsEmail = smsTo & "@note.sonofon.dk"
        End If
        If smsEmail <> "" Then
            Set userMail = Server.CreateObject("JMail.SMTPMail")
            '*** mail.mydomain.dk skal rettes til den mail-server der er tilknyttet dit webhotel ***
            userMail.ServerAddress = "mail.mydomain.dk"
            userMail.SenderName = smsFrom
            userMail.AddRecipient smsEmail
            userMail.Body = smsSubject
            userMail.Execute
            userMail.Close
            Set userMail = nothing
            Response.Write("Din SMS er nu sendt<br><br>" & vbNewLine)
            smsTo = ""
            smsFrom = ""
            smsSubject = ""
        Else
            Response.Write("Det indtastede mobilnummer er ikke gyldigt<br><br>" & vbNewLine)
        End If
    End If
End If
%>

<FORM ACTION="#" METHOD=POST name="sms">
<table border=0 CELLPADDING=0 CELLSPACING=0>
<tr><td>Til mobilnr.</td><td><INPUT name="to" value="<%=smsTo%>" size=8></td></tr>
<tr><td>Fra</td><td><INPUT name="from" value="<%=smsFrom%>" size=20 onkeyup="charCount()" onchange="charCount()"></td></tr>
<tr><td>Besked</td><td><textarea name="subject" cols="20" rows="4" wrap="virtual" onkeyup="charCount()" onchange="charCount()"><%=smsSubject%></textarea></td></tr>
<tr><td>Tegn tilbage</td><td><INPUT name="left" size=3 value=180></td></tr>
<tr><td colspan=2><center><INPUT type="submit" value=" Send "></center></td></tr>
</table>
</form>

<script>
<!--
//Script by Ricki Runge
//Find more at www.script.dk

function charCount() {
document.sms.left.value = 180 - document.sms.subject.value.length - document.sms.from.value.length;
if (document.sms.left.value < 0) {
  alert("Beskeden kan ikke være mere end 180 tegn");
}
}

charCount();
//-->
</script>
</body>
</html>
Avatar billede per-d Nybegynder
13. juni 2005 - 01:07 #2
Svendthomsen>> Jeg er 100% sikker på at det der script nok har virket en gang med ikke virker mere, langt de fleste mobiludbydere har i dag lukket for deres internet gateway så man skal betale for at  benytte dem i dag. Det så vidt kun telia der kan sendes gratis til

snake-zone> idag skal man betale for at sende sms-beskeder på den måde du beskriver, her findes der en række udbydere bl.a MailingList.DK og PlainSMS.

Jeg vil dog nævne at jeg er programmør på MailingList.DK, og derfor har vist et forhold til den service. MailingList.DK drives og ejes i dag af Acomma.com der er et danmarks største hosting/sms udbydere.
Avatar billede snake-zone Nybegynder
13. juni 2005 - 16:12 #3
okay mange tak for hjælpen  det er der jo ingen ting at gøre ved
Avatar billede dfens Nybegynder
14. juni 2005 - 11:23 #4
Jeg tror at firmaet Email2Sms kan gører det.
http://email2sms.dk/

Jeg har tidlig brugt en anden af deres services, uden problemer
Avatar billede snake-zone Nybegynder
24. juni 2005 - 15:45 #5
nej det er slet ikke sådan noget vi leder efter da det ikke skal koste noget....
Avatar billede dfens Nybegynder
24. juni 2005 - 15:54 #6
tjaa...hvad kan jeg sige...man får sgu ikke noget gratis i den her verden...
Avatar billede dmcn Praktikant
24. juni 2005 - 16:14 #7
Du får ikke adgang til en SMS-gateway uden at slippe nogen slanter. Sådan er det desværre.
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel Indlæg Oprettet Seneste aktivitet
Beregning af modstand Af Børge Skindhøj i Småopgaver 3 18/11/202414:32 18/11/202417:38
Bistand søges til Wordpress, kalenderfunktion og infoskærme. Af Jens Andreas i Småopgaver 1 13/09/202411:29 14/09/202415:48
Hjælp til at skrive opgave Af Needhelp i Småopgaver 0 05/07/202422:41 -
USB styret telæ Af Olsen i Småopgaver 1 04/05/202400:07 04/05/202400:22
Lønnet opgave: Elektroingeniør søges til gennemgang af kredsløbsdiagram Af shaya i Småopgaver 0 23/11/202322:05 -
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
Seneste spørgsmål Seneste aktivitet
I dag 15:56 Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I dag 14:10 Outlook henter ikke mails Af TTA i Office & Kontorpakker
I dag 13:58 vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I dag 13:35 Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling
I går 20:49 pop up black friday Af Malm i Virus
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Cyberstatus 2024: Her er truslerne – og her forbereder virksomhederne sig
Læs mere »
Styrk compliance, sikkerhed og overblik med ét hug
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »