24/07/2005, 22:28
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 351
Antigüedad: 20 años Puntos: 3 | |
| en donde dice servidor deves ponerle uno
ej:
mail.hotmail.com
te doy otros servidores
Function BuscarServidor(Servidor As String) As String
Select Case Servidor
' Devolvemos el nombre del servidor de "MSN"
Case "MSN": BuscarServidor = "smtp.email.msn.com"
' Devolvemos el nombre del servidor de "PARADISE"
Case "PARADISE": BuscarServidor = "smtp.paradise.net.nz"
' Devolvemos el nombre del servidor de "XTRA"
Case "XTRA": BuscarServidor = "smtp.xtra.co.nz"
' Devolvemos el nombre del servidor de "YAHOO"
Case "YAHOO": BuscarServidor = "smtp.mail.yahoo.com"
' Devolvemos el nombre del servidor de "HOTMAIL"
Case "HOTMAIL": BuscarServidor = "mail.hotmail.com"
' Devolvemos el nombre del servidor de "EMAIL"
Case "EMAIL": BuscarServidor = "mail-intake-1.mail.com"
' Devolvemos el nombre del servidor de "JUNO"
Case "JUNO": BuscarServidor = "mx.boston.juno.com"
' Devolvemos el nombre del servidor de "MICROSOFT"
Case "MICROSOFT": BuscarServidor = "mail5.microsoft.com"
' Devolvemos el nombre del servidor de "GEOCITIES"
Case "GEOCITIES": BuscarServidor = "mail.geocities.com"
' Devolvemos el nombre del servidor de "BLUE LIGHT"
Case "BLUE LIGHT": BuscarServidor = "mail.bluelight.com"
' Devolvemos el nombre del servidor de "BELLSOUTH"
Case "BELLSOUTH": BuscarServidor = "mail.atl.bellsouth.net"
' Devolvemos el nombre del servidor de "NETSERO"
Case "NETSERO": BuscarServidor = "inbound-mail.netzero.net"
End Select
End Function |