.... .... .... .... ...
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Send(TextBox1.Text, RichTextBox1.Text)
End Sub
Private Const SmsLength = 43
Private Sub Send([to] As String, sms As String)
Using client = New SmtpClient("smtp.gmail.com", 587)
client.EnableSsl = True
client.Credentials = New NetworkCredential("piskoviste@gmail.com", "heslo")
For index = 0 To sms.Length Mod SmsLength
client.Send("piskoviste@gmail.com", String.Format("+420{0}@sms.cz.o2.com", [to]), String.Empty, sms.Substring2(index * SmsLength, SmsLength))
Next
End Using
End Sub
End Class
Module ExtensionMethods
<Extension()> _
Public Function Substring2(input As String, index As Integer) As String
If index < 0 Then
Return input.Substring(input.Length + index, -index)
Else
Return input.Substring(index, input.Length - index)
End If
End Function
<Extension()> _
Public Function Substring2(input As String, index As Integer, length As Integer) As String
Dim index2 = index + length
If index2 > input.Length Then
length = input.Length Mod length
End If
Return input.Substring(index, length)
End Function
End Module