0

プル通知をサブスクライブして新しいメールを読むために、EWS を使用して次のコードを記述しました。それはすべて正常に機能していました。突然、新しいメールを読まなくなりました。原因は何ですか？そして、それを解決する方法は？

Imports Microsoft.Exchange.WebServices.Data
Imports System.Threading

Public Class FormTest

Dim subscription As PullSubscription
Dim service As ExchangeService

Private Sub ButtonStart_Click(sender As Object, e As EventArgs) Handles ButtonStart.Click

    service = New ExchangeService
    service.Credentials = New WebCredentials("myusername", "mypassword", "mydomain")
    service.Url = New Uri("https://webmail.mydomain.com/EWS/exchange.asmx")

    subscription = service.SubscribeToPullNotifications(New FolderId() {WellKnownFolderName.Inbox}, 1440, Nothing, EventType.NewMail)

 End Sub

Private Sub ButtonPoll_Click(sender As Object, e As EventArgs) Handles ButtonPoll.Click
    PollEmails()
End Sub

Private Sub PollEmails()
    Dim events As GetEventsResults = subscription.GetEvents()
    For Each itemEvent As ItemEvent In events.ItemEvents
        Dim message As EmailMessage = EmailMessage.Bind(service, itemEvent.ItemId)
        message.Load()
        ' Do something with 'message'            
    Next
End Sub
End Class

基本的に、ButtonStart が押されてから新しい電子メールがあったとしても、ButtonPoll イベントを押すと、新しいイベントは含まれません。

4

1 に答える 1

0

へよ!! 私は非常に似たようなことをしています。この質問を 1 か月半前に投稿したように見えるので、今では解決しているかもしれませんが、探している他の人のために私の最初の経験をここに載せたいと思いました. 以下に投稿している方法は、投票ボタンを押さなくても通知を受け取る方法です。これは役立つかもしれません！学ぶことは常に重要なので、私はすべての凝ったものを取り除きましたが、この最初の部分は理解するのが最も不快な部分でした.

Imports System.Net
Imports System.Net.Security
Imports Microsoft.Exchange.WebServices.Data
Imports System.Security.Cryptography.X509Certificates

Public Class MainForm

    Private Sub ExecuteButton_Click(sender As System.Object, e As System.EventArgs) Handles ExecuteButton.Click
        Console.Clear()
        Dim exch As ExchangeService = New ExchangeService(ExchangeVersion.Exchange2010_SP2)
        exch.Url = New Uri("https://" + ExchangeURLTB.Text + "/EWS/Exchange.asmx")
        exch.UseDefaultCredentials = False
        exch.Credentials = New System.Net.NetworkCredential(UsernameTB.Text, PasswordTB.Text, DomainTB.Text)
        ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateCertificate)
        Dim subscribeStreaming As StreamingSubscription = exch.SubscribeToStreamingNotifications(New FolderId() {WellKnownFolderName.Inbox}, EventType.NewMail, EventType.Created, EventType.Deleted)
        Dim subscribeStreamingConnection = New StreamingSubscriptionConnection(exch, 30)
        subscribeStreamingConnection.AddSubscription(subscribeStreaming)
        AddHandler subscribeStreamingConnection.OnNotificationEvent, AddressOf OnNotificationEvent
        AddHandler subscribeStreamingConnection.OnSubscriptionError, AddressOf OnSubscriptionError
        AddHandler subscribeStreamingConnection.OnDisconnect, AddressOf OnDisconnect
        subscribeStreamingConnection.Open()

        Console.Write("Steaming subscription open")
    End Sub

    Private Sub OnNotificationEvent(sender As Object, args As NotificationEventArgs)
        Dim subscription As StreamingSubscription = args.Subscription
        For Each notification As NotificationEvent In args.Events
            Select Case notification.EventType
                Case EventType.NewMail
                    Console.WriteLine(vbNewLine)
                    Console.WriteLine("-------------Mail created:-------------")
            End Select
        Next
    End Sub

    Private Sub OnSubscriptionError(sender As Object, args As SubscriptionErrorEventArgs)

    End Sub

    Private Sub OnDisconnect(sender As Object, args As SubscriptionErrorEventArgs)

    End Sub

    Private Function ValidateCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
        'Return True to force the certificate to be accepted.
        Return True
    End Function
End Class
于 2013-11-18T15:16:07.487 に答える