Где ошибка - все тот же Winsock

[elsen]

есди я использую зтот фрагмент бес OPEN
усе хорошо работает но как тока я хочу разослать по списку адресов
из файла документ нет соеденение с smtp
гляньте можат есть идеи

lstAttachments.AddItem ("C:\dokum\doc.doc")
Open "c:\dokum\autolist.txt" For Input As #1
Dim MyChar As String
Dim i As Integer

'
Do Until EOF(1)
Winsock1.Close
Input #1, MyChar
MyChar = Trim(Left(MyChar, ((Len(MyChar)) - 1)))
txtRecipient.Text = MyChar

'prepare attachments
' sdes proverka na ves file i ego rasbienie
For i = 0 To lstAttachments.ListCount - 1
lstAttachments.ListIndex = i
m_strEncodedFiles = m_strEncodedFiles & _
UUEncodeFile(lstAttachments) & vbCrLf
Next i
'
Sleep 7000
Winsock1.Connect Trim$(txtHost), 25
sdes v sluchae connect uhod na obrabotku otpravki no tuda ne uhodit
m_State = MAIL_CONNECT

Loop
Close #1

[elsen]

тако впечетление что никого нет

[codemaster]

тако впечетление что никого нет

на www.vbip.com есть пример на твою тему

[Tamahawk]

А зачем ты используеш Sleep 7000 если чтобы дать время для конекции то это не так делается
и про твой Winsock1.Connect Trim$(txtHost), 25
лучше будет сделать так
Winsock.RemoteHost = Trim$(txtHost)
Winsock.RemotePort = 25
Winsock.Connect

[Tarik]

Да, sleep лучше заменить на это:

Код: Выделить всё

do while not winsock1.state=sckconnected
     DoEvents
loop


[elsen]

все равно нехочет соединяться как я прописываю железно в текст бокс на какой адр отправить бес проблем
но как тока я хочу список алр из файла брать непашет
едр.батон
дас проблемка

[Alexanbar]

Вставь в нужном месте msgbox и посмотри, чего отправляется. Выведи также длину команды. Может быть, в конце содержатся непечатные символы типа vbNullChar