Amigos,

Como tive sucesso com Notes/VB6, estou partindo para desenvolver com Winsock.

Peguei um exemplo no Marcorati: http://www.macoratti.net/vb_email.htm

E no código abaixo, a aplicação fica em loop aparece mensagem de erro, mais quando vou verificar Ctrl/Break  aparece em "smtp.State = 8 e sckClosed = 0" não sai disso.

 

Private Sub verifica_status()
'aguarda resposta
While Not inder
  If smtp.State = sckClosed Then Exit Sub
  DoEvents
Wend
End Sub

 

Podem me ajudar.?

Desde já obrigado.

ARicardo.