GmailClient Class

Public NotInheritable Class GmailClient
	Implements IDisposable

Dim instance As GmailClient

public ref class GmailClient sealed : IDisposable

[<SealedAttribute>]
type GmailClient = 
    class
        interface IDisposable
    end

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

Imports Google.Apis.Auth.OAuth2
Imports Google.Apis.Gmail.v1.Data

Dim client As New GmailClient("C:\GoogleSecrets.json", "yourmail@gmail.com", GmailScopes.ReadOnly Or GmailScopes.Modify Or GmailScopes.Send)
Dim credential As UserCredential = Await client.AuthorizeAsync()
Dim folder As Google.Apis.Gmail.v1.Data.Label = Await client.GetFolderAsyncByKnownId(GmailFolderIds.Inbox)
Dim messages As List(Of Google.Apis.Gmail.v1.Data.Message) = Await client.GetMessagesAsync(folder)
Dim msgCount As Integer

Dim [date] As String = ""
Dim from As String = ""
Dim subject As String = ""
Dim body As String = ""

For Each msg As Google.Apis.Gmail.v1.Data.Message In messages

    For Each header As MessagePartHeader In msg.Payload.Headers

        Select Case header.Name

            Case "Date"
                [date] = header.Value

            Case "From"
                from = header.Value

            Case "Subject"
                subject = header.Value

            Case Else
                ' ...

        End Select

    Next header

    Console.WriteLine(String.Format("Count: {0}; Id: {1}; From: {2}, Date: {3}, Subject: {4}",
                                    Interlocked.Increment(msgCount),
                                    msg.Id, from, [date], subject))

    body = msg.Payload.Body.Data

    ' We need to evaluate this because some message bodies are Base64 encoded, and some others aren't.
    If DevCase.Core.Cryptography.CryptoUtil.IsBase64Encoded(msg.Payload.Body.Data) Then
        body = DevCase.Core.Cryptography.CryptoUtil.Base64Decode(msg.Payload.Body.Data)
    End If

    ' Console.WriteLine(body)

Next msg

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.