Merhaba, Sizin sms firmanız ne bilmiyorum. Eklediğim bağlantıdaki uygulamada iletimerkezi'ne ait api kullanıldı. 

A2 Grubu kısmındaki alt formdaki "Onay123" onay kutusunun güncelleştirme sonrasında olayına

If Onay123 = -1 Then

MsgBox (Me.telefon & "Numaralı telefona SMS gönderilsin mi?")



GMesaj = "SAYIN " & Me.ad_soyad & "; " & Me.grv_tarih & " " & Metin187 & " günü Ehliyet Sınavı Direksiyon Uygulamasında Görevlendirildiniz"



GirisTel = "000000" ' kullanıcı tel no

GirisSifre = "000000" ' kullanıcı şifresi

GBaslik = "AccessTrneT" 'kullanıcı başlığı



GZaman = Format(Date, "dd/mm/yyyy") & " " & Format(Time(), "hh:nn")

GZaman = Replace(GZaman, ".", "/")

XMLVerisi = "<?xml version='1.0' encoding='UTF-8' ?><request><authentication><username>" & GirisTel & "</username><password>" & GirisSifre & "</password></authentication><order><sender>" & GBaslik & " </sender><sendDateTime>" & GZaman & "</sendDateTime><message><text><![CDATA[" & GMesaj & "]]></text><receipents><number>" & Me.telefon & "</number></receipents></message></order></request>"

GelenXML = XMLPOST("http://api.iletimerkezi.com/v1/send-sms", XMLVerisi)



MsgBox (GelenXML)



End If

Aynı formun Vba sayfasına

Private Function XMLPOST(ByVal PostAddress As String, ByVal xmlData As String) As String

On Error GoTo hata_kontrol

    Dim XMLSender As New MSXML2.XMLHTTP

    XMLSender.Open "POST", PostAddress, False

    XMLSender.send xmlData

    XMLPOST = XMLSender.responseText

    Exit Function

hata_kontrol:

    XMLPOST = ""

End Function

Kodu ekle, son olarak Microsoft XML referansını ekle. Onay kutusu tıklandığında gönderilen sms aşağıdaki gibidir.