Amigos,

 Estou com seguinte problema, no código abaixo envio email sem problemas

 

----------------------------------------------

strServer = "noppp" '"000.000.0.0 (Exemplo)

ColonPos = InStr(strServer, ":")

If ColonPos = 0 Then
   Winsock1.Connect strServer, 25
Else
   lngPort = CLng(Right$(strServer, Len(strServer) - ColonPos))
   strServer = Left$(strServer, ColonPos - 1)
   Winsock1.Connect strServer, lngPort
End If

   m_State = MAIL_CONNECT

 

' chamando sem problemas (Winsock1_DataArrival)

----------------------------------------------

 

Mais quando utilizo no While não funciona:

 

Do While Not RS.EOF
     cont = cont + 1

     strServer = "noppp" '"000.000.0.0 (Exemplo)

     ColonPos = InStr(strServer, ":")

     If ColonPos = 0 Then
        Winsock1.Connect strServer, 25
     Else
        lngPort = CLng(Right$(strServer, Len(strServer) - ColonPos))
        strServer = Left$(strServer, ColonPos - 1)
        Winsock1.Connect strServer, lngPort
     End If

     m_State = MAIL_CONNECT

     RS.MoveNext
Loop

 

 

Só faltou uma informação. o motivo do While é porque estou enviando um email para varias pessoas fora da empresa, cada email muda o corpop de email.

 

Abs,

 

poxa não tenho certez mas acho que vc terá de fechar o winsock e abri-lo dentro do while