Отправка писем напрямую через ВБ - VB

Dim strBoundary As String
Dim strRequest As String
Dim strTo As String
Dim strSubject As String
Dim strMessage As String
Dim strHeaders As String
Dim I As Byte
Option Explicit
Private Sub Command1_Click()
 strTo = "removed@mail.ru" 'Адрес получателя
 strSubject = "Subject" 'Тема письма
 strMessage = Text1.Text + Text2.Text + Text3.Text  'Тело письма
 strHeaders = "Content-Type: text/plain; Charset=windows-1251" & vbCrLf & _
 "From: 'Sender'<example@example.net>" 'Заголовки (кодировка, адрес отправителя и т. п.)
 strBoundary = ""
 Randomize
 For I = 1 To 20
  strBoundary = strBoundary & Chr(Int(Rnd * 26) + 65)
 Next I
 strRequest = "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='to'" & vbCrLf & vbCrLf & _
 strTo & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='subject'" & vbCrLf & vbCrLf & _
 strSubject & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name=Text1.Text + Text2.Text + Text3.Text" & vbCrLf & vbCrLf & _
 strMessage & vbCrLf & _
 "--" & strBoundary & vbCrLf & _
 "Content-Disposition: form-data; name='headers'" & vbCrLf & vbCrLf & _
 strHeaders & vbCrLf & _
 "--" & strBoundary & "--"
 strRequest = "POST /mail.php HTTP/1.1" & vbCrLf & _
 "Host: rubik.pp.ua" & vbCrLf & _
 "Content-Type: multipart/form-data; boundary=" & strBoundary & vbCrLf & _
 "Content-Length: " & Len(strRequest) & vbCrLf & vbCrLf & strRequest
 Winsock1.Close
 Winsock1.RemoteHost = "rubik.pp.ua"
 Winsock1.RemotePort = 80
 Winsock1.Connect
End Sub
 
Private Sub Winsock1_Connect()
 Winsock1.SendData strRequest
End Sub

 strSubject = "Сайт:" + Text1 + text2 'Тема письма