//اين فانکشن را تعريف نماييد و مشخصات خودتان را قرار دهيد Public Sub send_sms(mobile As String, note As String) Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "http://sms321.ir/send_via_get/send_sms.php?username=USERNAME&password=PASSWORD&sender_number=10007666&receiver_number=" & mobile & "¬e=" & note objHTTP.Open "GET", URL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send End Sub //روش استفاده Call send_sms("09132677411", "تست")