Send Email with Event Handler in VB from Windows Store Apps - XAML - UWP

In previous section, I introduced how to send email with embedded image. In this section, I will introduce how to send email with event handler in VB.

Introduction

In previous examples, after SendMailAsync method is invoked, if you want to know the progress of the email sending, you should use Event Handler. The following sample codes demonstrate how to use Event Handler to monitor the progress of email sending.

Note

Remarks: All of samples in this section are based on first section: Send email in A simple VB XAML Windows Store App project. To compile and run the following example codes successfully, please click here to learn how to create the test project and add reference of EASendMail to your project.

[VB - Send email with event handler]

The following example codes demonstrate how to send email with event handler.

Note

To get the full sample projects, please refer to Samples section.

' Add EASendMail and Tasks Namespace
Imports EASendMail
Imports System.Threading.Tasks

Public NotInheritable Class MainPage
    Inherits Page

    Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)

    End Sub

    Private Sub OnSecuring(sender As Object, e As SmtpStatusEventArgs)
        Dim status As String = e.Status
        ' status = "Securing ... "
        textStatus.Text = status
    End Sub

    Private Sub OnAuthorized(sender As Object, e As SmtpStatusEventArgs)
        Dim status As String = e.Status
        ' status = "Authorized"
        textStatus.Text = status
    End Sub

    Public Sub OnConnected(sender As Object, e As SmtpStatusEventArgs)
        Dim status As String = e.Status
        ' status = "Connected"
        textStatus.Text = status
    End Sub

    Public Sub OnSendingDataStream(sender As Object, e As SmtpDataStreamEventArgs)
        Dim status As String = [String].Format("{0}/{1} sent", e.Sent, e.Total)
        textStatus.Text = status
    End Sub

    Private Async Function btnSend_Click(sender As Object, e As RoutedEventArgs) _
        As Task Handles btnSend.Click
        btnSend.IsEnabled = False
        Await Send_Email()
        btnSend.IsEnabled = True

    End Function

    Private Async Function Send_Email() As Task
        Dim Result As String = ""
        Try

            Dim oMail As New SmtpMail("TryIt")

            ' Set sender email address, please change it to yours
            oMail.From = New MailAddress("test@emailarchitect.net")

            ' Add recipient email address, please change it to yours
            oMail.To.Add(New MailAddress("support@emailarchitect.net"))

            ' Set email subject
            oMail.Subject = "test email from VB XAML project"

            ' Set email body
            oMail.TextBody = "this is a test email sent from Windows Store App, do not reply"

            ' Your SMTP server address
            Dim oServer As New SmtpServer("smtp.emailarchitect.net")

            ' User and password for ESMTP authentication
            oServer.User = "test@emailarchitect.net"
            oServer.Password = "testpassword"

            ' If your SMTP server requires TLS connection on 25 port, please add this line
            ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

            ' If your SMTP server requires SSL connection on 465 port, please add this line
            ' oServer.Port = 465
            ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

            Dim oSmtp As New SmtpClient()

            ' Add event handlers
            AddHandler oSmtp.Authorized, AddressOf OnAuthorized
            AddHandler oSmtp.Connected, AddressOf OnConnected
            AddHandler oSmtp.Securing, AddressOf OnSecuring
            AddHandler oSmtp.SendingDataStream, AddressOf OnSendingDataStream

            Await oSmtp.SendMailAsync(oServer, oMail)
            Result = "Email was sent successfully!"

        Catch ep As Exception
            Result = String.Format("Failed to send email with the following error: {0}", ep.Message)
        End Try

        ' Display Result by Diaglog box
        Dim dlg As New Windows.UI.Popups.MessageDialog(Result)
        Await dlg.ShowAsync()
    End Function
End Class

Next Section

At next section I will introduce how to send email in asynchronous mode.

Appendix

Comments

If you have any comments or questions about above example codes, please click here to add your comments.