RECEBER E-MAIL PELO VB COM WINSOCK

USUARIO.EXCLUIDOS 28/07/2005 16:24:31
#96455
Boa terde pessoal,
Alguem possui alguma rotina para receber e-mail via VB com Winsock ou outro componente (free) qualquer.
Grato...
TRUHILLO 28/07/2005 16:55:17
#96459 Resposta escolhida
WCOSTA, não testei ainda mas estou implementando a rotina abaixo no meu sistema de chat para conferir e-mails em um determinado espaço de tempo.

Private Function CheckEmails()
Dim Resposta As String, cMsgs As Integer
OpenRS tbEmails, , "select * from EMAILS where REG_USUARIO = " & uReg & " AND " & _
  "DESATIVADA = 0"
With tbEmails
If .RecordCount > 0 Then
  For i = 1 To .RecordCount
    sckEmail.Connect !Servidor, 181
    If Not WaitFor("+", Resposta) Then
      Msgbox "O servidor não responde", , "Erro de conexão"
      sckEmail.Close
      Exit Function
    End If
    
    sckEmail.SendData "USER " & !Login + vbCrLf
    If Not WaitFor("+", Resposta) Then
      Msgbox "O nome do usário é inválido.", , "Erro de conexão"
      sckEmail.Close
      Exit Function
    End If
    
    sckEmail.SendData "PASS " & !Senha + vbCrLf
    If Not WaitFor("+", Resposta) Then
      Msgbox "O senha é inválida.", , "Erro de conexão"
      sckEmail.Close
      Exit Function
    End If
    
    sckEmail.SendData "STAT" + vbCrLf
    If Not WaitFor("+", Resposta) Then
      Msgbox "Comando STAT não reconhecido.", , "Erro de conexão"
      sckEmail.Close
      Exit Function
    End If
    
    cMsgs = cMsgs + CInt(Mid$(Resposta, 5, InStr(5, Resposta, " ", vbTextCompare) - 5))
    
    sckEmail.SendData "QUIT" + vbCrLf
    sckEmail.Close
    DoEvents
    .MoveNext
  Next
  If cMsgs > 0 Then Alert "e-mail", CStr(cMsgs)
End If
.Close
End With
Exit Function
cErr:
sckEmail.Close
Exit Function
End Function


A função OpenRS é uma que eu tenho pra abrir a tabela com os dados das contas de e-mail como endereço do servidor, nome do usuário e senha.
Alert é outra função pra exibir mensagens ao usuário que você pode substituir por uma Msgbox informando que existem e-mails.
------------------------------------------------------------------------------------------------------------
Alterei as mensagens de erro.
Tópico encerrado , respostas não são mais permitidas
Voltar