Опитвам се да приложа потребителски настройки към акаунт в Gmail с помощта на API на gmail, но той продължава да връща грешка 400 лоша заявка.
Виждам кода за грешка в конзолата на API на Gmail и той идва от моя акаунт в услугата, така че кодът не може да е толкова грешен, но ме подлудява и просто не мога да разбера какво не е наред с него.
Ако някой може да ме насочи в правилната посока, ще съм много благодарен.
`Try
Dim Gmail_Settings_Update As HttpWebRequest
Dim enc As UTF8Encoding
Dim postdata As String
Dim postdatabytes As Byte()
Dim Gmail_User As String = "[email protected]"
'
Gmail_Settings_Update = HttpWebRequest.Create("https://www.googleapis.com/gmail/v1/users/" & HttpUtility.UrlEncode(Gmail_User) & "/settings/autoForwarding")
enc = New System.Text.UTF8Encoding()
postdata = "{""enabled"":""true"",""emailAddress"":""[email protected]"",""disposition"":""leaveInInbox""}"
postdatabytes = enc.GetBytes(postdata)
Gmail_Settings_Update.Headers("Authorization") = "Bearer " & Token
Gmail_Settings_Update.Method = "PUT"
Gmail_Settings_Update.ContentType = "application/json"
Gmail_Settings_Update.ContentLength = postdatabytes.Length
Using stream = Gmail_Settings_Update.GetRequestStream()
stream.Write(postdatabytes, 0, postdatabytes.Length)
End Using
Dim result = Gmail_Settings_Update.GetResponse()
Catch ex As Exception
MsgBox(ex.ToString)
End Try