Pokusavam da napravim neki mali Email client (za fax), ali sam se zakucao negde i jednostavno ne mogu da odgonetnem. Naime, juce sam dok sam testirao Indy.POP3, bez problema svlacio broj mailova sa GMail-a, ali od danas, totalno ne radi :-)
Enivej, evo nikad prostijeg koda:
Code:
Private Sub DamnTest()
Dim k As New Indy.Sockets.POP3
Try
k.Username = "****"
k.Password = "****"
k.Host = "pop.gmail.com"
k.Port = 995
k.Connect()
k.CheckMessages()
k.Disconnect()
Catch ex As Exception
MessageBox.Show("Crap ;(" & ex.Message)
End Try
End Sub
Private Sub DamnTest()
Dim k As New Indy.Sockets.POP3
Try
k.Username = "****"
k.Password = "****"
k.Host = "pop.gmail.com"
k.Port = 995
k.Connect()
k.CheckMessages()
k.Disconnect()
Catch ex As Exception
MessageBox.Show("Crap ;(" & ex.Message)
End Try
End Sub
I nakon tipa 15ak-20sek cekanja, dobijem poruku: "Crap ;( Connection closed gracefullly."
Uspeo sam uz neko googlanje da nadjem da me odbija jer nisam podesio da se koristi SSL, al iskren da budem, nemam pojma kako ... (mozda zato sto je 3AM).
Nadam se da iko ima bilo kakvu ideju, jer cu da ga zapalim na kraju ....
Btw, izvinjavam se ako nisam dao dovoljno informacija, rado cu postovati sve sto treba, samo recite :-)
Pozz i hvala