Программа для отправки смс - Visual Basic .NET

Формулировка задачи:

Видел в интернете программу для отправки бесплатных смс на номера теле2, написанную на visual basic net, но исходников так и не нашел. Кто-нибудь знает, как отправлять смс программно?

Решение задачи: «Программа для отправки смс»

textual
                            Листинг программы 
                        

                            Imports System.Net.Mail
Imports System.Net
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim zam As Object, nastroyka As String
        zam = CreateObject("CDO.Message")
        nastroyka = "http://schemas.microsoft.com/cdo/configuration/"
        zam.BodyPart.CharSet = "Windows-1251"
        On Error Resume Next
        With zam
            .To = TextBox1.Text ' Кому отправляем, например (79144444222)
            .From = TextBox2.Text ' Отправитель, например (otpravka_sms@mail.ru)
            .Subject = TextBox3.Text ' Тема письма
            .TextBody = TextBox4.Text ' Текст письма
            With .Configuration.Fields
                .Item(nastroyka & "sendusing") = 2
                .Item(nastroyka & "smtpserver") = "..." ' Сервер SMTP, например, smtp.mail.ru
                .Item(nastroyka & "smtpauthenticate") = 1
                .Item(nastroyka & "sendusername") = "..." ' например, [email]otpravka_sms@mail.ru[/email]
                .Item(nastroyka & "sendpassword") = "..." ' Пароль от почты
                .Item(nastroyka & "smtpserverport") = 25
                .Item(nastroyka & "smtpusessl") = False
                .Item(nastroyka & "smtpconnectiontimeout") = 1
                .Update()
            End With
            .send()
        End With
    End Sub
End Class
                        