Solved

How can I recieve/download e-mail into my VB.NET 2008 application?

Posted on 2009-05-08
3
739 Views
Last Modified: 2013-11-29
I am trying to develop a VB.NET application that responds to a user via text message with their "status" for today. I can get the text message sent, that's not the problem. However when they want to check their status... they send their ID# to an SMS site, which is then forwarded to an e-mail. How can I download those e-mails automatically and use the data in the body? Right now I have them all being forwarded to a Gmail account but I can change that if I have to.....
0
Comment
Question by:jeremy092288
  • 2
3 Comments
 
LVL 8

Expert Comment

by:MatthiasVance
ID: 24343366
0
 
LVL 83

Accepted Solution

by:
CodeCruiser earned 250 total points
ID: 24345824
Here is some code which could be used to download emails from gmail.

http://www.example-code.com/vbdotnet/pop3_gmail.asp
http://www.example-code.com/vbdotnet/email.asp
http://www.a1vbcode.com/snippet-3383.asp
http://www.codeproject.com/KB/IP/QMailClient.aspx
http://www.jscape.com/articles/retrieving_email_pop3_vb.html
http://www.a1vbcode.com/app-3637.asp
' 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.PopSsl = true

mailman.MailPort = 995
 

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.GetAllHeaders(1)
 

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()
 

Next

Open in new window

0
 
LVL 8

Expert Comment

by:MatthiasVance
ID: 24352455
Note that this code only applies if you want to use third party components, which you have to buy.

Regards,

Matthias
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now