Imports System
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Threading
Imports System.ComponentModel
Namespace Examples.SmptExamples.Async
Class SimpleAsynchronousExample
Private Shared mailSent As Boolean = false
Private Shared Sub SendCompletedCallback(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
' Get the unique identifier for this asynchronous operation.
Dim token As String = CType(e.UserState,String)
If e.Cancelled Then
Console.WriteLine("[{0}] Send canceled.", token)
End If
If (Not (e.Error) Is Nothing) Then
Console.WriteLine("[{0}] {1}", token, e.Error.ToString)
Else
Console.WriteLine("Message sent.")
End If
mailSent = true
End Sub
Public Shared Sub Main(ByVal args() As String)
' Command line argument must the the SMTP host.
Dim client As SmtpClient = New SmtpClient(args(0))
' Specify the e-mail sender.
' Create a mailing address that includes a UTF8 character
' in the display name.
Dim from As MailAddress = New MailAddress("jane@contoso.com", ("Jane " _
+ (CType(216,Char) + " Clayton")), System.Text.Encoding.UTF8)
' Set destinations for the e-mail message.
Dim to As MailAddress = New MailAddress("ben@contoso.com")
' Specify the message content.
Dim message As MailMessage = New MailMessage(from, to)
message.Body = "This is a test e-mail message sent by an application. "
' Include some non-ASCII characters in body and subject.
Dim someArrows As String = New String(New Char() {Microsoft.VisualBasic.ChrW(92), Microsoft.VisualBasic.ChrW(92), Microsoft.VisualBasic.ChrW(92), Microsoft.VisualBasic.ChrW(92)})
message.Body = (message.Body _
+ (Environment.NewLine + someArrows))
message.BodyEncoding = System.Text.Encoding.UTF8
message.Subject = ("test message 1" + someArrows)
message.SubjectEncoding = System.Text.Encoding.UTF8
' Set the method that is called back when the send operation ends.
AddHandler client.SendCompleted, AddressOf Me.SendCompletedCallback
' The userState can be any object that allows your callback
' method to identify this send operation.
' For this example, the userToken is a string constant.
Dim userState As String = "test message1"
client.SendAsync(message, userState)
Console.WriteLine("Sending message... press c to cancel mail. Press any other key to exit.")
Dim answer As String = Console.ReadLine
' If the user canceled the send, and mail hasn't been sent yet,
' then cancel the pending operation.
If (answer.StartsWith("c") _
AndAlso (mailSent = false)) Then
client.SendAsyncCancel
End If
' Clean up.
message.Dispose
Console.WriteLine("Goodbye.")
End Sub
End Class
End Namespace
Qu’est ce que tu comprends pas la dedans, le fait que ce soit en anglais ?
