Region Service Attributes
#StartAtBoot: False
#ExcludeFromLibrary: True
#End Region
Sub Process_Globals
Dim oauth2 As GoogleOAuth2
Private ClientId As String = "xxxxxx"
End Sub
Sub Resume
' dont exist Service.GetStartingIntent, how I get ? Global var and save in Start Service ?
oauth2.CallFromResume(Service.GetStartingIntent)
end sub
Sub Service_Create
oauth2.Initialize(Me, "oauth2", ClientId, "https://www.googleapis.com/auth/gmail.send")
end sub
Sub Service_Start (StartingIntent As Intent)
oauth2.CallFromResume(StartingIntent)
End Sub