Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

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

Posted on 2009-05-08
3
744 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

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
VB.NET 2008 Winforms Signing 13 30
Help with error in Query 2 31
Programming Codes 2 19
what is the best Integrated development environment 2 19
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…
Although it can be difficult to imagine, someday your child will have a career of his or her own. He or she will likely start a family, buy a home and start having their own children. So, while being a kid is still extremely important, it’s also …

790 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