pellesoft.se

Anslut dig mot din mailserver

Postad 2000-09-15 av Pelle Johansson i sektionen ASP.NET, C#, Okategoriserat med 1 Kommentarer | Läst av: 4482, Betyg: 74%

Förord

Innehåll

» Var denna artikeln användbar?

Att kolla sin mail med en winsock kontroll är inte svårt och det behövs bara några få rader kod. Du börjar med ett nytt projekt. Där lägger du till en textbox (sätt multline till true), sedan en command knapp och till sist lägger du till en winsock kontroll (Protocol ska vara TCP och remote port 110)

Vi döper textboxen till txtMail, command knappen till cmdMail och slutligen winsock kontrollen till sckMail. Nu är allt klart för att börja skriva in koden!


Option Explicit

Public Sub cmdMail_Click()
  txtMail.Text = "Ansluter till mailen..." + vbCrLf
  sckMail.Close
  sckMail.RemoteHost = "server" 'Istället för "server" skriver du dit din mailserver
  sckMail.RemotePort = 110
  sckMail.Connect
End Sub 
Private Sub sckmail_Connect()
  'Istället för "user" skriver du ditt användarnamn 
  sckMail.SendData ("user " + "user" + vbCrLf) 
  'Istället för "pass" skriver du ditt lösenord 
  sckMail.SendData ("pass " + "12345" + vbCrLf) 
  sckMail.SendData ("quit" + vbCrLf)
End Sub

Private Sub sckmail_DataArrival(ByVal bytesTotal As Long)
  Dim A As String
  sckMail.GetData A
  txtMail.Text = txtMail.Text + A
End Sub

Var denna artikeln användbar?

Om du gör någon intressant applikation av detta material eller kanske vill komplettera - skicka gärna det med ett mail eller bifoga en länk till mig så presenterar jag detta som ytterligare exempelfiler för kursen. Om detta innehållet är felaktigt eller du lärt dig fler finesser så skriv gärna en rad eller varför inte en egen kurs baserat på dina erfarenheter. Sänd gärna in dina tips.

Mycket nöje,
/Daniel Nordmark

Upp