[Tasos]

Καλησπέρα!
Αλέξανδρε, αντικατέστησε στον κώδικα σου το

MsgBox result
με
Me.Pedio = result

Πάντως... πολύ φασαρία φίλε μου ο κώδικας αυτός.... Σε μαζικές αποστολές είσαι σίγουρος ότι συμπεριφέρεται σωστά; Αν στείλεις απανωτά 2-3 SMS στο ίδιο νούμερο λειτουργεί κανονικά;

Το Μid 000E83 είναι το ID που δίνει ο Server αφού παραλάβει τα δεδομένα από την εφαρμογή σου επιτυχώς και φυσικά θα το χρειαστείς (εξηγείται παρακάτω).

Αυτός ο αριθμός δεν σημαίνει ότι το μήνυμα έχει φτάσει στον τελικό παραλήπτη.

Θα πρέπει αφού κάνεις την αποστολή, να κάνεις ερώτημα στον Server (πάλι με χρήση URL και του Μid 000E83 ) αν τα μηνύματα έχουν πια παραληφθεί από τον τελικό παραλήπτη αν θέλεις να κάνεις σωστή δουλειά.

Για να το κάνεις με Internet Explorer (εφόσον υποστηρίζεται από τον διακομιστή SMS)
μπορείς να πειραματιστείς με τον παρακάτω κώδικα:

'Created by Tasos Filoxenidis
Public Function SendSMS(strSmsNumber As String, _
                        strMessage As String, _
                        strSenderName As String, _
                        strPassword As String, _
                        strUsername As String) As String
    Const DoNotRememberMe = 14&
    Dim MyUrl As String
    MyUrl = "http://www.Provider.gr/sms/Service.asp?userid=" & strUsername & _
            "&password=" & strPassword & "&from=" & strSenderName & "&message=" & strMessage & _
            "&to=" & strSmsNumber & "&rid=" & strUsername

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate2 MyUrl, DoNotRememberMe
    While ie.readyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    SendSMS = ie.Document.body.innerhtml
    ie.ExecWB OLECMDID_CLOSE, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
    Set ie = Nothing
End Function

Καλή συνέχεια!

Τάσος