Gmail and Vb.net receiving

Does anyone have a program that can get GMAIL in vb.net.  I want something that uses the IMAP push email so that a new email triggers an event in vb.net
LVL 1
Tom_HickersonAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

 
Éric MoreauSenior .Net ConsultantCommented:
0

Experts Exchange Solution brought to you by ConnectWise

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
 
Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
There's also MailKit: https://github.com/jstedfast/MailKit. It provides both IMAP and POP3 processes.
0
 
Shaun VermaakTechnical Specialist/DeveloperCommented:
Using the EAGetMail SDK
Imports System.IO
Imports EAGetMail 'imports EAGetMail namespace

Module Module1
    Sub Main()
        ' Create a folder named "inbox" under current directory
        ' to save the email retrieved.
        Dim curpath As String = Directory.GetCurrentDirectory()
        Dim mailbox As String = [String].Format("{0}\inbox", curpath)

        ' If the folder is not existed, create it.
        If Not Directory.Exists(mailbox) Then
            Directory.CreateDirectory(mailbox)
        End If

        ' Gmail IMAP server is "imap.gmail.com"
        Dim oServer As New MailServer("imap.gmail.com", _
            "gmailid@gmail.com", "yourpassword", ServerProtocol.Imap4 )
        Dim oClient As New MailClient("TryIt")

        ' Enable SSL connection
        oServer.SSLConnection = True

        ' Set IMAP4 SSL port
        oServer.Port = 993

        Try
            oClient.Connect(oServer)
            Dim infos As MailInfo() = oClient.GetMailInfos()
            For i As Integer = 0 To infos.Length - 1
                Dim info As MailInfo = infos(i)
                Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}", _
                        info.Index, info.Size, info.UIDL)

                ' Receive email from Gmail server
                Dim oMail As Mail = oClient.GetMail(info)

                Console.WriteLine("From: {0}", oMail.From.ToString())
                Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)

                ' Generate an email file name based on date time.
                Dim d As System.DateTime = System.DateTime.Now
                Dim cur As New System.Globalization.CultureInfo("en-US")
                Dim sdate As String = d.ToString("yyyyMMddHHmmss", cur)
                Dim fileName As String = [String].Format("{0}\{1}{2}{3}.eml", _
                    mailbox, sdate, d.Millisecond.ToString("d3"), i)

                ' Save email to local disk
                oMail.SaveAs(fileName, True)

                ' Mark email as deleted in Gmail Account
                oClient.Delete(info)
            Next

            ' Quit and purge emails marked as deleted from Gmail IMAP4 server.
            oClient.Quit()
        Catch ep As Exception
            Console.WriteLine(ep.Message)
        End Try

    End Sub
End Module

Open in new window

https://www.emailarchitect.net/eagetmail/kb/vbnet.aspx?cat=5
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.