Сплит Email Body VB.NET - PullRequest
Новая
       17

Сплит Email Body VB.NET

0 голосов
/ 25 апреля 2019

Итак, в EWS электронное письмо с ответом отображается вместе с исходным письмом.

Но в моем случае мне просто нужен последний ответ из электронного письма.

Например:

От: aaa@domain.com
Отправлено: дата отправлена ​​
To: bbb@domain.com

Привет, привет, я в порядке, спасибо -> хочу только принять участие

С уважением,
A

От: bbb@domain.com
Отправлено: дата отправлена ​​
To: aaa@domain.com

Привет, как дела?

С уважением,
B

Жирными частями является ТОЛЬКО Мне нужно.

Вот фрагмент моего кода: 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

        'Initiate Connection to Exhcange Service (EWS)'
        Dim service As New ExchangeService(ExchangeVersion.Exchange2007_SP1)
        service.Credentials = New WebCredentials("email@domain.com", "email password")
        service.TraceEnabled = True
        service.TraceFlags = TraceFlags.All
        service.AutodiscoverUrl("email@domain.com")

        'Read Inbox'
        Dim myMailBox As Mailbox = New Mailbox("email@domain.com")
        Dim myFolder As FolderId = New FolderId(WellKnownFolderName.Inbox, myMailBox)
        Dim myView As ItemView = New ItemView(100)

        myView.OrderBy.Add(ItemSchema.DateTimeReceived,SortDirection.Descending)

        'Result'
        Dim results As FindItemsResults(Of Item) = service.FindItems(myFolder, myView)

        'Show Result'
        Dim ctr As Integer = 0
            For Each mailitem In results
            mailitem.Load()
            If ctr = 0 Then

                ctr += 1
                HttpContext.Current.Response.Write("<br/>===============<br/>")
                HttpContext.Current.Response.Write("Email No. " & ctr)
                HttpContext.Current.Response.Write("<br/>===============<br/>")
                HttpContext.Current.Response.Write(mailitem.Subject)
                HttpContext.Current.Response.Write("<br/>===============<br/>")
                HttpContext.Current.Response.Write(mailitem.Body.Text)
                HttpContext.Current.Response.Write("<br/>===============<br/>")

            End If
        Next
            HttpContext.Current.Response.End()
    End Sub

End Class
...