Сообщество Чайников

Вопрос

Подскажите, с помощью 97 аксеса отправить e-mail на smtp сервер или хотя бы как передавать команды smtp серверу. Если несложно, приведите пример.

Ответ

Нужно использовать контрол WINSCK.OCX (как в VB) присоединяемся к серверу:

winsock1.connect "SMTP-СЕРВЕР","ПОРТ-SMTP-СЕРВЕРА"
doevents
if winsock1.state=sckconnected then

отсылать команды следует таким образом:
winsock1.senddata "КОМАНДА1"
endif

получение данных с сервера осуществляется в Sub'е:
Private sub winsock1_dataarrival( … )
dim str as string
winsock1.getdata str
str — полученный ответ от сервера
end sub

Из конференции Expert_FAQ