Отправка файлов по отдельности с WINSOCK

Привет Всем!!!!

Ситуация:
В папке 'С:Temp ' находятся файлы (temp.part1.rar, temp.part2.rar и т.д. общее кол-во их не известно) необходимо отправить, прикрепляя их каждый по отдельности (на 1 сообщение - 1 файл). Сколько файлов, столько сообщений.

Вопрос: Как на примере нижеуказанного кода сделать подобную отправку?

Заранее благодарен за помощь!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Имеем следующий код:

Option Explicit
Private Enum SMTP_State
MAIL_CONNECT
MAIL_HELO
MAIL_FROM
MAIL_RCPTTO
MAIL_DATA
MAIL_DOT
MAIL_QUIT
End Enum
Private m_State As SMTP_State
Private m_strEncodedFiles As String

Private Sub Form_Load()

Dim Host
Host = getstring(HKEY_CURRENT_USER, 'SoftwareMicrosoftInternet Account ManagerAccounts*0000001', 'SMTP Server')

'пробовал следующее:
'Dim F As String
'Const P As String = 'c: emp '
'F = Dir$(P & 'temp.part??.rar')
'While Len(F) > 0
'F = Dir$
'Wend
'm_strEncodedFiles = m_strEncodedFiles & _
UUEncodeFile(P & F) & vbCrLf
'Но программа зависает

m_strEncodedFiles = m_strEncodedFiles & _
UUEncodeFile('c:Temp emp.rar') & vbCrLf
On Error Resume Next
Winsock1.Connect Trim$(Host), 25
m_State = MAIL_CONNECT
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strServerResponse As String
Dim strResponseCode As String
Dim strDataToSend As String
Dim txtSender As String
Dim txtRecipient
Dim txtSubject
Dim txtMessage
Dim txtFromname
Dim txtTo

txtSender = getstring(HKEY_CURRENT_USER, 'SoftwareMicrosoftInternet Account ManagerAccounts*0000001', 'SMTP Email Address')
txtRecipient = 'user@domaim.com'
txtSubject = 'Test'
txtMessage = 'Test'
txtFromname = getstring(HKEY_CURRENT_USER, 'SoftwareMicrosoftInternet Account ManagerAccounts*0000001', 'SMTP Display Name')
txtTo = ''Test''
Winsock1.GetData strServerResponse
Debug.Print strServerResponse
strResponseCode = Left(strServerResponse, 3)
If strResponseCode = '250' Or _
strResponseCode = '220' Or _
strResponseCode = '354' Then

Select Case m_State
Case MAIL_CONNECT
m_State = MAIL_HELO
strDataToSend = Trim$(txtSender)
strDataToSend = Left$(strDataToSend, _
InStr(1, strDataToSend, '@') - 1)
Winsock1.SendData 'HELO ' & strDataToSend & vbCrLf
Case MAIL_HELO
m_State = MAIL_FROM
Winsock1.SendData 'MAIL FROM:' & Trim$(txtSender) & vbCrLf
Case MAIL_FROM
m_State = MAIL_RCPTTO
Winsock1.SendData 'RCPT TO:' & Trim$(txtRecipient) & vbCrLf
Case MAIL_RCPTTO
m_State = MAIL_DATA
Winsock1.SendData 'DATA' & vbCrLf
Case MAIL_DATA
m_State = MAIL_DOT
Winsock1.SendData 'From: ' + txtFromname + ' <' + txtSender + '>' + vbCrLf
Winsock1.SendData 'To: ' + txtTo + ' <' + txtRecipient + '>' + vbCrLf
Winsock1.SendData 'X-Priority: 1 (Highest)' & vbCrLf
Winsock1.SendData 'Subject:' & txtSubject & vbLf & vbCrLf

Dim varLines As Variant
Dim varLine As Variant
Dim strMessage As String

strMessage = txtMessage & vbCrLf & vbCrLf & m_strEncodedFiles
m_strEncodedFiles = ''
varLines = Split(strMessage, vbCrLf)
strMessage = ''
For Each varLine In varLines
Winsock1.SendData CStr(varLine) &amp

0

Сорри, нету щас времени разбираться с твоим кодом. Сдёрни мой контрол 'SimpleSMTP' со ссылки: http://formtoini.narod.ru/Downloads/SimpleSMTP_ActiveX_Control.zip
(просто скопируй её в броузер; на сайте этой ссылки нет)

Открой проект (SimpleSMTP.vbp) и в коде UserControl'а найди событие WinSock1_DataArrival. Там верный вариант присоединения файлов, да и кодирование в Base64 пошустрее работает, чем в твоём варианте кода (кстати, кажись знаю, откуда ты взял этот код). Да и вообще можешь запустить демо-проект (идёт в этом же архиве) и поиграться с контролом. Может, он тебе понравится и ты решишь его использовать ) Кстати, когда я его тестировал, то за один раз (в одном мессадже) отправлял 10 аттачментов в общей сложности на 19 Мб. И ничего, всё отправилось...

Спасибо за участие!!!
Попробую разобраться

0