OutlookMailClient Class

Public NotInheritable Class OutlookMailClient

Dim instance As OutlookMailClient

public ref class OutlookMailClient sealed

[<SealedAttribute>]
type OutlookMailClient = class end

No code example is currently available or this language may not be supported.

Imports System.Threading.Tasks

Imports DevCase.ThirdParty.MicrosoftLive
Imports DevCase.ThirdParty.MicrosoftLive

Imports Microsoft.Identity.Client
Imports Microsoft.OData.ProxyExtensions
Imports Microsoft.Office365.OutlookServices

Public NotInheritable Class Form1 : Inherits Form

    Private outlookClient As OutlookMailClient

    ' You can get an API key at Microsoft's Application Registration Portal:
    ' https://apps.dev.microsoft.com/#/appList
    Private ReadOnly clientId As String = "YOUR CLIENT ID"

    Private ReadOnly folderName As String = "Youtube"
    Private ReadOnly dstFilepath As String = "C:\Youtube Urls.txt"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.BeginInvoke(Sub() Me.IterateMessages())
    End Sub

    Private Async Sub IterateMessages()

        Me.outlookClient = New OutlookMailClient(Me.clientId, OutlookMailScopes.ReadWrite Or OutlookMailScopes.Send)

        Await Me.outlookClient.AuthorizeAsync()
        Dim folder As IMailFolder = Await Me.outlookClient.GetFolderAsyncByDisplayName(Me.folderName)
        Dim messages As IPagedCollection(Of IMessage) = Await Me.outlookClient.GetMessagesAsync(folder)

        Dim pageCount As Integer

        Do While True

            Debug.WriteLine(String.Format("Reading page {0:00}", Threading.Interlocked.Increment(pageCount)))

            For Each msg As IMessage In messages.CurrentPage
                Dim success As Boolean = Await Me.ParseAndDeleteYoutubeMessage(msg, Me.dstFilepath)
            Next msg

            ' Read next page of messages.
            If messages.MorePagesAvailable Then
                messages = Await messages.GetNextPageAsync()
            Else
                Exit Do
            End If

        Loop

        Debug.WriteLine("Finished!")

    End Sub

    Private Async Function ParseAndDeleteYoutubeMessage(ByVal msg As IMessage, ByVal dstFile As String) As Task(Of Boolean)

        Dim urlRegex As New Regex("content=""http://www.youtube.com.+watch.+uploademail", RegexOptions.IgnoreCase)
        Dim attrRegex As New Regex("attribution_link\?a=(.){10,11}&u=\/watch%3Fv%3D", RegexOptions.IgnoreCase)

        Try
            If (msg.From.EmailAddress.Name.Equals("YouTube", StringComparison.OrdinalIgnoreCase)) Then

                Dim body As String = msg.Body.Content
                Dim isMatch As Boolean = urlRegex.IsMatch(body)

                If Not (isMatch) Then
                    Throw New InvalidOperationException("Youtube regex doesn't match.")

                Else
                    Dim urlMatches As MatchCollection = urlRegex.Matches(body)
                    Dim urls As String() =
                            (From m As Match In urlMatches.Cast(Of Match)
                             Select (Environment.NewLine & m.Value)
                            ).Distinct().ToArray()

                    For x As Integer = 0 To (urls.Length - 1)
                        Dim isAttrMatch As Boolean = attrRegex.IsMatch(urls(x))
                        If (isAttrMatch) Then
                            urls(x) = attrRegex.Replace(urls(x), "watch?v=")
                        End If
                        urls(x) = urls(x).Replace("content=""", "")
                        urls(x) = urls(x).Replace("%26feature%3Dem-uploademail", "")
                        urls(x) = urls(x).Replace("&feature=em-uploademail", "")
                        urls(x) = urls(x).Replace("%26no_autoplay%3D1", "")

                    Next x

                    File.AppendAllText(dstFile, String.Join("", urls))

                    msg.IsRead = True
                    Await msg.MoveAsync("DeletedItems")

                End If

            End If

            Return True

        Catch ex As Exception
            Throw
            Return False

        End Try

    End Function

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.