Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Move a GMail Message to TrashMoves a specific GMail email message to trash.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = CreateObject("Chilkat.Http") http.AuthToken = "GMAIL-ACCESS-TOKEN" ' The id of the GMail message to move to Trash. id = "16678c485e7f0a0c" userId = "me" success = http.SetUrlVar("userId","me") success = http.SetUrlVar("id",id) ' Move to trash by POSTing w/ an empty request body. url = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}/trash" ' resp is a Chilkat.HttpResponse Set resp = http.PText("POST",url,"","","",0,0) If (http.LastMethodSuccess <> 1) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If outFile.WriteLine("status = " & resp.StatusCode) ' A 200 response status indicate success. If (resp.StatusCode <> 200) Then outFile.WriteLine(resp.BodyStr) outFile.WriteLine("Failed.") WScript.Quit End If ' A successful repsonse contains JSON that looks like this: ' { ' "id": "16678c485e7f0a0c", ' "threadId": "16678c485e7f0a0c", ' "labelIds": [ ' "TRASH", ' "CATEGORY_SOCIAL" ' ] ' } outFile.WriteLine("response body:") outFile.WriteLine(resp.BodyStr) outFile.WriteLine("Message moved to trash!") outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.