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
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 -
Programmering i ChatGPT Af Thygesen i Småopgaver 1 17/10/202315:37 02/12/202320:33
Hjælp til matematik opgave Af Sof9876 i Småopgaver 3 25/09/202316:56 27/09/202315:58
Fullstack udvikler Java + TypeScript + Vue.js (København) Af PRP i Småopgaver 0 08/09/202313:16 31/01/202409:34
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
3 min siden Outlook ændrer skift efter afsendelse Af OskarL i E-mail programmer
50 min siden Strømtab på slukket bærbar Af valby i Windows
I går 23:56 Sum af forskellige celler Af lurup i Excel
I går 14:57 Outlook 2016 Af Erbak i E-mail programmer
I går 14:32 Hævet og sænket skift i Word på mac Af Supersejemig i Word
White papers
Flere white papers »


Premium
Teaser billede
Virksomheder af en vis størrelse får det svært i AI-ræset: Men bestemte tiltag kan sende dem frem i feltet
Læs mere »
På Bornholm jagter Computerworld bekymret svar på det store spørgsmål
NIS2-implementeringen er nu i gang: Varsler omfattende tilsyn og store bøder
Staten mister i stor stil teknisk kyndige it-folk: Vigtig viden om samfundskritiske systemer overlades til konsulenter
Se alle »
Computerworld
Teaser billede
Prøvekørt: Polestar 3 er en rendyrket designer-bil, som er ude på at forføre dig
Læs mere »
Test af to nye robotplæneklippere: En dyr og en mere overkommelig
Her er de enheder der får det nye Apple AI – vil du have det, skal du nok ud og købe en ny iPhone
Test: Her er den smarte økonomi-robot til din græsplæne
Se alle »
CIO
Teaser billede
OUH's fynske hosting-leverandør på vej mod konkurs efter ransomware-angreb: Kan ikke genoprette ramte systemer
Læs mere »
Microsoft dropper ny funktion i Copilot få måneder efter lanceringen
CIO hos Alm. Brand rydder op i legacy-systemer og skaber en ny it-arkitektur: Stripper alt ned til standardkode for at sikre fremtiden
Vælg it-sikkerhed, hvis du gerne vil tjene mange penge: Disse cheftitler scorer de højeste lønninger i it-branchen
Se alle »
Job & Karriere
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Google fyrer hele sit Python-team
Bo solgte sit software-system for et treciftret millionbeløb: Brugte pengene på at købe 80 medarbejdere til ny storsatsning
Se alle »
White paper
Teaser billede
Sådan gør du: Elektronisk dokumentudveksling i praksis
Læs mere »
Sådan får du overblik og beskytter dine cloudapplikationer
Opdag fordelene ved cloud-baseret backup og recovery
Optimering af Source-to-Pay: Identificér oplagte gevinster og skær omkostninger
Se alle »

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