VB email inbox question

[Flame_Warrior]

Hey guys. Im in need of assistance. Im writing an emailer program, and i need to catch incoming emails and put them in the form of a string in my program. Aka i need to know how to implement an inbox/outbox/trash for my program. Any help?

thanks in advanced.

-Flame War.

[Rival-Fr]

For outBox i am use this class:

Imports System.Text.RegularExpressions

Public Class Mail

    Private _mail As New System.Net.Mail.MailMessage()

    Public Sub New(ByVal fromName As String, ByVal fromMail As String, ByVal toName As String, ByVal toMail As String, ByVal subject As String, ByVal body As String, _
    ByVal isHtml As Boolean)
        _mail.Subject = subject
        _mail.Body = body
        _mail.From = New System.Net.Mail.MailAddress(fromMail, fromName)
        _mail.[To].Add(New System.Net.Mail.MailAddress(toMail, toName))
        _mail.IsBodyHtml = isHtml
        _mail.BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
        _mail.SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
    End Sub

    Public Function Send(ByVal smtpServer As String) As Boolean
        Try

            Dim smtp As New System.Net.Mail.SmtpClient(smtpServer)
            smtp.Send(Me._mail)
            Return True
        Catch generatedExceptionName As Exception
            Return False
        End Try
    End Function


    Public Shared Function Mail_Vérifier(ByVal MailàTester As String) As Boolean

        Dim regEmail As New Regex("^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)*)\.([A-Za-z]{2,})$")
        Dim strEmail As String = MailàTester
        Dim mavérif_email As Match = regEmail.Match(strEmail)
        If mavérif_email.Success Then
            Return True
        Else
            Return False
        End If
    End Function

End Class

[Flame_Warrior]

care to explain? but thank you.

[Allstar .ιllιlı.]

Try
            Dim mail As New System.Net.Mail.MailMessage()
            Dim SmtpServer As New SmtpClient
            SmtpServer.Credentials = New Net.NetworkCredential("Here you should type in a gmail mail. Example: [email protected]", "Here you should type in the password to the gmail email you typed in the last box!")
            SmtpServer.Port = 587
            SmtpServer.Host = "smtp.gmail.com"
            SmtpServer.EnableSsl = True
            mail.To.Add("The reciever adress, where you check all the mails, don't has to be @gmail. Example: [email protected]")
            mail.From = New MailAddress("Same as in the first place, the gmail mail.")
            mail.Subject = "Mail subject"
            mail.Body = "Some text, or variables.."
            SmtpServer.Send(mail)
            Application.Exit()
        Catch
            MessageBox.Show("Error message goes here", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Application.Exit()
        End Try

Try that for sending emails.

[Flame_Warrior]

Thanks, but i already have a sending script. what i need, is a way to keep the messages that are both incoming to the email that you log in as, and the messages that are being sent from that email. also, i would appreciate more than code. otherwise i dont learn. Thanks in advanced.