Отправить email при помоши 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 = Text1.Text 'Адрес получателя
 strSubject = Text2.Text 'Тема письма
 strMessage = Text3.Text 'Тело письма
strHeaders = "Content-Type: text/plain; Charset=windows-1251" & vbCrLf & [COLOR="Blue"]"From: [email]7777@mail.ru[/email]" [/COLOR] 'Заголовки (кодировка, адрес отправителя и т. п.)
 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='message'" & 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: fotoruru.hut2.ru" & vbCrLf & _
 "Content-Type: multipart/form-data; boundary=" & strBoundary & vbCrLf & _
 "Content-Length: " & Len(strRequest) & vbCrLf & vbCrLf & strRequest
 Winsock1.Close
 Winsock1.RemoteHost = "fotoruru.hut2.ru"
 Winsock1.RemotePort = 80
 Winsock1.Connect
End Sub
 
Private Sub Winsock1_Connect()
 Winsock1.SendData strRequest
End Sub