emails ophalen

[cod97]

Is het ook mogelijk om programma te maken waar je emails mee kan open/ophalen

MVG

 

[RogerS]

Tuurlijk is het mogelijk. De programma's die je nu gebruikt zijn toch ook door mensen gemaakt.

 

[error53]

Ik begrijp niet helemaal wat het doel is. Kun je het eens wat meer toelichten?

 

[cod97]

Ik wil dus een e-mail programma maken. Ik weet alleen niet hoe je mailtjes van bijvoorbeeld gmail kan ophalen in je programma. Kan iemand me daar iets meer over vertellen. :d

 

[MartinJM]

Gevonden met google:

http://forum.codecall.net/visual-basic-tutorials/15980-visual-basic-email-sender.html

http://osix.net/modules/article/?id=377

http://www.vbib.be/PNphpBB2-viewtopic-t-907.phtml

De eerste 2 zijn voor alleen verzenden, en de 3e is om te verzenden en te ontvangen...

Succes!:thumb:

 

[cod97]

Bedankt voor de forums MatrinJM. Ik ben nu al wel een stuk veder maar de code klopt nog niet helemaal.

Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const username As String = "..@gmail.com"
        Const password As String = "ikhaalvolgendekeermnwachtwoorduitmncode"
        Const servername As String = "pop.gmail.com"
        Const port As Int32 = 587
        Dim client As New System.Net.Sockets.TcpClient("pop.gmail.com", "995")
        Dim writeStream As System.Net.Sockets.NetworkStream = client.GetStream()
        Dim readStream As New StreamReader(client.GetStream())
        ' Connect met de server
        Dim receiveData As String = readStream.ReadLine()
        ListBox1.Items.Add(receiveData)
        ' Username sturen
        Dim sendString As String = "USER " + username + _
           Environment.NewLine
        Dim dataToSend() As Byte = Encoding.ASCII.GetBytes(sendString)
        writeStream.Write(dataToSend, 0, dataToSend.Length)
        receiveData = readStream.ReadLine()
        ListBox1.Items.Add(receiveData)

        ' Paswoord sturen
        sendString = "PASS " + password + Environment.NewLine
        dataToSend = Encoding.ASCII.GetBytes(sendString)
        writeStream.Write(dataToSend, 0, dataToSend.Length)
        receiveData = readStream.ReadLine()
        ListBox1.Items.Add(receiveData)

        ' Aantal nieuwe emails ophalen
        sendString = "STAT" + Environment.NewLine
        dataToSend = Encoding.ASCII.GetBytes(sendString)
        writeStream.Write(dataToSend, 0, dataToSend.Length)
        receiveData = readStream.ReadLine()
        ListBox1.Items.Add(receiveData)

        ' parse aantal naar integer
        Dim AMatch As Match = Regex.Match(receiveData, "(\s\d*\s)")
        Dim result As Int32 = 0
        If AMatch.Success Then result = Int32.Parse(AMatch.ToString)
        sendString = "QUIT" + Environment.NewLine
        dataToSend = Encoding.ASCII.GetBytes(sendString)
        writeStream.Write(dataToSend, 0, dataToSend.Length)
        receiveData = readStream.ReadLine()
        ListBox1.Items.Add(receiveData)
        Text = String.Format("received {0} new mail(s)", result)

        'Cleaning up ...
        writeStream.Close()
        readStream.Close()
        client.Close()

    End Sub
End Class

Weet iemand een oplossing?:thumb:

p.s MartinJM mails verzenden wist ik al

 

[puppie]

ik heb er geen verstand van maar zie ik nu je passwoord hier staan?
dus ik kan nu zo even je mailbox openen en bekijken?

 

[MartinJM]

Als dat zijn echte wachtwoord is wel ja....

 

[KwarK]

Heb het wachtwoord voor je veranderd, cod97. Zie je Privéberichten. Denk dat je de mazzel hebt dat niemand met kwade zin toegang heeft gehad.

 

[cod97]

Bedankt KwarK!!!!!!!!!!!!:thumb::thumb::thumb:

blundertje!