Принимать почту получается, а вот отправлять
дошел до команды
- Код: Выделить всё
WinSock_Send "USER " & Left(txtMailFrom.Text, InStr(1, txtMailFrom.Text, "@") - 1) & vbCrLf
WinSockWait "+OK"
WinSock_Send "PASS mic" & vbCrLf
WinSockWait "+OK"
WinSock_Send "STAT" & vbCrLf
WinSockWait "+OK"
WinSock_Send "LIST" & vbCrLf
WinSockWait "+OK"
WinSock_Send "QUIT" & vbCrLf
WinSockWait "+OK"
Winsock.Close
MessageLog "Message Into"
Это только кусок из программы, но в них ясно что отсылается команды winsock. Eсли кто-то заинтересуется выложу весь код программы. Просьба объяснить какие команды нужно давать winsock дальше что-бы принять почту, желательно, извините за мой русский, с вложенными файлами.