Yahoo Mail

[anjanesh]

Option Explicit
Private Sub Command1_Click()
Winsock1.RemoteHost = "mx1.mail.yahoo.com"
Winsock1.RemotePort = 25
Winsock1.Connect
End Sub
 
Private Sub Winsock1_Connect()
Winsock1.SendData "USER anjanesh" & vbCrLf
DoEvents
Winsock1.SendData "PASS password" & vbCrLf
DoEvents
Winsock1.SendData "LIST" & vbCrLf
DoEvents
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim TempString As String
Winsock1.GetData TempString
Debug.Print TempString
End Sub

I don't understand the mx1 part but I think its varies - so how do I get it. This is what I get in the immediate window :

220 YSmtp mta102.mail.sc5.yahoo.com ESMTP service ready

502 Command Unimplemented

502 Command Unimplemented

502 Command Unimplemented

Can anyone help me out there. I have checked out the Winsock posts here but none are specified to yahoo mail.
Thanks

[Danial]

Hi,
As far as i know, yahoo mail (free account) does not allow POP3 retrival. If you pay and become a primier account holder then they will allow you POP3 access.

Danial

[anjanesh]

Thanks

[anjanesh]

I know this post is over a yr old but when I used this some 1-2 yrs(?) ago it was having a bad look (BB look?) and not so active.
Glad to know this forum is updated.
This excellent.
Back to it.
BTW, now that Gmail is providing free POP and SMTP access does anyone know what to replace this with :

Winsock1.RemoteHost = "mx1.mail.yahoo.com"

mail.gmail.com ? pop.gmail.com ?

BTW, Why is this post in ASP thread ? It should be in Classical VB.
Thanks

[Danial]

BTW, now that Gmail is providing free POP and SMTP access does anyone know what to replace this with :

Winsock1.RemoteHost = "mx1.mail.yahoo.com"

mail.gmail.com ? pop.gmail.com ?

BTW, Why is this post in ASP thread ? It should be in Classical VB.
Thanks

Its pop.gmail.com

The outgoing server adress is smtp.gmail.com just incase you need it.

[anjanesh]

Thank you.
Gmail is simple I guess. Y! and others have some more chars infront.