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