Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Was mache ich da falsch. Hier der Code...
Autor: Konsi
Datum: 03.12.01 18:08
Z.B. ServerName=pop.gmx.net UserName=0123456 Password="ABCDEFG" Ich möchte mich nur am Server anmelden jedoch keine Nachrichten empfangen oder sonstiges!!!! Hier der Code ' Verbindung zum Mailserver herstellen Public Function MailConnectToServer(ByVal ServerName As _ String, ByVal UserName As String, ByVal Password As _ String) As Boolean With Winsock1 On Local Error Resume Next .Close On Local Error GoTo 0 ' Anmelden am Mailserver DoEvents .Protocol = sckTCPProtocol .LocalPort = 0 .Connect ServerName, 110 ' Warten, bis die Verbindung hergestellt ist Do While .State < sckConnected DoEvents Loop ' Auf Antwort warten... strResponse = "" If WaitForResponse() Then ' Benutzernamen prüfen DoEvents strResponse = "" .SendData "USER " & UserName & vbNewLine If WaitForResponse() Then ' Kennwort prüfen DoEvents strResponse = "" .SendData "PASS " & Password & vbNewLine If WaitForResponse() Then MailConnectToServer = True End If End If End If End With End Function ------------------------------ Public Function WaitForResponse() As Boolean ' spätestens nach 45 Sekunden abbrechen Const TimeOut = 45 Dim iStart As Long iStart = Timer WaitForResponse = False With Winsock1 While strResponse = "" ' Bei unvorhergesehenem Verbindungsabbruch If .State > sckConnected Then Exit Function End If ' Wenn TimeOut überschritten, Meldung und abbrechen If Timer - iStart > TimeOut Then Exit Function End If DoEvents Wend End With If Left(strResponse, 3) Like "+OK" Then WaitForResponse = True End If End Function ----------------------------- Private Sub Command1_Click If MailConnectToServer(txtServerName, txtUserName, _ txtPassword) Then End If On Local Error Resume Next Winsock1.Close On Local Error GoTo 0 End Sub

Was mache ich da falsch. Hier der Code...	91	Konsi	03.12.01 18:08
Re: Was mache ich da falsch. Hier der Code...	45	Mac	04.12.01 13:18
Re: Was mache ich da falsch. Hier der Code...	42	Konsi	04.12.01 16:43
Re: Was mache ich da falsch. Hier der Code...	50	LTB-FanSite	04.12.01 18:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen