In Visual Basic 2008 Emails ontvangen

Pagina: 1
Acties:
  • 175 views

Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
Hoe kan ik in Visual Basic 2008 een applicatie maken waarin emails kunnen worden ontvangen
van bijvoorbeeld een gmail account? Ik heb hiervoor op internet al gezocht. Nu lukt het echter wel om de afzender en het onderwerp van de email binnen te krijgen, maar nier de inhoud van de email.
(Als hij de inhoud weergeeft, krijg ik ook de html code wat niet de bedoeling is) Het gaat zich echter alleen om de inhoud.

Dit is de code die ik gebruikt heb:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' The mailman object is used for receiving (POP3)
' and sending (SMTP) email.
Dim mailman As New Chilkat.MailMan()

' Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = mailman.UnlockComponent("30-day trial")
If (success <> True) Then
MsgBox("Component unlock failed")
Exit Sub
End If


' Set the GMail account POP3 properties.
mailman.MailHost = "pop.gmail.com"
mailman.PopUsername = ""
mailman.PopPassword = ""
mailman.MailPort = "995"
mailman.PopSsl = True


Dim bundle As Chilkat.EmailBundle
' Read mail headers and one line of the body.
' To get the full emails, call CopyMail instead (no arguments)
bundle = mailman.CopyMail


If (bundle Is Nothing) Then
MsgBox(mailman.LastErrorText)
Exit Sub
End If


Dim i As Integer
Dim email As Chilkat.Email
For i = 0 To bundle.MessageCount - 1
email = bundle.GetEmail(i)

' Display the From email address and the subject.
TextBox1.Text = TextBox1.Text & email.From & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & email.Subject _
& vbCrLf & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text.Insert = email.Body _
& vbCrLf & vbCrLf
TextBox1.Refresh()


Next

End Sub

Private Sub SendEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendEmail.Click

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

Acties:
  • 0 Henk 'm!

  • DexterDee
  • Registratie: November 2004
  • Laatst online: 22:32

DexterDee

I doubt, therefore I might be

Mails van de meeste e-mail software wordt in MIME multipart verstuurd, waarbij je een HTML deel hebt en een plaintext deel. De body die jij terugkrijgt daar zit alles in. Je moet dus niet zoeken naar een library die mails kan ontvangen, maar een die (ook) MIME parts kan decoden. Soms stuurt een e-mail client echter alleen HTML mee en dan is het jouw taak om die HTML te parsen om er chocola van te maken.

Klik hier om mij een DM te sturen • 3245 WP op ZW


Acties:
  • 0 Henk 'm!

  • RobIII
  • Registratie: December 2001
  • Niet online

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

(overleden)
Euh, deze code is gewoon kant-en-klaar bij Chilkat vandaan gecopy/pasted. Als je dan eens daar om support gaat vragen? Support op code van derden doen we hier niet aan en daarbij toon je ook nog eens totaal geen eigen initiatief; je vertelt je probleem, dumpt je "geleende" code en wij mogen je gaan uitleggen wat/hoe/waar je probleem zit? Sorry, zo werkt het hier niet.

Neem even onze Quickstart door om te zien hoe we hier wél graag een topic zien ;) en gebruik, als je code post, aub code tags voortaan.

[ Voor 9% gewijzigd door RobIII op 11-12-2009 15:23 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij


Dit topic is gesloten.