Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / WinForms, .Net Framework Новый топик    Ответить
 Отправка почты на Exchange в локальной сети.  [new]
StarMan
Member

Откуда: Планета Земля
Сообщений: 230
Никто не знает что делать, когда при отправке почты происходит непонятное ожидания момента выхода из приложения? То есть процедура отправки срабатывает, но письмо уходит только тогда, когда закрываешь приложение, а если из приложения не выходить, то никакой отправки не происходит???

    Private Sub SendInternalEMail(ByVal myMessage As System.Net.Mail.MailMessage)
        Dim mailClient As New SmtpClient("exm", 25)
        mailClient.DeliveryMethod = SmtpDeliveryMethod.Network

        Try
            myMessage.From = New MailAddress(AddressFrom, "TTT")
            myMessage.To.Item(0) = New MailAddress(AddressTo, "EEE")
            myMessage.DeliveryNotificationOptions = DeliveryNotificationOptions.OnSuccess

            mailClient.UseDefaultCredentials = False
            mailClient.Send(myMessage)

        Catch ex As Exception
            Message(ex.Message, zMsgTypes.Err)
        End Try
    End Sub
15 мар 07, 19:59    [3904962]     Ответить | Цитировать Сообщить модератору
 Re: Отправка почты на Exchange в локальной сети.  [new]
StarMan
Member

Откуда: Планета Земля
Сообщений: 230
Вобщем обойти получается все-же пока только повторной попыткой отправки пустого сообщения на внешний адрес, чтобы оно вызвало ошибку и тогда все отправляется без задержек...

Private Sub SendInternalEMail(ByVal myMessage As System.Net.Mail.MailMessage)
Dim mailClient As New SmtpClient("exm", 25)
mailClient.DeliveryMethod = SmtpDeliveryMethod.Network

Try
myMessage.From = New MailAddress(AddressFrom, "TTT")
myMessage.To.Add(New MailAddress(AddressTo, "EEE"))
myMessage.DeliveryNotificationOptions = DeliveryNotificationOptions.None

mailClient.UseDefaultCredentials = False
mailClient.Send(myMessage)

Catch ex As Exception
Message(ex.Message, zMsgTypes.Err)
End Try

Try
mailClient.Send("qqq@gmail.com", "qqq@gmail.com", "Pustyshka", "Pustyshka")
Catch ex As Exception
Beep()
End Try
End Sub
15 мар 07, 21:56    [3905179]     Ответить | Цитировать Сообщить модератору
Все форумы / WinForms, .Net Framework Ответить