Classic ASP

Get a List of Message IDs in GMail User's Mailbox

Demonstrates how to get a list of message IDs in a GMail mailbox. The "userId" can be either the user's email address or the special value "me" to indicate the authenticated user.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set http = Server.CreateObject("Chilkat.Http")

http.AuthToken = "ACCESS_TOKEN"

http.Accept = "application/json"

set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpNoBody("GET","https://www.googleapis.com/gmail/v1/users/userId/messages",resp)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code: " & resp.StatusCode) & "</pre>"

set jsonResponse = Server.CreateObject("Chilkat.JsonObject")
success = jsonResponse.Load(resp.BodyStr)
jsonResponse.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( jsonResponse.Emit()) & "</pre>"

If (resp.StatusCode <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>"
    Response.End
End If

' {
'   "messages": [
'     users.messages Resource
'   ],
'   "nextPageToken": string,
'   "resultSizeEstimate": unsigned integer
' }

resultSizeEstimate = jsonResponse.IntOf("resultSizeEstimate")
i = 0
count_i = jsonResponse.SizeOfArray("messages")
Do While i < count_i
    jsonResponse.I = i
    id = jsonResponse.StringOf("messages[i].id")
    threadId = jsonResponse.StringOf("messages[i].threadId")
    i = i + 1
Loop

%>
</body>
</html>