Email Konten eintrage, lesen, löschen.

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von cybershiit.

    Email Konten eintrage, lesen, löschen.

    Guten Tag.
    Ich möchte meine Erfahrungen in der Programmierwelt sammeln und nehme jede Herrausforderung an.
    Mein nächstes Ziel ist es einen mailReder zu programmieren, was mir die Arbeit sparen soll, mich in
    10 Mails anzumelden und alles einzelnt zu kontrollieren, ob ich eine neue Mail habe.

    Ich möchte, dass man Konten hinzufügen kann und unter Mails alle Mails aufgelistet sind.
    Beispielweiße so:

    [ eMail ] - [ Titel ] - [ Uhrzeit ] - [ Status ]

    Nun brauche ich jedoch Hilfe, da ich nicht weiß, wie ich am besten vorgehen sollte.
    Ich habe nun die erste Form.. die Hauptform und eine zweite (Benachrichtigung unten rechts).

    Wenn ich eine Mail bekomme soll unten rechts die Box erscheinen (ist kein Problem) aber wie kann ich am besten überprüfen,
    ob ich eine neue Mail empfangen habe und wie kann ich diese lesen? (zB. HTML bei VB.NET..)

    Ich bräuchte wirklich eure Hilfe, es ist eine sehr große Herrausforderung für mich.


    Wie wärs mit einem Mail Protokoll?
    Also POP3 oder SMTP.


    Hast du überhaupt irgendeine Ahnung, was du da faselst oder hast du nur in Google: "EMail Protokoll" eingegeben und irgendwas nachgeplaudert?

    @TE: Du kannst heutzutage via IMAP die Mails ohne /seen Flag in der INBOX abrufen. Dafür gibts garantiert ne schöne Bibliothek für .net.

    Manawyrm schrieb:

    Wie wärs mit einem Mail Protokoll?
    Also POP3 oder SMTP.


    Hast du überhaupt irgendeine Ahnung, was du da faselst oder hast du nur in Google: "EMail Protokoll" eingegeben und irgendwas nachgeplaudert?

    @TE: Du kannst heutzutage via IMAP die Mails ohne /seen Flag in der INBOX abrufen. Dafür gibts garantiert ne schöne Bibliothek für .net.

    Ich habe eine Ahnune. Es ist menschlich, wenn man Hilfe benötigt.
    Wenn du nicht bereit bist mir anständig zu helfen, brauchst du mit mir keine Kommunikation starten.. brauch ich nicht.

    Ich habe nun die Verweise hinzugefügt. Ich werde berichten sobald ich weiter bin.

    //E
    Nun habe ich es geschafft, dass die Mails aufgelistet werden.
    Mein Problem ist nun, dort sind Sonderzeichen.. wie bekomme ich hin, dass mir das Programm
    die Sonderzeichen richtig ausgibt?
    Mein Code:

    VB.NET-Quellcode

    1. Public Sub MailAbfragen()
    2. Dim pop3 As New POPClient
    4. pop3.Disconnect()
    5. pop3.Connect("pop.aol.com", 110)
    6. pop3.Authenticate("xd@aol.de", "123")
    8. ListBox1.Items.Clear()
    10. For i As Integer = 1 To pop3.GetMessageCount
    11. Dim m As MIMEParser.Message = pop3.GetMessage(i, False)
    13. ListBox1.Items.Add("From: " & m.From & " <" & m.FromEmail & "> - " & m.Subject)
    15. If m.MessageBody.Count > 0 Then
    16. Dim Attach As New List(Of MIMEParser.Attachment)
    17. Messages.Add(m.MessageBody(m.MessageBody.Count - 1))
    19. For ii As Integer = 1 To m.AttachmentCount - 1
    20. Attach.Add(m.GetAttachment(ii))
    21. Next
    23. AttachArray.Add(Attach)
    24. End If
    25. Next
    26. pop3.Disconnect()
    27. End Sub

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „cybershiit“ ()

    Manawyrm schrieb:

    @cybershiit: Herzlich Willkommen. Das hier ist ein Forum.
    Wenn ich jemanden zitiere, und danach schreibe, dann meine ich den Urheber des zitierten Textes. Nicht den TE (Threadersteller).
    mit @TE hatte ich dich dann gemeint.

    Ich hab hier also den anderen Poster angeschnauzt.

    Oh. Tut mir leid für das Mistverständniss.

    E:
    Ich bekomme das mit den Sonderzeichen nicht hin.

    VB.NET-Quellcode

    1. Public Shared Function encode(ByVal str As String) As String
    2. Dim utf8Encoding As New System.Text.UTF8Encoding(True)
    3. Dim encodedString() As Byte
    4. encodedString = utf8Encoding.GetBytes(str)
    5. Return utf8Encoding.GetString(encodedString)
    6. End Function
    8. Public Sub MailAbfragen()
    9. Dim pop3 As New POPClient
    10. pop3.Disconnect()
    11. pop3.Connect("pop.aol.com", 110)
    12. pop3.Authenticate("xxx", "xxx")
    13. 'NsListView1.RemoveItems()
    14. For i As Integer = 1 To pop3.GetMessageCount
    15. Dim m As MIMEParser.Message = pop3.GetMessage(i, False)
    16. Dim time As String = m.DateTimeInfo
    17. NsListView1.AddItem(m.From, encode(m.Subject), time.Substring(4, 18))
    18. If m.MessageBody.Count > 0 Then
    19. Dim Attach As New List(Of MIMEParser.Attachment)
    20. Messages.Add(m.MessageBody(m.MessageBody.Count - 1))
    21. For ii As Integer = 1 To m.AttachmentCount - 1
    22. Attach.Add(m.GetAttachment(ii))
    23. Next
    24. AttachArray.Add(Attach)
    25. End If
    26. Next
    27. pop3.Disconnect()
    28. End Sub


    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „cybershiit“ ()

    //E2
    Ich habe diesen iMAP nun runtergeladen und den Verweis hinzugefügt.
    Mein Code:

    VB.NET-Quellcode

    1. Public Sub MailAbfragen()
    2. Using imap As New Imap()
    3. imap.Connect("imap.de.aol.com") ' 110
    4. imap.Login("mail@aol.de", "123456")
    6. imap.SelectInbox()
    7. Dim uids As List(Of Long) = imap.Search(Flag.Unseen)
    9. For Each uid As Long In uids
    10. Dim eml As String = imap.GetMessageByUID(uid)
    11. Dim email As IMail = New MailBuilder() _
    12. .CreateFromEml(eml)
    13. Dim time As String = "01 Jan 2014 20:00"
    14. NsListView1.AddItem(Convert.ToString(email.From), encode(email.Subject), time.Substring(4, 18))
    15. MsgBox(Convert.ToString(email.From) + " " + encode(email.Subject) + " " + time.Substring(4, 18))
    16. Next
    17. imap.Close()
    18. End Using
    19. End Sub


    Wenn ich den Sub aufrufe,.. passiert nichts. Woran kann es liegen?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „cybershiit“ ()

Facebook