Doesn't seem to be connecting! (General questions)

by nightwalker83, Saturday, August 21, 2010, 12:37 (5207 days ago)

Hi,

I don't know why but pop doesn't seem to connecting for me anymore. This is the connection code I am using:

Public Function Login()
Select Case frmSettings.cboHost.Text
Case Gmail
With Smtp
.Login = frmSettings.txtUsername.Text
.Password = frmSettings.txtPassword.Text
.HostName = smtp.gmail.com
.Authentication = AuthLogin
.Security = SecurityImplicit
.Port = 465
.Blocking = True
On Error Resume Next
.Connect
End With
With Pop3
.Login = frmSettings.txtUsername.Text
.Password = frmSettings.txtPassword.Text
.HostName = pop.gmail.com
.Authentication = AuthAny
.Security = SecurityImplicit
.Port = 995
.Blocking = True
On Error Resume Next
.Connect
End With
Case Hotmail
With Smtp
.Login = frmSettings.txtUsername.Text
.Password = frmSettings.txtPassword.Text
.HostName = smtp.live.com
.Authentication = AuthLogin
.Security = SecurityImplicit
.Port = 25
.Blocking = True
On Error Resume Next
.Connect
End With
With Pop3
.Login = frmSettings.txtUsername.Text
.Password = frmSettings.txtPassword.Text
.HostName = pop.live.com
.Authentication = AuthAny
.Security = SecurityImplicit
.Port = 995
.Blocking = True
On Error Resume Next
.Connect
End With
'Only available with the premuim service
Case Yahoomail
With Smtp
.Login = frmSettings.txtUsername.Text
.Password = frmSettings.txtPassword.Text
.HostName = plus.smtp.mail.yahoo.com
.Authentication = AuthLogin
.Security = SecurityImplicit
.Port = 465 '25
.Blocking = True
On Error Resume Next
.Connect
End With
With Pop3
.Login = frmSettings.txtUsername.Text
.Password = frmSettings.txtPassword.Text
.HostName = plus.pop.mail.yahoo.com
.Authentication = AuthAny
.Security = SecurityImplicit
.Port = 995 '110
.Blocking = True
On Error Resume Next
.Connect
End With
End Select
frmMain.Caption = frmMain.Caption + + frmSettings.cboHost.Text
End Function

Using gmail I am able to send an email but connecting to pop seems to be taking longer than it should. Is it possible to retrieve the pop transcript or is that just for the smtp component?

Thanks,

Nightwalker