VBNet - Форум - Отправка письма асинхронно SmtpClient

Вопрос: Отправка письма асинхронно SmtpClient Добавлено: 29.12.12 19:30

Автор вопроса: Ahtoxa

Здравствуйте. Подскажите пожалуйста в чём проблема. Отправляю асинхронно письма

Do While
Dim mail As New MailMessage()
mail.From = New MailAddress(tmp(1))
mail.To.Add(tmp3(0))
mail.Subject = tmp4
mail.Body = tmp5

Dim smtp As New SmtpClient(tmp(0))
smtp.Credentials = New NetworkCredential(tmp(2), tmp(3))
smtp.SendAsync(mail, "")
Loop
Msgbox(1)

Если сразу после того как выдало Msgbox(1) закрыть программу то письма не доходят. Письма как бы отправляются в фоновом режиме. И никак не возможно определить когда именно оно отправит все письма. Вот тут обсуждают такую же проблему, но там пример на C, кто бы помог реализовать это на vb.net
http://social.msdn.microsoft.com/Forums/en-AU/winforms/thread/477d9b5b-bc6e-4fe3-9734-820211ae250f
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Ahtoxa Вопросов: 6 Ответов: 29	Профиль \| \| #1	Добавлено: 29.12.12 21:14
	Решил проблему. Перед smtp.SendAsync(mail, "" добавить AddHandler smtp.SendCompleted, AddressOf sendMail_SendCompleted smtp.SendAsync(mail, "") и Private Sub sendMail_SendCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Dim userToken As Object = e.UserState 'This is how you know which send has completed, you pass some identifier in usertoken 'If e.Cancelled Then 'Operation was cancelled 'Debug.WriteLine("Email cancelled.") 'End If 'If e.Error IsNot Nothing Then 'An error occured 'Debug.WriteLine("Error: {0}", e.Error.ToString) 'Else 'No error occured 'Debug.WriteLine("Email sent!") 'End If _pool.Release() add2() End Sub Ответить

Страница: 1 |