Springen naar inhoud


- - - - -

Vb.net Met Google People Api

vb.net google api 2020 credentials

  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 vbibHollie

vbibHollie

    Starting Developer

  • Leden
  • 4 berichten
    Laatst bezocht 20 aug 2020 17:12

Geplaatst op 08 augustus 2020 - 21:40

Hallo,

Ik ben op zoek naar een manier om mail-contacten in een listbox te zetten.
Voor de mailboxen en agenda/calender items van google/gmail heb ik het wel voor elkaar , maar voor de contacten/people wil het niet slagen.

Heeft iemand een stap voor stap uitleg hoe ik me moet authentiseren voor "people" en welke methods,porperties er zijn :

Hieronder de listing, met een foutmelding op de laatste regel van de code  - "van google, onvoldoende rechten....??"
Misschien gebruik ik de verkeerde methods?

Visual Basic Code:
Imports Google.Apis.Auth.OAuth2
Imports Google.Apis.People.v1
Imports Google.Apis.People.v1.Data
Imports Google.Apis.Util.Store
...


Public Sub people_get_People()
	 Dim Scopes() As String = {PeopleService.Scope.ContactsReadonly}
		Dim ApplicationName As String = "Gmail API .NET Quickstart"
		Dim credpath As String = ""
		Dim FS As New FileStream(frmMain.padCredits_Mail, FileMode.Open)
#If DEBUG Then
		credpath = Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "token.json")
#Else
		credpath = Path.Combine(Path.GetDirectoryName(Application.ExecutablePath), "data\token.json")
#End If

		Dim Credential As UserCredential
		Credential = GoogleWebAuthorizationBroker.AuthorizeAsync(GoogleClientSecrets.Load(FS).Secrets, Scopes, "user", CancellationToken.None, New FileDataStore(credpath, True)).Result
		Console.WriteLine("Credential file saved to: " & credpath)
		Dim service As New PeopleService(New BaseClientService.Initializer() With {
		.HttpClientInitializer = Credential,
		.ApplicationName = ApplicationName})

		Dim peopleRequest As PeopleResource.ConnectionsResource.ListRequest
		peopleRequest = service.People.Connections.List("people/me")

		Dim peopleResults As ListConnectionsResponse = peopleRequest.Execute()


Google.GoogleApiException
HResult=0x80131500
Message=Google.Apis.Requests.RequestError
Request had insufficient authentication scopes. [403]
Errors [
Message[Insufficient Permission] Location[ - ] Reason[insufficientPermissions] Domain[global]
]

de foutmelding :

Source=Google.Apis
StackTrace:
at Google.Apis.Requests.ClientServiceRequest`1.<ParseResponse>d__31.MoveNext()
at System.Runtime.ExceptionServices.ExceptionDispatchInfo.Throw()
at Google.Apis.Requests.ClientServiceRequest`1.Execute()

#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 770 berichten
    Laatst bezocht 13 sep 2020 11:01
  • LocatieMechelen (BE)

Geplaatst op 08 augustus 2020 - 21:54

Zet je code eens tussen vb tags :) trouwens .net heeft een leuke manier om errors af te handelen als programmeur, try catch ;)

Ik zou zeggen ga eens zien in je isntelling op je account of calanders enzo ook extern te benaderen zijn.





Ook met taq vb.net, google, api, 2020, credentials voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)