VB.NET GMail: Get a specific message (format="minimal")

Back to Index

Gets a specific message using format=minimal.

Documentation: https://developers.google.com/gmail/api/v1/reference/users/messages/get

Dim rest As New Chilkat.Rest
Dim success As Boolean

'   Provide a previously obtained OAuth2 access token.
Dim oauth2 As New Chilkat.OAuth2
oauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"

success = rest.Connect("www.googleapis.com",443,True,True)
If (success <> True) Then
    Exit Sub
End If



Dim sbJson As New Chilkat.StringBuilder
success = rest.FullRequestNoBodySb("GET","/gmail/v1/users/me/messages/messageId",sbJson)
If (success <> True) Then
    Exit Sub
End If

If (rest.ResponseStatusCode <> 200) Then
    Debug.WriteLine("Received error response code: " & rest.ResponseStatusCode)
    Debug.WriteLine("Response body:")
    Exit Sub
End If

Dim json As New Chilkat.JsonObject

'  The following code parses the JSON response.
'  A sample JSON response is shown below the sample code.
Dim id As String
Dim threadId As String
Dim snippet As String
Dim historyId As String
Dim internalDate As String
Dim sizeEstimate As Integer
Dim i As Integer
Dim count_i As Integer
Dim strVal As String

id = json.StringOf("id")
threadId = json.StringOf("threadId")
snippet = json.StringOf("snippet")
historyId = json.StringOf("historyId")
internalDate = json.StringOf("internalDate")
sizeEstimate = json.IntOf("sizeEstimate")
i = 0
count_i = json.SizeOfArray("labelIds")
While i < count_i
    json.I = i
    strVal = json.StringOf("labelIds[i]")
    i = i + 1
End While

Debug.WriteLine("Example Completed.")

Sample JSON Response Body

  "id": "15fc237e79da4174",
  "threadId": "15fc237e79da4174",
  "labelIds": [
  "snippet": "This is a test email with 2 attachments.",
  "historyId": "1582",
  "internalDate": "1510791964000",
  "sizeEstimate": 11153