vb og sms

Du kan gøre ved at sende e-mails.
Til at sende e-mails kan du bruge f.eks Winsock eller essmtp.

/MadD

skwat:> du kan gøre det på nøjagtigt samme måde som i ASP (hvis ikke du ved hvordan der så er her hvordan du gør et med numrene) Dette stykke kode der virker helt fint bruger ESSmtp som du kan finde på http://www.tdaugaard.dk/x/ og jeg mener filen hedder essmtp.zip

    strNumber = \"det nummer du vil sende til\"
   
    strTDM = \"@sms.tdm.dk\"
    strSonofon = \"@note.sonofon.dk\"
    strTelia = \"@gsm1800.telia.dk\"
    strMobilix = \"@sms.mobilix.dk\"

    bolIsValid = Not (Int(Left(strNumber, 4)) < 2010 Or Len(strNumber) <> 8)
    Select Case bolIsValid
        Case True:  MsgBox \"Sender beskeden...\"
        Case False: MsgBox \"Ugyldigt modtager nummer!\"
    End Select
   
    If bolIsValid Then
        If Int(Left(strNumber, 4)) >= 2010 And Int(Left(strNumber, 4)) <= 2059 Then strDom = strTDM
        If Int(Left(strNumber, 4)) >= 2060 And Int(Left(strNumber, 4)) <= 2099 Then strDom = strSonofon
        If Int(Left(strNumber, 4)) >= 2110 And Int(Left(strNumber, 4)) <= 2199 Then strDom = strTDM
        If Int(Left(strNumber, 4)) >= 2210 And Int(Left(strNumber, 4)) <= 2299 Then strDom = strSonofon
        If Int(Left(strNumber, 4)) >= 2310 And Int(Left(strNumber, 4)) <= 2399 Then strDom = strTDM
        If Int(Left(strNumber, 4)) >= 2610 And Int(Left(strNumber, 4)) <= 2699 Then strDom = strMobilix
        If Int(Left(strNumber, 4)) >= 2810 And Int(Left(strNumber, 4)) <= 2899 Then strDom = strTelia
        If Int(Left(strNumber, 4)) >= 3010 And Int(Left(strNumber, 4)) <= 3099 Then strDom = strTDM
        If Int(Left(strNumber, 4)) >= 4010 And Int(Left(strNumber, 4)) <= 4049 Then strDom = strTDM
        If Int(Left(strNumber, 4)) >= 4050 And Int(Left(strNumber, 4)) <= 4099 Then strDom = strSonofon
   
        smtpMail.DestinationAddress = strNumber + strDom
        smtpMail.Domain = \"tdaugaard.dk\" \' tjae .. hvis ikke du har dit eget domæne så lad være med at tage linien med.
        smtpMail.SMTPServer = \"mail.tdaugaard.dk\" \' Din SMTP server
        smtpMail.SourceAddress = \"remote@tdaugaard.dk\" \' Din email adresse
        smtpMail.SourceMailer = \"8210-SMS\" \' det er ligegyldigt med denne linie
        smtpMail.Subject = \"(\" & AFSENDER_NAVN & \") \" & BESKED_TEKST
       
        Screen.MousePointer = 11
       
        DoEvents
       
        Select Case (smtpMail.SendMail = 1)
            Case True:  MsgBox \"Beskeden blev sendt!\"
            Case False: MsgBox \"Kunne ikke sende beskeden!\"
        End Select
   
        Screen.MousePointer = 0
    End If

ok, længe siden men.... TDC har numre med 51 forrest, det kan dette jo ikke klare, vel?? er det muligt du kan \"opdatere\" det, for så kan jeg også bruge det... :O)